git.oblomov.eu Git - wine/blob - dlls/ole32/hglobalstream.c

   1 /*
   2  * HGLOBAL Stream implementation
   3  *
   4  * This file contains the implementation of the stream interface
   5  * for streams contained supported by an HGLOBAL pointer.
   6  *
   7  * Copyright 1999 Francis Beaudet
   8  *
   9  * This library is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public
  11  * License as published by the Free Software Foundation; either
  12  * version 2.1 of the License, or (at your option) any later version.
  13  *
  14  * This library is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with this library; if not, write to the Free Software
  21  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  22  */
  23
  24 #include "config.h"
  25
  26 #include <assert.h>
  27 #include <stdlib.h>
  28 #include <stdarg.h>
  29 #include <stdio.h>
  30 #include <string.h>
  31
  32 #define NONAMELESSUNION
  33 #define NONAMELESSSTRUCT
  34 #include "windef.h"
  35 #include "winbase.h"
  36 #include "winuser.h"
  37 #include "objbase.h"
  38 #include "ole2.h"
  39 #include "winerror.h"
  40 #include "winreg.h"
  41 #include "winternl.h"
  42
  43 #include "wine/debug.h"
  44
  45 WINE_DEFAULT_DEBUG_CHANNEL(storage);
  46
  47 /****************************************************************************
  48  * HGLOBALStreamImpl definition.
  49  *
  50  * This class imlements the IStream inteface and represents a stream
  51  * supported by an HGLOBAL pointer.
  52  */
  53 struct HGLOBALStreamImpl
  54 {
  55   ICOM_VFIELD(IStream);  /* Needs to be the first item in the stuct
  56                           * since we want to cast this in a IStream pointer */
  57
  58   /*
  59    * Reference count
  60    */
  61   ULONG              ref;
  62
  63   /*
  64    * Support for the stream
  65    */
  66   HGLOBAL supportHandle;
  67
  68   /*
  69    * This flag is TRUE if the HGLOBAL is destroyed when the stream
  70    * is finally released.
  71    */
  72   BOOL    deleteOnRelease;
  73
  74   /*
  75    * Helper variable that contains the size of the stream
  76    */
  77   ULARGE_INTEGER     streamSize;
  78
  79   /*
  80    * This is the current position of the cursor in the stream
  81    */
  82   ULARGE_INTEGER     currentPosition;
  83 };
  84
  85 typedef struct HGLOBALStreamImpl HGLOBALStreamImpl;
  86
  87 /*
  88  * Method definition for the StgStreamImpl class.
  89  */
  90 HGLOBALStreamImpl* HGLOBALStreamImpl_Construct(
  91                 HGLOBAL  hGlobal,
  92                 BOOL     fDeleteOnRelease);
  93
  94 void HGLOBALStreamImpl_Destroy(
  95                 HGLOBALStreamImpl* This);
  96
  97 void HGLOBALStreamImpl_OpenBlockChain(
  98                 HGLOBALStreamImpl* This);
  99
 100 HRESULT WINAPI HGLOBALStreamImpl_QueryInterface(
 101                 IStream*      iface,
 102                 REFIID         riid,            /* [in] */
 103                 void**         ppvObject);  /* [iid_is][out] */
 104
 105 ULONG WINAPI HGLOBALStreamImpl_AddRef(
 106                 IStream*      iface);
 107
 108 ULONG WINAPI HGLOBALStreamImpl_Release(
 109                 IStream*      iface);
 110
 111 HRESULT WINAPI HGLOBALStreamImpl_Read(
 112                 IStream*      iface,
 113                 void*          pv,        /* [length_is][size_is][out] */
 114                 ULONG          cb,        /* [in] */
 115                 ULONG*         pcbRead);  /* [out] */
 116
 117 HRESULT WINAPI HGLOBALStreamImpl_Write(
 118                 IStream*      iface,
 119                 const void*    pv,          /* [size_is][in] */
 120                 ULONG          cb,          /* [in] */
 121                 ULONG*         pcbWritten); /* [out] */
 122
 123 HRESULT WINAPI HGLOBALStreamImpl_Seek(
 124                 IStream*      iface,
 125                 LARGE_INTEGER   dlibMove,         /* [in] */
 126                 DWORD           dwOrigin,         /* [in] */
 127                 ULARGE_INTEGER* plibNewPosition); /* [out] */
 128
 129 HRESULT WINAPI HGLOBALStreamImpl_SetSize(
 130                 IStream*      iface,
 131                 ULARGE_INTEGER  libNewSize);  /* [in] */
 132
 133 HRESULT WINAPI HGLOBALStreamImpl_CopyTo(
 134                 IStream*      iface,
 135                 IStream*      pstm,         /* [unique][in] */
 136                 ULARGE_INTEGER  cb,           /* [in] */
 137                 ULARGE_INTEGER* pcbRead,      /* [out] */
 138                 ULARGE_INTEGER* pcbWritten);  /* [out] */
 139
 140 HRESULT WINAPI HGLOBALStreamImpl_Commit(
 141                 IStream*      iface,
 142                 DWORD           grfCommitFlags); /* [in] */
 143
 144 HRESULT WINAPI HGLOBALStreamImpl_Revert(
 145                 IStream*  iface);
 146
 147 HRESULT WINAPI HGLOBALStreamImpl_LockRegion(
 148                 IStream*     iface,
 149                 ULARGE_INTEGER libOffset,   /* [in] */
 150                 ULARGE_INTEGER cb,          /* [in] */
 151                 DWORD          dwLockType); /* [in] */
 152
 153 HRESULT WINAPI HGLOBALStreamImpl_UnlockRegion(
 154                 IStream*     iface,
 155                 ULARGE_INTEGER libOffset,   /* [in] */
 156                 ULARGE_INTEGER cb,          /* [in] */
 157                 DWORD          dwLockType); /* [in] */
 158
 159 HRESULT WINAPI HGLOBALStreamImpl_Stat(
 160                 IStream*     iface,
 161                 STATSTG*       pstatstg,     /* [out] */
 162                 DWORD          grfStatFlag); /* [in] */
 163
 164 HRESULT WINAPI HGLOBALStreamImpl_Clone(
 165                 IStream*     iface,
 166                 IStream**    ppstm);       /* [out] */
 167
 168
 169 /*
 170  * Virtual function table for the HGLOBALStreamImpl class.
 171  */
 172 static ICOM_VTABLE(IStream) HGLOBALStreamImpl_Vtbl =
 173 {
 174     ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
 175     HGLOBALStreamImpl_QueryInterface,
 176     HGLOBALStreamImpl_AddRef,
 177     HGLOBALStreamImpl_Release,
 178     HGLOBALStreamImpl_Read,
 179     HGLOBALStreamImpl_Write,
 180     HGLOBALStreamImpl_Seek,
 181     HGLOBALStreamImpl_SetSize,
 182     HGLOBALStreamImpl_CopyTo,
 183     HGLOBALStreamImpl_Commit,
 184     HGLOBALStreamImpl_Revert,
 185     HGLOBALStreamImpl_LockRegion,
 186     HGLOBALStreamImpl_UnlockRegion,
 187     HGLOBALStreamImpl_Stat,
 188     HGLOBALStreamImpl_Clone
 189 };
 190
 191 /***********************************************************************
 192  *           CreateStreamOnHGlobal     [OLE32.@]
 193  */
 194 HRESULT WINAPI CreateStreamOnHGlobal(
 195                 HGLOBAL   hGlobal,
 196                 BOOL      fDeleteOnRelease,
 197                 LPSTREAM* ppstm)
 198 {
 199   HGLOBALStreamImpl* newStream;
 200
 201   newStream = HGLOBALStreamImpl_Construct(hGlobal,
 202                                           fDeleteOnRelease);
 203
 204   if (newStream!=NULL)
 205   {
 206     return IUnknown_QueryInterface((IUnknown*)newStream,
 207                                    &IID_IStream,
 208                                    (void**)ppstm);
 209   }
 210
 211   return E_OUTOFMEMORY;
 212 }
 213
 214 /***********************************************************************
 215  *           GetHGlobalFromStream     [OLE32.@]
 216  */
 217 HRESULT WINAPI GetHGlobalFromStream(IStream* pstm, HGLOBAL* phglobal)
 218 {
 219   HGLOBALStreamImpl* pStream;
 220
 221   if (pstm == NULL)
 222     return E_INVALIDARG;
 223
 224   pStream = (HGLOBALStreamImpl*) pstm;
 225
 226   /*
 227    * Verify that the stream object was created with CreateStreamOnHGlobal.
 228    */
 229   if (pStream->lpVtbl == &HGLOBALStreamImpl_Vtbl)
 230     *phglobal = pStream->supportHandle;
 231   else
 232   {
 233     *phglobal = 0;
 234     return E_INVALIDARG;
 235   }
 236
 237   return S_OK;
 238 }
 239
 240 /******************************************************************************
 241 ** HGLOBALStreamImpl implementation
 242 */
 243
 244 /***
 245  * This is the constructor for the HGLOBALStreamImpl class.
 246  *
 247  * Params:
 248  *    hGlobal          - Handle that will support the stream. can be NULL.
 249  *    fDeleteOnRelease - Flag set to TRUE if the HGLOBAL will be released
 250  *                       when the IStream object is destroyed.
 251  */
 252 HGLOBALStreamImpl* HGLOBALStreamImpl_Construct(
 253                 HGLOBAL  hGlobal,
 254                 BOOL     fDeleteOnRelease)
 255 {
 256   HGLOBALStreamImpl* newStream;
 257
 258   newStream = HeapAlloc(GetProcessHeap(), 0, sizeof(HGLOBALStreamImpl));
 259
 260   if (newStream!=0)
 261   {
 262     /*
 263      * Set-up the virtual function table and reference count.
 264      */
 265     newStream->lpVtbl = &HGLOBALStreamImpl_Vtbl;
 266     newStream->ref    = 0;
 267
 268     /*
 269      * Initialize the support.
 270      */
 271     newStream->supportHandle = hGlobal;
 272     newStream->deleteOnRelease = fDeleteOnRelease;
 273
 274     /*
 275      * This method will allocate a handle if one is not supplied.
 276      */
 277     if (!newStream->supportHandle)
 278     {
 279       newStream->supportHandle = GlobalAlloc(GMEM_MOVEABLE | GMEM_NODISCARD |
 280                                              GMEM_SHARE, 0);
 281     }
 282
 283     /*
 284      * Start the stream at the beginning.
 285      */
 286     newStream->currentPosition.s.HighPart = 0;
 287     newStream->currentPosition.s.LowPart = 0;
 288
 289     /*
 290      * Initialize the size of the stream to the size of the handle.
 291      */
 292     newStream->streamSize.s.HighPart = 0;
 293     newStream->streamSize.s.LowPart  = GlobalSize(newStream->supportHandle);
 294   }
 295
 296   return newStream;
 297 }
 298
 299 /***
 300  * This is the destructor of the HGLOBALStreamImpl class.
 301  *
 302  * This method will clean-up all the resources used-up by the given HGLOBALStreamImpl
 303  * class. The pointer passed-in to this function will be freed and will not
 304  * be valid anymore.
 305  */
 306 void HGLOBALStreamImpl_Destroy(HGLOBALStreamImpl* This)
 307 {
 308   TRACE("(%p)\n", This);
 309
 310   /*
 311    * Release the HGlobal if the constructor asked for that.
 312    */
 313   if (This->deleteOnRelease)
 314   {
 315     GlobalFree(This->supportHandle);
 316     This->supportHandle=0;
 317   }
 318
 319   /*
 320    * Finally, free the memory used-up by the class.
 321    */
 322   HeapFree(GetProcessHeap(), 0, This);
 323 }
 324
 325 /***
 326  * This implements the IUnknown method QueryInterface for this
 327  * class
 328  */
 329 HRESULT WINAPI HGLOBALStreamImpl_QueryInterface(
 330                   IStream*     iface,
 331                   REFIID         riid,        /* [in] */
 332                   void**         ppvObject)   /* [iid_is][out] */
 333 {
 334   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 335
 336   /*
 337    * Perform a sanity check on the parameters.
 338    */
 339   if (ppvObject==0)
 340     return E_INVALIDARG;
 341
 342   /*
 343    * Initialize the return parameter.
 344    */
 345   *ppvObject = 0;
 346
 347   /*
 348    * Compare the riid with the interface IDs implemented by this object.
 349    */
 350   if (memcmp(&IID_IUnknown, riid, sizeof(IID_IUnknown)) == 0)
 351   {
 352     *ppvObject = (IStream*)This;
 353   }
 354   else if (memcmp(&IID_IStream, riid, sizeof(IID_IStream)) == 0)
 355   {
 356     *ppvObject = (IStream*)This;
 357   }
 358
 359   /*
 360    * Check that we obtained an interface.
 361    */
 362   if ((*ppvObject)==0)
 363     return E_NOINTERFACE;
 364
 365   /*
 366    * Query Interface always increases the reference count by one when it is
 367    * successful
 368    */
 369   HGLOBALStreamImpl_AddRef(iface);
 370
 371   return S_OK;
 372 }
 373
 374 /***
 375  * This implements the IUnknown method AddRef for this
 376  * class
 377  */
 378 ULONG WINAPI HGLOBALStreamImpl_AddRef(
 379                 IStream* iface)
 380 {
 381   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 382
 383   This->ref++;
 384
 385   return This->ref;
 386 }
 387
 388 /***
 389  * This implements the IUnknown method Release for this
 390  * class
 391  */
 392 ULONG WINAPI HGLOBALStreamImpl_Release(
 393                 IStream* iface)
 394 {
 395   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 396
 397   ULONG newRef;
 398
 399   This->ref--;
 400
 401   newRef = This->ref;
 402
 403   /*
 404    * If the reference count goes down to 0, perform suicide.
 405    */
 406   if (newRef==0)
 407   {
 408     HGLOBALStreamImpl_Destroy(This);
 409   }
 410
 411   return newRef;
 412 }
 413
 414 /***
 415  * This method is part of the ISequentialStream interface.
 416  *
 417  * If reads a block of information from the stream at the current
 418  * position. It then moves the current position at the end of the
 419  * read block
 420  *
 421  * See the documentation of ISequentialStream for more info.
 422  */
 423 HRESULT WINAPI HGLOBALStreamImpl_Read(
 424                   IStream*     iface,
 425                   void*          pv,        /* [length_is][size_is][out] */
 426                   ULONG          cb,        /* [in] */
 427                   ULONG*         pcbRead)   /* [out] */
 428 {
 429   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 430
 431   void* supportBuffer;
 432   ULONG bytesReadBuffer;
 433   ULONG bytesToReadFromBuffer;
 434
 435   TRACE("(%p, %p, %ld, %p)\n", iface,
 436         pv, cb, pcbRead);
 437
 438   /*
 439    * If the caller is not interested in the nubmer of bytes read,
 440    * we use another buffer to avoid "if" statements in the code.
 441    */
 442   if (pcbRead==0)
 443     pcbRead = &bytesReadBuffer;
 444
 445   /*
 446    * Using the known size of the stream, calculate the number of bytes
 447    * to read from the block chain
 448    */
 449   bytesToReadFromBuffer = min( This->streamSize.s.LowPart - This->currentPosition.s.LowPart, cb);
 450
 451   /*
 452    * Lock the buffer in position and copy the data.
 453    */
 454   supportBuffer = GlobalLock(This->supportHandle);
 455
 456   memcpy(pv, (char *) supportBuffer+This->currentPosition.s.LowPart, bytesToReadFromBuffer);
 457
 458   /*
 459    * Move the current position to the new position
 460    */
 461   This->currentPosition.s.LowPart+=bytesToReadFromBuffer;
 462
 463   /*
 464    * Return the number of bytes read.
 465    */
 466   *pcbRead = bytesToReadFromBuffer;
 467
 468   /*
 469    * Cleanup
 470    */
 471   GlobalUnlock(This->supportHandle);
 472
 473   /*
 474    * The function returns S_OK if the buffer was filled completely
 475    * it returns S_FALSE if the end of the stream is reached before the
 476    * buffer is filled
 477    */
 478   if(*pcbRead == cb)
 479     return S_OK;
 480
 481   return S_FALSE;
 482 }
 483
 484 /***
 485  * This method is part of the ISequentialStream interface.
 486  *
 487  * It writes a block of information to the stream at the current
 488  * position. It then moves the current position at the end of the
 489  * written block. If the stream is too small to fit the block,
 490  * the stream is grown to fit.
 491  *
 492  * See the documentation of ISequentialStream for more info.
 493  */
 494 HRESULT WINAPI HGLOBALStreamImpl_Write(
 495                   IStream*     iface,
 496                   const void*    pv,          /* [size_is][in] */
 497                   ULONG          cb,          /* [in] */
 498                   ULONG*         pcbWritten)  /* [out] */
 499 {
 500   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 501
 502   void*          supportBuffer;
 503   ULARGE_INTEGER newSize;
 504   ULONG          bytesWritten = 0;
 505
 506   TRACE("(%p, %p, %ld, %p)\n", iface,
 507         pv, cb, pcbWritten);
 508
 509   /*
 510    * If the caller is not interested in the number of bytes written,
 511    * we use another buffer to avoid "if" statements in the code.
 512    */
 513   if (pcbWritten == 0)
 514     pcbWritten = &bytesWritten;
 515
 516   if (cb == 0)
 517   {
 518     return S_OK;
 519   }
 520   else
 521   {
 522     newSize.s.HighPart = 0;
 523     newSize.s.LowPart = This->currentPosition.s.LowPart + cb;
 524   }
 525
 526   /*
 527    * Verify if we need to grow the stream
 528    */
 529   if (newSize.s.LowPart > This->streamSize.s.LowPart)
 530   {
 531     /* grow stream */
 532    IStream_SetSize(iface, newSize);
 533   }
 534
 535   /*
 536    * Lock the buffer in position and copy the data.
 537    */
 538   supportBuffer = GlobalLock(This->supportHandle);
 539
 540   memcpy((char *) supportBuffer+This->currentPosition.s.LowPart, pv, cb);
 541
 542   /*
 543    * Move the current position to the new position
 544    */
 545   This->currentPosition.s.LowPart+=cb;
 546
 547   /*
 548    * Return the number of bytes read.
 549    */
 550   *pcbWritten = cb;
 551
 552   /*
 553    * Cleanup
 554    */
 555   GlobalUnlock(This->supportHandle);
 556
 557   return S_OK;
 558 }
 559
 560 /***
 561  * This method is part of the IStream interface.
 562  *
 563  * It will move the current stream pointer according to the parameters
 564  * given.
 565  *
 566  * See the documentation of IStream for more info.
 567  */
 568 HRESULT WINAPI HGLOBALStreamImpl_Seek(
 569                   IStream*      iface,
 570                   LARGE_INTEGER   dlibMove,         /* [in] */
 571                   DWORD           dwOrigin,         /* [in] */
 572                   ULARGE_INTEGER* plibNewPosition) /* [out] */
 573 {
 574   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 575
 576   ULARGE_INTEGER newPosition;
 577
 578   TRACE("(%p, %ld, %ld, %p)\n", iface,
 579         dlibMove.s.LowPart, dwOrigin, plibNewPosition);
 580
 581   /*
 582    * The file pointer is moved depending on the given "function"
 583    * parameter.
 584    */
 585   switch (dwOrigin)
 586   {
 587     case STREAM_SEEK_SET:
 588       newPosition.s.HighPart = 0;
 589       newPosition.s.LowPart = 0;
 590       break;
 591     case STREAM_SEEK_CUR:
 592       newPosition = This->currentPosition;
 593       break;
 594     case STREAM_SEEK_END:
 595       newPosition = This->streamSize;
 596       break;
 597     default:
 598       return STG_E_INVALIDFUNCTION;
 599   }
 600
 601   /*
 602    * Move the actual file pointer
 603    * If the file pointer ends-up after the end of the stream, the next Write operation will
 604    * make the file larger. This is how it is documented.
 605    */
 606   newPosition.QuadPart = RtlLargeIntegerAdd(newPosition.QuadPart, dlibMove.QuadPart);
 607   if (newPosition.QuadPart < 0) return STG_E_INVALIDFUNCTION;
 608
 609   if (plibNewPosition) *plibNewPosition = newPosition;
 610   This->currentPosition = newPosition;
 611
 612   return S_OK;
 613 }
 614
 615 /***
 616  * This method is part of the IStream interface.
 617  *
 618  * It will change the size of a stream.
 619  *
 620  * TODO: Switch from small blocks to big blocks and vice versa.
 621  *
 622  * See the documentation of IStream for more info.
 623  */
 624 HRESULT WINAPI HGLOBALStreamImpl_SetSize(
 625                                      IStream*      iface,
 626                                      ULARGE_INTEGER  libNewSize)   /* [in] */
 627 {
 628   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 629
 630   TRACE("(%p, %ld)\n", iface, libNewSize.s.LowPart);
 631
 632   /*
 633    * As documented.
 634    */
 635   if (libNewSize.s.HighPart != 0)
 636     return STG_E_INVALIDFUNCTION;
 637
 638   if (This->streamSize.s.LowPart == libNewSize.s.LowPart)
 639     return S_OK;
 640
 641   /*
 642    * Re allocate the HGlobal to fit the new size of the stream.
 643    */
 644   This->supportHandle = GlobalReAlloc(This->supportHandle,
 645                                       libNewSize.s.LowPart,
 646                                       0);
 647
 648   This->streamSize.s.LowPart = libNewSize.s.LowPart;
 649
 650   return S_OK;
 651 }
 652
 653 /***
 654  * This method is part of the IStream interface.
 655  *
 656  * It will copy the 'cb' Bytes to 'pstm' IStream.
 657  *
 658  * See the documentation of IStream for more info.
 659  */
 660 HRESULT WINAPI HGLOBALStreamImpl_CopyTo(
 661                                     IStream*      iface,
 662                                     IStream*      pstm,         /* [unique][in] */
 663                                     ULARGE_INTEGER  cb,           /* [in] */
 664                                     ULARGE_INTEGER* pcbRead,      /* [out] */
 665                                     ULARGE_INTEGER* pcbWritten)   /* [out] */
 666 {
 667   HRESULT        hr = S_OK;
 668   BYTE           tmpBuffer[128];
 669   ULONG          bytesRead, bytesWritten, copySize;
 670   ULARGE_INTEGER totalBytesRead;
 671   ULARGE_INTEGER totalBytesWritten;
 672
 673   TRACE("(%p, %p, %ld, %p, %p)\n", iface, pstm,
 674         cb.s.LowPart, pcbRead, pcbWritten);
 675
 676   /*
 677    * Sanity check
 678    */
 679   if ( pstm == 0 )
 680     return STG_E_INVALIDPOINTER;
 681
 682   totalBytesRead.s.LowPart = totalBytesRead.s.HighPart = 0;
 683   totalBytesWritten.s.LowPart = totalBytesWritten.s.HighPart = 0;
 684
 685   /*
 686    * use stack to store data temporarly
 687    * there is surely more performant way of doing it, for now this basic
 688    * implementation will do the job
 689    */
 690   while ( cb.s.LowPart > 0 )
 691   {
 692     if ( cb.s.LowPart >= 128 )
 693       copySize = 128;
 694     else
 695       copySize = cb.s.LowPart;
 696
 697     IStream_Read(iface, tmpBuffer, copySize, &bytesRead);
 698
 699     totalBytesRead.s.LowPart += bytesRead;
 700
 701     IStream_Write(pstm, tmpBuffer, bytesRead, &bytesWritten);
 702
 703     totalBytesWritten.s.LowPart += bytesWritten;
 704
 705     /*
 706      * Check that read & write operations were succesfull
 707      */
 708     if (bytesRead != bytesWritten)
 709     {
 710       hr = STG_E_MEDIUMFULL;
 711       break;
 712     }
 713
 714     if (bytesRead!=copySize)
 715       cb.s.LowPart = 0;
 716     else
 717       cb.s.LowPart -= bytesRead;
 718   }
 719
 720   /*
 721    * Update number of bytes read and written
 722    */
 723   if (pcbRead)
 724   {
 725     pcbRead->s.LowPart = totalBytesRead.s.LowPart;
 726     pcbRead->s.HighPart = totalBytesRead.s.HighPart;
 727   }
 728
 729   if (pcbWritten)
 730   {
 731     pcbWritten->s.LowPart = totalBytesWritten.s.LowPart;
 732     pcbWritten->s.HighPart = totalBytesWritten.s.HighPart;
 733   }
 734   return hr;
 735 }
 736
 737 /***
 738  * This method is part of the IStream interface.
 739  *
 740  * For streams supported by HGLOBALS, this function does nothing.
 741  * This is what the documentation tells us.
 742  *
 743  * See the documentation of IStream for more info.
 744  */
 745 HRESULT WINAPI HGLOBALStreamImpl_Commit(
 746                   IStream*      iface,
 747                   DWORD         grfCommitFlags)  /* [in] */
 748 {
 749   return S_OK;
 750 }
 751
 752 /***
 753  * This method is part of the IStream interface.
 754  *
 755  * For streams supported by HGLOBALS, this function does nothing.
 756  * This is what the documentation tells us.
 757  *
 758  * See the documentation of IStream for more info.
 759  */
 760 HRESULT WINAPI HGLOBALStreamImpl_Revert(
 761                   IStream* iface)
 762 {
 763   return S_OK;
 764 }
 765
 766 /***
 767  * This method is part of the IStream interface.
 768  *
 769  * For streams supported by HGLOBALS, this function does nothing.
 770  * This is what the documentation tells us.
 771  *
 772  * See the documentation of IStream for more info.
 773  */
 774 HRESULT WINAPI HGLOBALStreamImpl_LockRegion(
 775                   IStream*       iface,
 776                   ULARGE_INTEGER libOffset,   /* [in] */
 777                   ULARGE_INTEGER cb,          /* [in] */
 778                   DWORD          dwLockType)  /* [in] */
 779 {
 780   return S_OK;
 781 }
 782
 783 /*
 784  * This method is part of the IStream interface.
 785  *
 786  * For streams supported by HGLOBALS, this function does nothing.
 787  * This is what the documentation tells us.
 788  *
 789  * See the documentation of IStream for more info.
 790  */
 791 HRESULT WINAPI HGLOBALStreamImpl_UnlockRegion(
 792                   IStream*       iface,
 793                   ULARGE_INTEGER libOffset,   /* [in] */
 794                   ULARGE_INTEGER cb,          /* [in] */
 795                   DWORD          dwLockType)  /* [in] */
 796 {
 797   return S_OK;
 798 }
 799
 800 /***
 801  * This method is part of the IStream interface.
 802  *
 803  * This method returns information about the current
 804  * stream.
 805  *
 806  * See the documentation of IStream for more info.
 807  */
 808 HRESULT WINAPI HGLOBALStreamImpl_Stat(
 809                   IStream*     iface,
 810                   STATSTG*     pstatstg,     /* [out] */
 811                   DWORD        grfStatFlag)  /* [in] */
 812 {
 813   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 814
 815   memset(pstatstg, 0, sizeof(STATSTG));
 816
 817   pstatstg->pwcsName = NULL;
 818   pstatstg->type     = STGTY_STREAM;
 819   pstatstg->cbSize   = This->streamSize;
 820
 821   return S_OK;
 822 }
 823
 824 HRESULT WINAPI HGLOBALStreamImpl_Clone(
 825                   IStream*     iface,
 826                   IStream**    ppstm) /* [out] */
 827 {
 828   ULARGE_INTEGER dummy;
 829   LARGE_INTEGER offset;
 830   HRESULT hr;
 831   HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
 832   TRACE(" Cloning %p (deleteOnRelease=%d seek position=%ld)\n",iface,This->deleteOnRelease,(long)This->currentPosition.QuadPart);
 833   hr=CreateStreamOnHGlobal(This->supportHandle, FALSE, ppstm);
 834   if(FAILED(hr))
 835     return hr;
 836   offset.QuadPart=(LONGLONG)This->currentPosition.QuadPart;
 837   HGLOBALStreamImpl_Seek(*ppstm,offset,STREAM_SEEK_SET,&dummy);
 838   return S_OK;
 839 }