dlls/shell32/dataobject.c

   1 /*
   2  *      IEnumFORMATETC, IDataObject
   3  *
   4  * selecting and droping objects within the shell and/or common dialogs
   5  *
   6  *      Copyright 1998  <juergen.schmied@metronet.de>
   7  */
   8 #include <string.h>
   9
  10 #include "oleidl.h"
  11 #include "pidl.h"
  12 #include "winerror.h"
  13 #include "shell32_main.h"
  14 #include "debug.h"
  15
  16 UINT cfShellIDList=0;
  17 UINT cfFileGroupDesc=0;
  18 UINT cfFileContents=0;
  19
  20 /***********************************************************************
  21 *   IEnumFORMATETC implementation
  22 */
  23 typedef struct
  24 {
  25     /* IUnknown fields */
  26     ICOM_VTABLE(IEnumFORMATETC)* lpvtbl;
  27     DWORD                        ref;
  28     /* IEnumFORMATETC fields */
  29     UINT        posFmt;
  30     UINT        countFmt;
  31     LPFORMATETC pFmt;
  32 } IEnumFORMATETCImpl;
  33
  34 static HRESULT WINAPI IEnumFORMATETC_fnQueryInterface(LPENUMFORMATETC iface, REFIID riid, LPVOID* ppvObj);
  35 static ULONG WINAPI IEnumFORMATETC_fnAddRef(LPENUMFORMATETC iface);
  36 static ULONG WINAPI IEnumFORMATETC_fnRelease(LPENUMFORMATETC iface);
  37 static HRESULT WINAPI IEnumFORMATETC_fnNext(LPENUMFORMATETC iface, ULONG celt, FORMATETC* rgelt, ULONG* pceltFethed);
  38 static HRESULT WINAPI IEnumFORMATETC_fnSkip(LPENUMFORMATETC iface, ULONG celt);
  39 static HRESULT WINAPI IEnumFORMATETC_fnReset(LPENUMFORMATETC iface);
  40 static HRESULT WINAPI IEnumFORMATETC_fnClone(LPENUMFORMATETC iface, LPENUMFORMATETC* ppenum);
  41
  42 static struct ICOM_VTABLE(IEnumFORMATETC) efvt =
  43 {
  44         IEnumFORMATETC_fnQueryInterface,
  45         IEnumFORMATETC_fnAddRef,
  46     IEnumFORMATETC_fnRelease,
  47     IEnumFORMATETC_fnNext,
  48     IEnumFORMATETC_fnSkip,
  49     IEnumFORMATETC_fnReset,
  50     IEnumFORMATETC_fnClone
  51 };
  52
  53 LPENUMFORMATETC IEnumFORMATETC_Constructor(UINT cfmt, const FORMATETC afmt[])
  54 {
  55         IEnumFORMATETCImpl* ef;
  56         DWORD size=cfmt * sizeof(FORMATETC);
  57
  58         ef=(IEnumFORMATETCImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IEnumFORMATETCImpl));
  59         ef->ref=1;
  60         ef->lpvtbl=&efvt;
  61
  62         ef->posFmt = 0;
  63         ef->countFmt = cfmt;
  64         ef->pFmt = SHAlloc (size);
  65
  66         if (ef->pFmt)
  67         { memcpy(ef->pFmt, afmt, size);
  68         }
  69
  70         TRACE(shell,"(%p)->()\n",ef);
  71         shell32_ObjCount++;
  72         return (LPENUMFORMATETC)ef;
  73 }
  74 static HRESULT WINAPI IEnumFORMATETC_fnQueryInterface(LPENUMFORMATETC iface, REFIID riid, LPVOID* ppvObj)
  75 {
  76         ICOM_THIS(IEnumFORMATETCImpl,iface);
  77         char    xriid[50];
  78         WINE_StringFromCLSID((LPCLSID)riid,xriid);
  79         TRACE(shell,"(%p)->(\n\tIID:\t%s,%p)\n",This,xriid,ppvObj);
  80
  81                         *ppvObj = NULL;
  82
  83         if(IsEqualIID(riid, &IID_IUnknown))
  84         { *ppvObj = This;
  85         }
  86         else if(IsEqualIID(riid, &IID_IEnumFORMATETC))
  87         { *ppvObj = (IDataObject*)This;
  88         }
  89
  90         if(*ppvObj)
  91         { IEnumFORMATETC_AddRef((IEnumFORMATETC*)*ppvObj);
  92           TRACE(shell,"-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
  93           return S_OK;
  94         }
  95         TRACE(shell,"-- Interface: E_NOINTERFACE\n");
  96         return E_NOINTERFACE;
  97
  98 }
  99 static ULONG WINAPI IEnumFORMATETC_fnAddRef(LPENUMFORMATETC iface)
 100 {
 101         ICOM_THIS(IEnumFORMATETCImpl,iface);
 102         TRACE(shell,"(%p)->(count=%lu)\n",This,(This->ref)+1);
 103         shell32_ObjCount++;
 104         return ++(This->ref);
 105 }
 106 static ULONG WINAPI IEnumFORMATETC_fnRelease(LPENUMFORMATETC iface)
 107 {
 108         ICOM_THIS(IEnumFORMATETCImpl,iface);
 109         TRACE(shell,"(%p)->()\n",This);
 110
 111         shell32_ObjCount--;
 112
 113         if (!--(This->ref))
 114         { TRACE(shell," destroying IEnumFORMATETC(%p)\n",This);
 115           if (This->pFmt)
 116           { SHFree (This->pFmt);
 117           }
 118           HeapFree(GetProcessHeap(),0,This);
 119           return 0;
 120         }
 121         return This->ref;
 122 }
 123 static HRESULT WINAPI IEnumFORMATETC_fnNext(LPENUMFORMATETC iface, ULONG celt, FORMATETC *rgelt, ULONG *pceltFethed)
 124 {
 125         ICOM_THIS(IEnumFORMATETCImpl,iface);
 126         UINT cfetch;
 127         HRESULT hres = S_FALSE;
 128
 129         TRACE (shell, "(%p)->()\n", This);
 130
 131         if (This->posFmt < This->countFmt)
 132         { cfetch = This->countFmt - This->posFmt;
 133           if (cfetch >= celt)
 134           { cfetch = celt;
 135             hres = S_OK;
 136           }
 137           memcpy(rgelt, &This->pFmt[This->posFmt], cfetch * sizeof(FORMATETC));
 138           This->posFmt += cfetch;
 139         }
 140         else
 141         { cfetch = 0;
 142         }
 143
 144         if (pceltFethed)
 145         { *pceltFethed = cfetch;
 146         }
 147
 148         return hres;
 149 }
 150 static HRESULT WINAPI IEnumFORMATETC_fnSkip(LPENUMFORMATETC iface, ULONG celt)
 151 {
 152         ICOM_THIS(IEnumFORMATETCImpl,iface);
 153         FIXME (shell, "(%p)->(num=%lu)\n", This, celt);
 154
 155         This->posFmt += celt;
 156         if (This->posFmt > This->countFmt)
 157         { This->posFmt = This->countFmt;
 158           return S_FALSE;
 159         }
 160         return S_OK;
 161 }
 162 static HRESULT WINAPI IEnumFORMATETC_fnReset(LPENUMFORMATETC iface)
 163 {
 164         ICOM_THIS(IEnumFORMATETCImpl,iface);
 165         FIXME (shell, "(%p)->()\n", This);
 166
 167         This->posFmt = 0;
 168         return S_OK;
 169 }
 170 static HRESULT WINAPI IEnumFORMATETC_fnClone(LPENUMFORMATETC iface, LPENUMFORMATETC* ppenum)
 171 {
 172         ICOM_THIS(IEnumFORMATETCImpl,iface);
 173         FIXME (shell, "(%p)->(ppenum=%p)\n", This, ppenum);
 174         return E_NOTIMPL;
 175 }
 176
 177 /***********************************************************************
 178 *   IDataObject implementation
 179 */
 180
 181 typedef struct
 182 {
 183     /* IUnknown fields */
 184     ICOM_VTABLE(IDataObject)* lpvtbl;
 185     DWORD                     ref;
 186     /* IDataObject fields */
 187     LPSHELLFOLDER psf;
 188     LPIDLLIST     lpill;       /* the data of the dataobject */
 189     LPITEMIDLIST  pidl;
 190 } IDataObjectImpl;
 191
 192 static HRESULT WINAPI IDataObject_fnQueryInterface(LPDATAOBJECT iface, REFIID riid, LPVOID* ppvObj);
 193 static ULONG WINAPI IDataObject_fnAddRef(LPDATAOBJECT iface);
 194 static ULONG WINAPI IDataObject_fnRelease(LPDATAOBJECT iface);
 195 static HRESULT WINAPI IDataObject_fnGetData(LPDATAOBJECT iface, LPFORMATETC pformatetcIn, STGMEDIUM* pmedium);
 196 static HRESULT WINAPI IDataObject_fnGetDataHere(LPDATAOBJECT iface, LPFORMATETC pformatetc, STGMEDIUM* pmedium);
 197 static HRESULT WINAPI IDataObject_fnQueryGetData(LPDATAOBJECT iface, LPFORMATETC pformatetc);
 198 static HRESULT WINAPI IDataObject_fnGetCanonicalFormatEtc(LPDATAOBJECT iface, LPFORMATETC pformatectIn, LPFORMATETC pformatetcOut);
 199 static HRESULT WINAPI IDataObject_fnSetData(LPDATAOBJECT iface, LPFORMATETC pformatetc, STGMEDIUM* pmedium, BOOL fRelease);
 200 static HRESULT WINAPI IDataObject_fnEnumFormatEtc(LPDATAOBJECT iface, DWORD dwDirection, IEnumFORMATETC** ppenumFormatEtc);
 201 static HRESULT WINAPI IDataObject_fnDAdvise(LPDATAOBJECT iface, LPFORMATETC* pformatetc, DWORD advf, IAdviseSink* pAdvSink, DWORD* pdwConnection);
 202 static HRESULT WINAPI IDataObject_fnDUnadvise(LPDATAOBJECT iface, DWORD dwConnection);
 203 static HRESULT WINAPI IDataObject_fnEnumDAdvise(LPDATAOBJECT iface, IEnumSTATDATA **ppenumAdvise);
 204
 205 static struct ICOM_VTABLE(IDataObject) dtovt =
 206 {
 207         IDataObject_fnQueryInterface,
 208         IDataObject_fnAddRef,
 209     IDataObject_fnRelease,
 210     IDataObject_fnGetData,
 211     IDataObject_fnGetDataHere,
 212     IDataObject_fnQueryGetData,
 213     IDataObject_fnGetCanonicalFormatEtc,
 214     IDataObject_fnSetData,
 215     IDataObject_fnEnumFormatEtc,
 216     IDataObject_fnDAdvise,
 217     IDataObject_fnDUnadvise,
 218     IDataObject_fnEnumDAdvise
 219 };
 220
 221 /**************************************************************************
 222 *  IDataObject_Constructor
 223 */
 224 LPDATAOBJECT IDataObject_Constructor(HWND hwndOwner, LPSHELLFOLDER psf, LPITEMIDLIST * apidl, UINT cidl)
 225 {
 226         IDataObjectImpl* dto;
 227         if (!(dto = (IDataObjectImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IDataObjectImpl))))
 228           return NULL;
 229
 230         dto->ref=1;
 231         dto->lpvtbl=&dtovt;
 232         dto->psf=psf;
 233         dto->pidl=ILClone(((IGenericSFImpl*)psf)->pMyPidl); /* FIXME:add a reference and don't copy*/
 234
 235         /* fill the ItemID List List */
 236         dto->lpill = IDLList_Constructor (8);
 237         if (! dto->lpill )
 238           return NULL;
 239
 240         dto->lpill->lpvtbl->fnAddItems(dto->lpill, apidl, cidl);
 241
 242         TRACE(shell,"(%p)->(sf=%p apidl=%p cidl=%u)\n",dto, psf, apidl, cidl);
 243         shell32_ObjCount++;
 244         return (LPDATAOBJECT)dto;
 245 }
 246 /***************************************************************************
 247 *  IDataObject_QueryInterface
 248 */
 249 static HRESULT WINAPI IDataObject_fnQueryInterface(LPDATAOBJECT iface, REFIID riid, LPVOID * ppvObj)
 250 {
 251         ICOM_THIS(IDataObjectImpl,iface);
 252         char    xriid[50];
 253         WINE_StringFromCLSID((LPCLSID)riid,xriid);
 254         TRACE(shell,"(%p)->(\n\tIID:\t%s,%p)\n",This,xriid,ppvObj);
 255
 256         *ppvObj = NULL;
 257
 258         if(IsEqualIID(riid, &IID_IUnknown))          /*IUnknown*/
 259         { *ppvObj = This;
 260         }
 261         else if(IsEqualIID(riid, &IID_IDataObject))  /*IDataObject*/
 262         { *ppvObj = (IDataObject*)This;
 263         }
 264
 265         if(*ppvObj)
 266         { IDataObject_AddRef((IDataObject*)*ppvObj);
 267           TRACE(shell,"-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
 268           return S_OK;
 269         }
 270         TRACE(shell,"-- Interface: E_NOINTERFACE\n");
 271         return E_NOINTERFACE;
 272 }
 273 /**************************************************************************
 274 *  IDataObject_AddRef
 275 */
 276 static ULONG WINAPI IDataObject_fnAddRef(LPDATAOBJECT iface)
 277 {
 278         ICOM_THIS(IDataObjectImpl,iface);
 279
 280         TRACE(shell,"(%p)->(count=%lu)\n",This,(This->ref)+1);
 281
 282         shell32_ObjCount++;
 283         return ++(This->ref);
 284 }
 285 /**************************************************************************
 286 *  IDataObject_Release
 287 */
 288 static ULONG WINAPI IDataObject_fnRelease(LPDATAOBJECT iface)
 289 {
 290         ICOM_THIS(IDataObjectImpl,iface);
 291         TRACE(shell,"(%p)->()\n",This);
 292
 293         shell32_ObjCount--;
 294
 295         if (!--(This->ref))
 296         { TRACE(shell," destroying IDataObject(%p)\n",This);
 297           IDLList_Destructor(This->lpill);
 298           HeapFree(GetProcessHeap(),0,This);
 299           return 0;
 300         }
 301         return This->ref;
 302 }
 303 /**************************************************************************
 304 * DATAOBJECT_InitShellIDList (internal)
 305 *
 306 * NOTES
 307 *  get or register the "Shell IDList Array" clipformat
 308 */
 309 static BOOL DATAOBJECT_InitShellIDList(void)
 310 {       if (cfShellIDList)
 311         { return(TRUE);
 312         }
 313
 314         cfShellIDList = RegisterClipboardFormatA(CFSTR_SHELLIDLIST);
 315         return(cfShellIDList != 0);
 316 }
 317
 318 /**************************************************************************
 319 * DATAOBJECT_InitFileGroupDesc (internal)
 320 *
 321 * NOTES
 322 *  get or register the "FileGroupDescriptor" clipformat
 323 */
 324 /* FIXME: DATAOBJECT_InitFileGroupDesc is not used (19981226)
 325 static BOOL32 DATAOBJECT_InitFileGroupDesc(void)
 326 {       if (cfFileGroupDesc)
 327         { return(TRUE);
 328         }
 329
 330         cfFileGroupDesc = RegisterClipboardFormatA(CFSTR_FILEDESCRIPTORA);
 331         return(cfFileGroupDesc != 0);
 332 }
 333 */
 334 /**************************************************************************
 335 * DATAOBJECT_InitFileContents (internal)
 336 *
 337 * NOTES
 338  * get or register the "FileContents" clipformat
 339 */
 340 /* FIXME: DATAOBJECT_InitFileContents is not used (19981226)
 341 static BOOL32 DATAOBJECT_InitFileContents(void)
 342 {       if (cfFileContents)
 343         { return(TRUE);
 344         }
 345
 346         cfFileContents = RegisterClipboardFormatA(CFSTR_FILECONTENTS);
 347         return(cfFileContents != 0);
 348 }
 349 */
 350
 351 /**************************************************************************
 352 * interface implementation
 353 */
 354 static HRESULT WINAPI IDataObject_fnGetData(LPDATAOBJECT iface, LPFORMATETC pformatetcIn, STGMEDIUM *pmedium)
 355 {
 356         ICOM_THIS(IDataObjectImpl,iface);
 357         char    temp[256];
 358         UINT    cItems;
 359         DWORD   size, size1, size2;
 360         LPITEMIDLIST pidl;
 361         LPCIDA pcida;
 362         HGLOBAL hmem;
 363
 364         GetClipboardFormatNameA (pformatetcIn->cfFormat, temp, 256);
 365         WARN (shell, "(%p)->(%p %p format=%s)semi-stub\n", This, pformatetcIn, pmedium, temp);
 366
 367         if (!DATAOBJECT_InitShellIDList())      /* is the clipformat registred? */
 368         { return(E_UNEXPECTED);
 369         }
 370
 371         if (pformatetcIn->cfFormat == cfShellIDList)
 372         { if (pformatetcIn->ptd==NULL
 373                 && (pformatetcIn->dwAspect & DVASPECT_CONTENT)
 374                 && pformatetcIn->lindex==-1
 375                 && (pformatetcIn->tymed&TYMED_HGLOBAL))
 376           { cItems = This->lpill->lpvtbl->fnGetCount(This->lpill);
 377             if (cItems < 1)
 378             { return(E_UNEXPECTED);
 379             }
 380             pidl = This->lpill->lpvtbl->fnGetElement(This->lpill, 0);
 381
 382             pdump(This->pidl);
 383             pdump(pidl);
 384
 385             /*hack consider only the first item*/
 386             cItems = 2;
 387             size = sizeof(CIDA) + sizeof (UINT)*(cItems-1);
 388             size1 = ILGetSize (This->pidl);
 389             size2 = ILGetSize (pidl);
 390             hmem = GlobalAlloc(GMEM_FIXED, size+size1+size2);
 391             pcida = GlobalLock (hmem);
 392             if (!pcida)
 393             { return(E_OUTOFMEMORY);
 394             }
 395
 396             pcida->cidl = 1;
 397             pcida->aoffset[0] = size;
 398             pcida->aoffset[1] = size+size1;
 399
 400             TRACE(shell,"-- %lu %lu %lu\n",size, size1, size2 );
 401             TRACE(shell,"-- %p %p\n",This->pidl, pidl);
 402             TRACE(shell,"-- %p %p %p\n",pcida, (LPBYTE)pcida+size,(LPBYTE)pcida+size+size1);
 403
 404             memcpy ((LPBYTE)pcida+size, This->pidl, size1);
 405             memcpy ((LPBYTE)pcida+size+size1, pidl, size2);
 406             TRACE(shell,"-- after copy\n");
 407
 408             GlobalUnlock(hmem);
 409
 410             pmedium->tymed = TYMED_HGLOBAL;
 411             pmedium->u.hGlobal = (HGLOBAL)pcida;
 412             pmedium->pUnkForRelease = NULL;
 413             TRACE(shell,"-- ready\n");
 414             return(NOERROR);
 415           }
 416         }
 417         FIXME (shell, "-- clipformat not implemented\n");
 418         return (E_INVALIDARG);
 419 }
 420 static HRESULT WINAPI IDataObject_fnGetDataHere(LPDATAOBJECT iface, LPFORMATETC pformatetc, STGMEDIUM *pmedium)
 421 {
 422         ICOM_THIS(IDataObjectImpl,iface);
 423         FIXME (shell, "(%p)->()\n", This);
 424         return E_NOTIMPL;
 425 }
 426 static HRESULT WINAPI IDataObject_fnQueryGetData(LPDATAOBJECT iface, LPFORMATETC pformatetc)
 427 {
 428         ICOM_THIS(IDataObjectImpl,iface);
 429         FIXME (shell, "(%p)->()\n", This);
 430         return E_NOTIMPL;
 431 }
 432 static HRESULT WINAPI IDataObject_fnGetCanonicalFormatEtc(LPDATAOBJECT iface, LPFORMATETC pformatectIn, LPFORMATETC pformatetcOut)
 433 {
 434         ICOM_THIS(IDataObjectImpl,iface);
 435         FIXME (shell, "(%p)->()\n", This);
 436         return E_NOTIMPL;
 437 }
 438 static HRESULT WINAPI IDataObject_fnSetData(LPDATAOBJECT iface, LPFORMATETC pformatetc, STGMEDIUM *pmedium, BOOL fRelease)
 439 {
 440         ICOM_THIS(IDataObjectImpl,iface);
 441         FIXME (shell, "(%p)->()\n", This);
 442         return E_NOTIMPL;
 443 }
 444 static HRESULT WINAPI IDataObject_fnEnumFormatEtc(LPDATAOBJECT iface, DWORD dwDirection, IEnumFORMATETC **ppenumFormatEtc)
 445 {
 446         ICOM_THIS(IDataObjectImpl,iface);
 447         FIXME (shell, "(%p)->()\n", This);
 448         return E_NOTIMPL;
 449 }
 450 static HRESULT WINAPI IDataObject_fnDAdvise(LPDATAOBJECT iface, LPFORMATETC *pformatetc, DWORD advf, IAdviseSink *pAdvSink, DWORD *pdwConnection)
 451 {
 452         ICOM_THIS(IDataObjectImpl,iface);
 453         FIXME (shell, "(%p)->()\n", This);
 454         return E_NOTIMPL;
 455 }
 456 static HRESULT WINAPI IDataObject_fnDUnadvise(LPDATAOBJECT iface, DWORD dwConnection)
 457 {
 458         ICOM_THIS(IDataObjectImpl,iface);
 459         FIXME (shell, "(%p)->()\n", This);
 460         return E_NOTIMPL;
 461 }
 462 static HRESULT WINAPI IDataObject_fnEnumDAdvise(LPDATAOBJECT iface, IEnumSTATDATA **ppenumAdvise)
 463 {
 464         ICOM_THIS(IDataObjectImpl,iface);
 465         FIXME (shell, "(%p)->()\n", This);
 466         return E_NOTIMPL;
 467 }