commit 115d8ccaab94336ff3d9af991b1a454e4ea9af41
author Thuy Nguyen <thuy@macadamian.com> Sat May 08 10:48:44 1999 +0000
committer Alexandre Julliard <julliard@winehq.org> Sat May 08 10:48:44 1999 +0000
tree ed000ae83bb915ec328a97281fa755dc3fc2c364
parent 36a1a25f0e3bbacff9a33cc87da1de55c70fab42

Implemented GetHGlobalFromStream.

ole/hglobalstream.c

diff --git a/ole/hglobalstream.c b/ole/hglobalstream.c
index 7d8049a..73247c2 100644
--- a/ole/hglobalstream.c
+++ b/ole/hglobalstream.c
@@ -185,6 +185,32 @@
   return E_OUTOFMEMORY;
 }
 
+/***********************************************************************
+ *           GetHGlobalFromStream     [OLE32.71]
+ */
+HRESULT WINAPI GetHGlobalFromStream(IStream* pstm, HGLOBAL* phglobal)
+{
+  HGLOBALStreamImpl* pStream;
+
+  if (pstm == NULL)
+    return E_INVALIDARG;
+
+  pStream = (HGLOBALStreamImpl*) pstm;
+
+  /*
+   * Verify that the stream object was created with CreateStreamOnHGlobal.
+   */
+  if (pStream->lpvtbl == &HGLOBALStreamImpl_Vtbl)
+    *phglobal = pStream->supportHandle;
+  else
+  {
+    *phglobal = 0;
+    return E_INVALIDARG;
+  }
+
+  return S_OK;
+}
+
 /******************************************************************************
 ** HGLOBALStreamImpl implementation
 */

relay32/ole32.spec

diff --git a/relay32/ole32.spec b/relay32/ole32.spec
index 5d25986..f74908d 100644
--- a/relay32/ole32.spec
+++ b/relay32/ole32.spec
@@ -71,7 +71,7 @@
  68 stub GetConvertStg
  69 stub GetDocumentBitStg
  70 stdcall GetHGlobalFromILockBytes(ptr ptr) GetHGlobalFromILockBytes
- 71 stub GetHGlobalFromStream
+ 71 stdcall GetHGlobalFromStream(ptr ptr) GetHGlobalFromStream
  72 stub GetHookInterface
  73 stdcall GetRunningObjectTable(long ptr) GetRunningObjectTable
  74 stub IIDFromString