ole32/tests: Set tymed in GetData and AddRef the interfaces (ReleaseStgMedium…

ole32/tests: Set tymed in GetData and AddRef the interfaces (ReleaseStgMedium releases them even if pUnkForRelease is non-NULL).

ole32/tests: Set tymed in GetData and AddRef the interfaces (ReleaseStgMedium…
126ec018 · Huw Davies · Alexandre Julliard · af5ce0d2 · 126ec018
Commit 126ec018 authored Mar 31, 2009 by Huw Davies Committed by Alexandre Julliard Apr 01, 2009
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 0 deletions

clipboard.c dlls/ole32/tests/clipboard.c +11 -0

No files found.
--- a/dlls/ole32/tests/clipboard.c
+++ b/dlls/ole32/tests/clipboard.c
@@ -245,11 +245,22 @@ static HRESULT WINAPI DataObjectImpl_GetData(IDataObject* iface, FORMATETC *pfor
                IUnknown_AddRef(pmedium->pUnkForRelease);

                if(pformatetc->cfFormat == CF_TEXT || pformatetc->cfFormat == cf_global)
+                {
+                    pmedium->tymed = TYMED_HGLOBAL;
                    U(*pmedium).hGlobal = This->text;
+                }
                else if(pformatetc->cfFormat == cf_stream)
+                {
+                    pmedium->tymed = TYMED_ISTREAM;
+                    IStream_AddRef(This->stm);
                    U(*pmedium).pstm = This->stm;
+                }
                else if(pformatetc->cfFormat == cf_storage)
+                {
+                    pmedium->tymed = TYMED_ISTORAGE;
+                    IStorage_AddRef(This->stg);
                    U(*pmedium).pstg = This->stg;
+                }
                return S_OK;
            }
        }