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 "debug.h"
   9 #include "wintypes.h"
  10 #include "wine/obj_base.h"
  11 #include "wine/obj_storage.h"
  12 #include "wine/obj_moniker.h"
  13 #include "wine/obj_dataobject.h"
  14 #include "objbase.h"
  15 #include "pidl.h"
  16 #include "winerror.h"
  17 #include "shell32_main.h"
  18
  19 UINT32 cfShellIDList=0;
  20 UINT32 cfFileGroupDesc=0;
  21 UINT32 cfFileContents=0;
  22
  23 /***********************************************************************
  24 *   IEnumFORMATETC implementation
  25 */
  26 typedef struct _IEnumFORMATETC
  27 {
  28     /* IUnknown fields */
  29     ICOM_VTABLE(IEnumFORMATETC)* lpvtbl;
  30     DWORD                        ref;
  31     /* IEnumFORMATETC fields */
  32     UINT32        posFmt;
  33     UINT32        countFmt;
  34     LPFORMATETC32 pFmt;
  35 } _IEnumFORMATETC;
  36
  37 static HRESULT WINAPI IEnumFORMATETC_fnQueryInterface(LPUNKNOWN iface, REFIID riid, LPVOID* ppvObj);
  38 static ULONG WINAPI IEnumFORMATETC_fnAddRef(LPUNKNOWN iface);
  39 static ULONG WINAPI IEnumFORMATETC_fnRelease(LPUNKNOWN iface);
  40 static HRESULT WINAPI IEnumFORMATETC_fnNext(LPENUMFORMATETC iface, ULONG celt, FORMATETC32* rgelt, ULONG* pceltFethed);
  41 static HRESULT WINAPI IEnumFORMATETC_fnSkip(LPENUMFORMATETC iface, ULONG celt);
  42 static HRESULT WINAPI IEnumFORMATETC_fnReset(LPENUMFORMATETC iface);
  43 static HRESULT WINAPI IEnumFORMATETC_fnClone(LPENUMFORMATETC iface, LPENUMFORMATETC* ppenum);
  44
  45 static struct ICOM_VTABLE(IEnumFORMATETC) efvt =
  46 {
  47     {
  48         IEnumFORMATETC_fnQueryInterface,
  49         IEnumFORMATETC_fnAddRef,
  50         IEnumFORMATETC_fnRelease
  51     },
  52     IEnumFORMATETC_fnNext,
  53     IEnumFORMATETC_fnSkip,
  54     IEnumFORMATETC_fnReset,
  55     IEnumFORMATETC_fnClone
  56 };
  57
  58 LPENUMFORMATETC IEnumFORMATETC_Constructor(UINT32 cfmt, const FORMATETC32 afmt[])
  59 {
  60         _IEnumFORMATETC* ef;
  61         DWORD size=cfmt * sizeof(FORMATETC32);
  62
  63         ef=(_IEnumFORMATETC*)HeapAlloc(GetProcessHeap(),0,sizeof(_IEnumFORMATETC));
  64         ef->ref=1;
  65         ef->lpvtbl=&efvt;
  66
  67         ef->posFmt = 0;
  68         ef->countFmt = cfmt;
  69         ef->pFmt = SHAlloc (size);
  70
  71         if (ef->pFmt)
  72         { memcpy(ef->pFmt, afmt, size);
  73         }
  74
  75         TRACE(shell,"(%p)->()\n",ef);
  76         return (LPENUMFORMATETC)ef;
  77 }
  78 static HRESULT WINAPI IEnumFORMATETC_fnQueryInterface(LPUNKNOWN iface, REFIID riid, LPVOID* ppvObj)
  79 {
  80         ICOM_THIS(IEnumFORMATETC,iface);
  81         char    xriid[50];
  82         WINE_StringFromCLSID((LPCLSID)riid,xriid);
  83         TRACE(shell,"(%p)->(\n\tIID:\t%s,%p)\n",this,xriid,ppvObj);
  84
  85                         *ppvObj = NULL;
  86
  87         if(IsEqualIID(riid, &IID_IUnknown))
  88         { *ppvObj = this;
  89         }
  90         else if(IsEqualIID(riid, &IID_IEnumFORMATETC))
  91         { *ppvObj = (IDataObject*)this;
  92         }
  93
  94         if(*ppvObj)
  95         { IEnumFORMATETC_AddRef((IEnumFORMATETC*)*ppvObj);
  96           TRACE(shell,"-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
  97           return S_OK;
  98         }
  99         TRACE(shell,"-- Interface: E_NOINTERFACE\n");
 100         return E_NOINTERFACE;
 101
 102 }
 103 static ULONG WINAPI IEnumFORMATETC_fnAddRef(LPUNKNOWN iface)
 104 {
 105         ICOM_THIS(IEnumFORMATETC,iface);
 106         TRACE(shell,"(%p)->(count=%lu)\n",this,(this->ref)+1);
 107         return ++(this->ref);
 108 }
 109 static ULONG WINAPI IEnumFORMATETC_fnRelease(LPUNKNOWN iface)
 110 {
 111         ICOM_THIS(IEnumFORMATETC,iface);
 112         TRACE(shell,"(%p)->()\n",this);
 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, FORMATETC32 *rgelt, ULONG *pceltFethed)
 124 {
 125         ICOM_THIS(IEnumFORMATETC,iface);
 126         UINT32 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(FORMATETC32));
 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(IEnumFORMATETC,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(IEnumFORMATETC,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(IEnumFORMATETC,iface);
 173         FIXME (shell, "(%p)->(ppenum=%p)\n", this, ppenum);
 174         return E_NOTIMPL;
 175 }
 176
 177 /***********************************************************************
 178 *   IDataObject implementation
 179 */
 180 typedef struct _IDataObject
 181 {
 182     /* IUnknown fields */
 183     ICOM_VTABLE(IDataObject)* lpvtbl;
 184     DWORD                     ref;
 185     /* IDataObject fields */
 186     LPSHELLFOLDER psf;
 187     LPIDLLIST     lpill;       /* the data of the dataobject */
 188     LPITEMIDLIST  pidl;
 189 } _IDataObject;
 190
 191 static HRESULT WINAPI IDataObject_fnQueryInterface(LPUNKNOWN iface, REFIID riid, LPVOID* ppvObj);
 192 static ULONG WINAPI IDataObject_fnAddRef(LPUNKNOWN iface);
 193 static ULONG WINAPI IDataObject_fnRelease(LPUNKNOWN iface);
 194 static HRESULT WINAPI IDataObject_fnGetData(LPDATAOBJECT iface, LPFORMATETC32 pformatetcIn, STGMEDIUM32* pmedium);
 195 static HRESULT WINAPI IDataObject_fnGetDataHere(LPDATAOBJECT iface, LPFORMATETC32 pformatetc, STGMEDIUM32* pmedium);
 196 static HRESULT WINAPI IDataObject_fnQueryGetData(LPDATAOBJECT iface, LPFORMATETC32 pformatetc);
 197 static HRESULT WINAPI IDataObject_fnGetCanonicalFormatEtc(LPDATAOBJECT iface, LPFORMATETC32 pformatectIn, LPFORMATETC32 pformatetcOut);
 198 static HRESULT WINAPI IDataObject_fnSetData(LPDATAOBJECT iface, LPFORMATETC32 pformatetc, STGMEDIUM32* pmedium, BOOL32 fRelease);
 199 static HRESULT WINAPI IDataObject_fnEnumFormatEtc(LPDATAOBJECT iface, DWORD dwDirection, IEnumFORMATETC** ppenumFormatEtc);
 200 static HRESULT WINAPI IDataObject_fnDAdvise(LPDATAOBJECT iface, LPFORMATETC32* pformatetc, DWORD advf, IAdviseSink* pAdvSink, DWORD* pdwConnection);
 201 static HRESULT WINAPI IDataObject_fnDUnadvise(LPDATAOBJECT iface, DWORD dwConnection);
 202 static HRESULT WINAPI IDataObject_fnEnumDAdvise(LPDATAOBJECT iface, IEnumSTATDATA **ppenumAdvise);
 203
 204 static struct ICOM_VTABLE(IDataObject) dtovt =
 205 {
 206     {
 207         IDataObject_fnQueryInterface,
 208         IDataObject_fnAddRef,
 209         IDataObject_fnRelease
 210     },
 211     IDataObject_fnGetData,
 212     IDataObject_fnGetDataHere,
 213     IDataObject_fnQueryGetData,
 214     IDataObject_fnGetCanonicalFormatEtc,
 215     IDataObject_fnSetData,
 216     IDataObject_fnEnumFormatEtc,
 217     IDataObject_fnDAdvise,
 218     IDataObject_fnDUnadvise,
 219     IDataObject_fnEnumDAdvise
 220 };
 221
 222 /**************************************************************************
 223 *  IDataObject_Constructor
 224 */
 225 LPDATAOBJECT IDataObject_Constructor(HWND32 hwndOwner, LPSHELLFOLDER psf, LPITEMIDLIST * apidl, UINT32 cidl)
 226 {
 227         _IDataObject* dto;
 228         if (!(dto = (_IDataObject*)HeapAlloc(GetProcessHeap(),0,sizeof(_IDataObject))))
 229           return NULL;
 230
 231         dto->ref=1;
 232         dto->lpvtbl=&dtovt;
 233         dto->psf=psf;
 234         dto->pidl=ILClone(psf->mpidl); /* FIXME:add a reference and don't copy*/
 235
 236         /* fill the ItemID List List */
 237         dto->lpill = IDLList_Constructor (8);
 238         if (! dto->lpill )
 239           return NULL;
 240
 241         dto->lpill->lpvtbl->fnAddItems(dto->lpill, apidl, cidl);
 242
 243         TRACE(shell,"(%p)->(sf=%p apidl=%p cidl=%u)\n",dto, psf, apidl, cidl);
 244         return (LPDATAOBJECT)dto;
 245 }
 246 /***************************************************************************
 247 *  IDataObject_QueryInterface
 248 */
 249 static HRESULT WINAPI IDataObject_fnQueryInterface (LPUNKNOWN iface, REFIID riid, LPVOID * ppvObj)
 250 {
 251         ICOM_THIS(IDataObject,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(LPUNKNOWN iface)
 277 {
 278         ICOM_THIS(IDataObject,iface);
 279         TRACE(shell,"(%p)->(count=%lu)\n",this,(this->ref)+1);
 280         return ++(this->ref);
 281 }
 282 /**************************************************************************
 283 *  IDataObject_Release
 284 */
 285 static ULONG WINAPI IDataObject_fnRelease(LPUNKNOWN iface)
 286 {
 287         ICOM_THIS(IDataObject,iface);
 288         TRACE(shell,"(%p)->()\n",this);
 289         if (!--(this->ref))
 290         { TRACE(shell," destroying IDataObject(%p)\n",this);
 291           IDLList_Destructor(this->lpill);
 292           HeapFree(GetProcessHeap(),0,this);
 293           return 0;
 294         }
 295         return this->ref;
 296 }
 297 /**************************************************************************
 298 * DATAOBJECT_InitShellIDList (internal)
 299 *
 300 * NOTES
 301 *  get or register the "Shell IDList Array" clipformat
 302 */
 303 static BOOL32 DATAOBJECT_InitShellIDList(void)
 304 {       if (cfShellIDList)
 305         { return(TRUE);
 306         }
 307
 308         cfShellIDList = RegisterClipboardFormat32A(CFSTR_SHELLIDLIST);
 309         return(cfShellIDList != 0);
 310 }
 311
 312 /**************************************************************************
 313 * DATAOBJECT_InitFileGroupDesc (internal)
 314 *
 315 * NOTES
 316 *  get or register the "FileGroupDescriptor" clipformat
 317 */
 318 /* FIXME: DATAOBJECT_InitFileGroupDesc is not used (19981226)
 319 static BOOL32 DATAOBJECT_InitFileGroupDesc(void)
 320 {       if (cfFileGroupDesc)
 321         { return(TRUE);
 322         }
 323
 324         cfFileGroupDesc = RegisterClipboardFormat32A(CFSTR_FILEDESCRIPTORA);
 325         return(cfFileGroupDesc != 0);
 326 }
 327 */
 328 /**************************************************************************
 329 * DATAOBJECT_InitFileContents (internal)
 330 *
 331 * NOTES
 332  * get or register the "FileContents" clipformat
 333 */
 334 /* FIXME: DATAOBJECT_InitFileContents is not used (19981226)
 335 static BOOL32 DATAOBJECT_InitFileContents(void)
 336 {       if (cfFileContents)
 337         { return(TRUE);
 338         }
 339
 340         cfFileContents = RegisterClipboardFormat32A(CFSTR_FILECONTENTS);
 341         return(cfFileContents != 0);
 342 }
 343 */
 344
 345 /**************************************************************************
 346 * interface implementation
 347 */
 348 static HRESULT WINAPI IDataObject_fnGetData(LPDATAOBJECT iface, LPFORMATETC32 pformatetcIn, STGMEDIUM32 *pmedium)
 349 {
 350         ICOM_THIS(IDataObject,iface);
 351         char    temp[256];
 352         UINT32  cItems;
 353         DWORD   size, size1, size2;
 354         LPITEMIDLIST pidl;
 355         LPCIDA pcida;
 356         HGLOBAL32 hmem;
 357
 358         GetClipboardFormatName32A (pformatetcIn->cfFormat, temp, 256);
 359         WARN (shell, "(%p)->(%p %p format=%s)semi-stub\n", this, pformatetcIn, pmedium, temp);
 360
 361         if (!DATAOBJECT_InitShellIDList())      /* is the clipformat registred? */
 362         { return(E_UNEXPECTED);
 363         }
 364
 365         if (pformatetcIn->cfFormat == cfShellIDList)
 366         { if (pformatetcIn->ptd==NULL
 367                 && (pformatetcIn->dwAspect & DVASPECT_CONTENT)
 368                 && pformatetcIn->lindex==-1
 369                 && (pformatetcIn->tymed&TYMED_HGLOBAL))
 370           { cItems = this->lpill->lpvtbl->fnGetCount(this->lpill);
 371             if (cItems < 1)
 372             { return(E_UNEXPECTED);
 373             }
 374             pidl = this->lpill->lpvtbl->fnGetElement(this->lpill, 0);
 375
 376             pdump(this->pidl);
 377             pdump(pidl);
 378
 379             /*hack consider only the first item*/
 380             cItems = 2;
 381             size = sizeof(CIDA) + sizeof (UINT32)*(cItems-1);
 382             size1 = ILGetSize (this->pidl);
 383             size2 = ILGetSize (pidl);
 384             hmem = GlobalAlloc32(GMEM_FIXED, size+size1+size2);
 385             pcida = GlobalLock32 (hmem);
 386             if (!pcida)
 387             { return(E_OUTOFMEMORY);
 388             }
 389
 390             pcida->cidl = 1;
 391             pcida->aoffset[0] = size;
 392             pcida->aoffset[1] = size+size1;
 393
 394             TRACE(shell,"-- %lu %lu %lu\n",size, size1, size2 );
 395             TRACE(shell,"-- %p %p\n",this->pidl, pidl);
 396             TRACE(shell,"-- %p %p %p\n",pcida, (LPBYTE)pcida+size,(LPBYTE)pcida+size+size1);
 397
 398             memcpy ((LPBYTE)pcida+size, this->pidl, size1);
 399             memcpy ((LPBYTE)pcida+size+size1, pidl, size2);
 400             TRACE(shell,"-- after copy\n");
 401
 402             GlobalUnlock32(hmem);
 403
 404             pmedium->tymed = TYMED_HGLOBAL;
 405             pmedium->u.hGlobal = (HGLOBAL32)pcida;
 406             pmedium->pUnkForRelease = NULL;
 407             TRACE(shell,"-- ready\n");
 408             return(NOERROR);
 409           }
 410         }
 411         FIXME (shell, "-- clipformat not implemented\n");
 412         return (E_INVALIDARG);
 413 }
 414 static HRESULT WINAPI IDataObject_fnGetDataHere(LPDATAOBJECT iface, LPFORMATETC32 pformatetc, STGMEDIUM32 *pmedium)
 415 {
 416         ICOM_THIS(IDataObject,iface);
 417         FIXME (shell, "(%p)->()\n", this);
 418         return E_NOTIMPL;
 419 }
 420 static HRESULT WINAPI IDataObject_fnQueryGetData(LPDATAOBJECT iface, LPFORMATETC32 pformatetc)
 421 {
 422         ICOM_THIS(IDataObject,iface);
 423         FIXME (shell, "(%p)->()\n", this);
 424         return E_NOTIMPL;
 425 }
 426 static HRESULT WINAPI IDataObject_fnGetCanonicalFormatEtc(LPDATAOBJECT iface, LPFORMATETC32 pformatectIn, LPFORMATETC32 pformatetcOut)
 427 {
 428         ICOM_THIS(IDataObject,iface);
 429         FIXME (shell, "(%p)->()\n", this);
 430         return E_NOTIMPL;
 431 }
 432 static HRESULT WINAPI IDataObject_fnSetData(LPDATAOBJECT iface, LPFORMATETC32 pformatetc, STGMEDIUM32 *pmedium, BOOL32 fRelease)
 433 {
 434         ICOM_THIS(IDataObject,iface);
 435         FIXME (shell, "(%p)->()\n", this);
 436         return E_NOTIMPL;
 437 }
 438 static HRESULT WINAPI IDataObject_fnEnumFormatEtc(LPDATAOBJECT iface, DWORD dwDirection, IEnumFORMATETC **ppenumFormatEtc)
 439 {
 440         ICOM_THIS(IDataObject,iface);
 441         FIXME (shell, "(%p)->()\n", this);
 442         return E_NOTIMPL;
 443 }
 444 static HRESULT WINAPI IDataObject_fnDAdvise(LPDATAOBJECT iface, LPFORMATETC32 *pformatetc, DWORD advf, IAdviseSink *pAdvSink, DWORD *pdwConnection)
 445 {
 446         ICOM_THIS(IDataObject,iface);
 447         FIXME (shell, "(%p)->()\n", this);
 448         return E_NOTIMPL;
 449 }
 450 static HRESULT WINAPI IDataObject_fnDUnadvise(LPDATAOBJECT iface, DWORD dwConnection)
 451 {
 452         ICOM_THIS(IDataObject,iface);
 453         FIXME (shell, "(%p)->()\n", this);
 454         return E_NOTIMPL;
 455 }
 456 static HRESULT WINAPI IDataObject_fnEnumDAdvise(LPDATAOBJECT iface, IEnumSTATDATA **ppenumAdvise)
 457 {
 458         ICOM_THIS(IDataObject,iface);
 459         FIXME (shell, "(%p)->()\n", this);
 460         return E_NOTIMPL;
 461 }