ChangeLog:
- Implemented body of HGLOBALStreamImpl::Clone
Alberto
Index: hglobalstream.c
===================================================================
RCS file: /home/wine/wine/dlls/ole32/hglobalstream.c,v
retrieving revision 1.13
diff -u -r1.13 hglobalstream.c
--- hglobalstream.c 12 Sep 2002 22:07:04 -0000 1.13
+++ hglobalstream.c 7 Nov 2002 11:17:36 -0000
@@ -820,6 +820,15 @@
IStream* iface,
IStream** ppstm) /* [out] */
{
- FIXME("not implemented!\n");
- return E_NOTIMPL;
+ ULARGE_INTEGER dummy;
+ LARGE_INTEGER offset;
+ HRESULT hr;
+ HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
+ TRACE(" Cloning %p (deleteOnRelease=%d seek
position=%ld)\n",iface,This->deleteOnRelease,(long)This->currentPosition.QuadPart);
+ hr=CreateStreamOnHGlobal(This->supportHandle, FALSE, ppstm);
+ if(FAILED(hr))
+ return hr;
+ offset.QuadPart=(LONGLONG)This->currentPosition.QuadPart;
+ HGLOBALStreamImpl_Seek(*ppstm,offset,STREAM_SEEK_SET,&dummy);
+ return S_OK;
}
