reactos/dll/win32/ole32/filelockbytes.c

   1 /******************************************************************************
   2  *
   3  * File-based ILockBytes implementation
   4  *
   5  * Copyright 1999 Thuy Nguyen
   6  * Copyright 2010 Vincent Povirk for CodeWeavers
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  21  */
  22
  23 #include <assert.h>
  24 #include <stdlib.h>
  25 #include <stdarg.h>
  26 #include <stdio.h>
  27 #include <string.h>
  28 #include <limits.h>
  29
  30 #define COBJMACROS
  31 #define NONAMELESSUNION
  32 #define NONAMELESSSTRUCT
  33
  34 #include "windef.h"
  35 #include "winbase.h"
  36 #include "winuser.h"
  37 #include "winerror.h"
  38 #include "objbase.h"
  39 #include "ole2.h"
  40
  41 #include "storage32.h"
  42
  43 #include "wine/debug.h"
  44 #include "wine/unicode.h"
  45
  46 WINE_DEFAULT_DEBUG_CHANNEL(storage);
  47
  48 typedef struct FileLockBytesImpl
  49 {
  50     ILockBytes ILockBytes_iface;
  51     LONG ref;
  52     ULARGE_INTEGER filesize;
  53     HANDLE hfile;
  54     DWORD flProtect;
  55     LPWSTR pwcsName;
  56 } FileLockBytesImpl;
  57
  58 static const ILockBytesVtbl FileLockBytesImpl_Vtbl;
  59
  60 static inline FileLockBytesImpl *impl_from_ILockBytes(ILockBytes *iface)
  61 {
  62     return CONTAINING_RECORD(iface, FileLockBytesImpl, ILockBytes_iface);
  63 }
  64
  65 /***********************************************************
  66  * Prototypes for private methods
  67  */
  68
  69 /* Note that this evaluates a and b multiple times, so don't
  70  * pass expressions with side effects. */
  71 #define ROUND_UP(a, b) ((((a) + (b) - 1)/(b))*(b))
  72
  73 /****************************************************************************
  74  *      GetProtectMode
  75  *
  76  * This function will return a protection mode flag for a file-mapping object
  77  * from the open flags of a file.
  78  */
  79 static DWORD GetProtectMode(DWORD openFlags)
  80 {
  81     switch(STGM_ACCESS_MODE(openFlags))
  82     {
  83     case STGM_WRITE:
  84     case STGM_READWRITE:
  85         return PAGE_READWRITE;
  86     }
  87     return PAGE_READONLY;
  88 }
  89
  90 /******************************************************************************
  91  *      FileLockBytesImpl_Construct
  92  *
  93  * Initialize a big block object supported by a file.
  94  */
  95 HRESULT FileLockBytesImpl_Construct(HANDLE hFile, DWORD openFlags, LPCWSTR pwcsName, ILockBytes **pLockBytes)
  96 {
  97   FileLockBytesImpl *This;
  98   WCHAR fullpath[MAX_PATH];
  99
 100   if (hFile == INVALID_HANDLE_VALUE)
 101     return E_FAIL;
 102
 103   This = HeapAlloc(GetProcessHeap(), 0, sizeof(FileLockBytesImpl));
 104
 105   if (!This)
 106     return E_OUTOFMEMORY;
 107
 108   This->ILockBytes_iface.lpVtbl = &FileLockBytesImpl_Vtbl;
 109   This->ref = 1;
 110   This->hfile = hFile;
 111   This->filesize.u.LowPart = GetFileSize(This->hfile,
 112                                          &This->filesize.u.HighPart);
 113   This->flProtect = GetProtectMode(openFlags);
 114
 115   if(pwcsName) {
 116     if (!GetFullPathNameW(pwcsName, MAX_PATH, fullpath, NULL))
 117     {
 118       lstrcpynW(fullpath, pwcsName, MAX_PATH);
 119     }
 120     This->pwcsName = HeapAlloc(GetProcessHeap(), 0,
 121                               (lstrlenW(fullpath)+1)*sizeof(WCHAR));
 122     if (!This->pwcsName)
 123     {
 124        HeapFree(GetProcessHeap(), 0, This);
 125        return E_OUTOFMEMORY;
 126     }
 127     strcpyW(This->pwcsName, fullpath);
 128   }
 129   else
 130     This->pwcsName = NULL;
 131
 132   TRACE("file len %u\n", This->filesize.u.LowPart);
 133
 134   *pLockBytes = &This->ILockBytes_iface;
 135
 136   return S_OK;
 137 }
 138
 139 /* ILockByte Interfaces */
 140
 141 static HRESULT WINAPI FileLockBytesImpl_QueryInterface(ILockBytes *iface, REFIID riid,
 142     void **ppvObject)
 143 {
 144     if (IsEqualIID(riid, &IID_ILockBytes) || IsEqualIID(riid, &IID_ILockBytes))
 145         *ppvObject = iface;
 146     else
 147     {
 148         *ppvObject = NULL;
 149         return E_NOINTERFACE;
 150     }
 151
 152     IUnknown_AddRef((IUnknown*)*ppvObject);
 153
 154     return S_OK;
 155 }
 156
 157 static ULONG WINAPI FileLockBytesImpl_AddRef(ILockBytes *iface)
 158 {
 159     FileLockBytesImpl* This = impl_from_ILockBytes(iface);
 160     return InterlockedIncrement(&This->ref);
 161 }
 162
 163 static ULONG WINAPI FileLockBytesImpl_Release(ILockBytes *iface)
 164 {
 165     FileLockBytesImpl* This = impl_from_ILockBytes(iface);
 166     ULONG ref;
 167
 168     ref = InterlockedDecrement(&This->ref);
 169
 170     if (ref == 0)
 171     {
 172         CloseHandle(This->hfile);
 173         HeapFree(GetProcessHeap(), 0, This->pwcsName);
 174         HeapFree(GetProcessHeap(), 0, This);
 175     }
 176
 177     return ref;
 178 }
 179
 180 /******************************************************************************
 181  * This method is part of the ILockBytes interface.
 182  *
 183  * It reads a block of information from the byte array at the specified
 184  * offset.
 185  *
 186  * See the documentation of ILockBytes for more info.
 187  */
 188 static HRESULT WINAPI FileLockBytesImpl_ReadAt(
 189       ILockBytes* iface,
 190       ULARGE_INTEGER ulOffset,  /* [in] */
 191       void*          pv,        /* [length_is][size_is][out] */
 192       ULONG          cb,        /* [in] */
 193       ULONG*         pcbRead)   /* [out] */
 194 {
 195     FileLockBytesImpl* This = impl_from_ILockBytes(iface);
 196     ULONG bytes_left = cb;
 197     LPBYTE readPtr = pv;
 198     BOOL ret;
 199     LARGE_INTEGER offset;
 200     ULONG cbRead;
 201
 202     TRACE("(%p)-> %i %p %i %p\n",This, ulOffset.u.LowPart, pv, cb, pcbRead);
 203
 204     /* verify a sane environment */
 205     if (!This) return E_FAIL;
 206
 207     if (pcbRead)
 208         *pcbRead = 0;
 209
 210     offset.QuadPart = ulOffset.QuadPart;
 211
 212     ret = SetFilePointerEx(This->hfile, offset, NULL, FILE_BEGIN);
 213
 214     if (!ret)
 215         return STG_E_READFAULT;
 216
 217     while (bytes_left)
 218     {
 219         ret = ReadFile(This->hfile, readPtr, bytes_left, &cbRead, NULL);
 220
 221         if (!ret || cbRead == 0)
 222             return STG_E_READFAULT;
 223
 224         if (pcbRead)
 225             *pcbRead += cbRead;
 226
 227         bytes_left -= cbRead;
 228         readPtr += cbRead;
 229     }
 230
 231     TRACE("finished\n");
 232     return S_OK;
 233 }
 234
 235 /******************************************************************************
 236  * This method is part of the ILockBytes interface.
 237  *
 238  * It writes the specified bytes at the specified offset.
 239  * position. If the file is too small, it will be resized.
 240  *
 241  * See the documentation of ILockBytes for more info.
 242  */
 243 static HRESULT WINAPI FileLockBytesImpl_WriteAt(
 244       ILockBytes* iface,
 245       ULARGE_INTEGER ulOffset,    /* [in] */
 246       const void*    pv,          /* [size_is][in] */
 247       ULONG          cb,          /* [in] */
 248       ULONG*         pcbWritten)  /* [out] */
 249 {
 250     FileLockBytesImpl* This = impl_from_ILockBytes(iface);
 251     ULONG size_needed = ulOffset.u.LowPart + cb;
 252     ULONG bytes_left = cb;
 253     const BYTE *writePtr = pv;
 254     BOOL ret;
 255     LARGE_INTEGER offset;
 256     ULONG cbWritten;
 257
 258     TRACE("(%p)-> %i %p %i %p\n",This, ulOffset.u.LowPart, pv, cb, pcbWritten);
 259
 260     /* verify a sane environment */
 261     if (!This) return E_FAIL;
 262
 263     if (This->flProtect != PAGE_READWRITE)
 264         return STG_E_ACCESSDENIED;
 265
 266     if (pcbWritten)
 267         *pcbWritten = 0;
 268
 269     if (size_needed > This->filesize.u.LowPart)
 270     {
 271         ULARGE_INTEGER newSize;
 272         newSize.u.HighPart = 0;
 273         newSize.u.LowPart = size_needed;
 274         ILockBytes_SetSize(iface, newSize);
 275     }
 276
 277     offset.QuadPart = ulOffset.QuadPart;
 278
 279     ret = SetFilePointerEx(This->hfile, offset, NULL, FILE_BEGIN);
 280
 281     if (!ret)
 282         return STG_E_READFAULT;
 283
 284     while (bytes_left)
 285     {
 286         ret = WriteFile(This->hfile, writePtr, bytes_left, &cbWritten, NULL);
 287
 288         if (!ret)
 289             return STG_E_READFAULT;
 290
 291         if (pcbWritten)
 292             *pcbWritten += cbWritten;
 293
 294         bytes_left -= cbWritten;
 295         writePtr += cbWritten;
 296     }
 297
 298     TRACE("finished\n");
 299     return S_OK;
 300 }
 301
 302 static HRESULT WINAPI FileLockBytesImpl_Flush(ILockBytes* iface)
 303 {
 304     return S_OK;
 305 }
 306
 307 /******************************************************************************
 308  *      ILockBytes_SetSize
 309  *
 310  * Sets the size of the file.
 311  *
 312  */
 313 static HRESULT WINAPI FileLockBytesImpl_SetSize(ILockBytes* iface, ULARGE_INTEGER newSize)
 314 {
 315     FileLockBytesImpl* This = impl_from_ILockBytes(iface);
 316     HRESULT hr = S_OK;
 317     LARGE_INTEGER newpos;
 318
 319     if (This->filesize.u.LowPart == newSize.u.LowPart)
 320         return hr;
 321
 322     TRACE("from %u to %u\n", This->filesize.u.LowPart, newSize.u.LowPart);
 323
 324     newpos.QuadPart = newSize.QuadPart;
 325     if (SetFilePointerEx(This->hfile, newpos, NULL, FILE_BEGIN))
 326     {
 327         SetEndOfFile(This->hfile);
 328     }
 329
 330     This->filesize = newSize;
 331     return hr;
 332 }
 333
 334 static HRESULT WINAPI FileLockBytesImpl_LockRegion(ILockBytes* iface,
 335     ULARGE_INTEGER libOffset, ULARGE_INTEGER cb, DWORD dwLockType)
 336 {
 337     FIXME("stub\n");
 338     return E_NOTIMPL;
 339 }
 340
 341 static HRESULT WINAPI FileLockBytesImpl_UnlockRegion(ILockBytes* iface,
 342     ULARGE_INTEGER libOffset, ULARGE_INTEGER cb, DWORD dwLockType)
 343 {
 344     FIXME("stub\n");
 345     return E_NOTIMPL;
 346 }
 347
 348 static HRESULT WINAPI FileLockBytesImpl_Stat(ILockBytes* iface,
 349     STATSTG *pstatstg, DWORD grfStatFlag)
 350 {
 351     FileLockBytesImpl* This = impl_from_ILockBytes(iface);
 352
 353     if (!(STATFLAG_NONAME & grfStatFlag) && This->pwcsName)
 354     {
 355         pstatstg->pwcsName =
 356           CoTaskMemAlloc((lstrlenW(This->pwcsName)+1)*sizeof(WCHAR));
 357
 358         strcpyW(pstatstg->pwcsName, This->pwcsName);
 359     }
 360     else
 361         pstatstg->pwcsName = NULL;
 362
 363     pstatstg->type = STGTY_LOCKBYTES;
 364     pstatstg->cbSize = This->filesize;
 365     /* FIXME: If the implementation is exported, we'll need to set other fields. */
 366
 367     return S_OK;
 368 }
 369
 370 static const ILockBytesVtbl FileLockBytesImpl_Vtbl = {
 371     FileLockBytesImpl_QueryInterface,
 372     FileLockBytesImpl_AddRef,
 373     FileLockBytesImpl_Release,
 374     FileLockBytesImpl_ReadAt,
 375     FileLockBytesImpl_WriteAt,
 376     FileLockBytesImpl_Flush,
 377     FileLockBytesImpl_SetSize,
 378     FileLockBytesImpl_LockRegion,
 379     FileLockBytesImpl_UnlockRegion,
 380     FileLockBytesImpl_Stat
 381 };