2 * IEnumFORMATETC, IDataObject
4 * selecting and droping objects within the shell and/or common dialogs
6 * Copyright 1998, 1999 <juergen.schmied@metronet.de>
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.
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.
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
25 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
27 /***********************************************************************
28 * IEnumFORMATETC implementation
34 const IEnumFORMATETCVtbl
*lpVtbl
;
36 /* IEnumFORMATETC fields */
42 static HRESULT WINAPI
IEnumFORMATETC_fnQueryInterface(
43 LPENUMFORMATETC iface
, REFIID riid
, LPVOID
* ppvObj
)
45 IEnumFORMATETCImpl
*This
= (IEnumFORMATETCImpl
*)iface
;
46 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This
,debugstr_guid(riid
),ppvObj
);
50 if(IsEqualIID(riid
, &IID_IUnknown
))
54 else if(IsEqualIID(riid
, &IID_IEnumFORMATETC
))
56 *ppvObj
= (IEnumFORMATETC
*)This
;
61 IUnknown_AddRef((IUnknown
*)(*ppvObj
));
62 TRACE("-- Interface: (%p)->(%p)\n",ppvObj
,*ppvObj
);
65 TRACE("-- Interface: E_NOINTERFACE\n");
69 static ULONG WINAPI
IEnumFORMATETC_fnAddRef(LPENUMFORMATETC iface
)
71 IEnumFORMATETCImpl
*This
= (IEnumFORMATETCImpl
*)iface
;
72 ULONG refCount
= InterlockedIncrement(&This
->ref
);
74 TRACE("(%p)->(count=%u)\n", This
, refCount
- 1);
79 static ULONG WINAPI
IEnumFORMATETC_fnRelease(LPENUMFORMATETC iface
)
81 IEnumFORMATETCImpl
*This
= (IEnumFORMATETCImpl
*)iface
;
82 ULONG refCount
= InterlockedDecrement(&This
->ref
);
84 TRACE("(%p)->(%u)\n", This
, refCount
+ 1);
88 TRACE(" destroying IEnumFORMATETC(%p)\n",This
);
90 HeapFree(GetProcessHeap(),0,This
);
96 static HRESULT WINAPI
IEnumFORMATETC_fnNext(LPENUMFORMATETC iface
, ULONG celt
, FORMATETC
*rgelt
, ULONG
*pceltFethed
)
98 IEnumFORMATETCImpl
*This
= (IEnumFORMATETCImpl
*)iface
;
101 TRACE("(%p)->(%u,%p)\n", This
, celt
, rgelt
);
103 if(!This
->pFmt
)return S_FALSE
;
104 if(!rgelt
) return E_INVALIDARG
;
105 if (pceltFethed
) *pceltFethed
= 0;
107 for(i
= 0; This
->posFmt
< This
->countFmt
&& celt
> i
; i
++)
109 *rgelt
++ = This
->pFmt
[This
->posFmt
++];
112 if (pceltFethed
) *pceltFethed
= i
;
114 return ((i
== celt
) ? S_OK
: S_FALSE
);
117 static HRESULT WINAPI
IEnumFORMATETC_fnSkip(LPENUMFORMATETC iface
, ULONG celt
)
119 IEnumFORMATETCImpl
*This
= (IEnumFORMATETCImpl
*)iface
;
120 TRACE("(%p)->(num=%u)\n", This
, celt
);
122 if((This
->posFmt
+ celt
) >= This
->countFmt
) return S_FALSE
;
123 This
->posFmt
+= celt
;
127 static HRESULT WINAPI
IEnumFORMATETC_fnReset(LPENUMFORMATETC iface
)
129 IEnumFORMATETCImpl
*This
= (IEnumFORMATETCImpl
*)iface
;
130 TRACE("(%p)->()\n", This
);
136 static HRESULT WINAPI
IEnumFORMATETC_fnClone(LPENUMFORMATETC iface
, LPENUMFORMATETC
* ppenum
)
138 IEnumFORMATETCImpl
*This
= (IEnumFORMATETCImpl
*)iface
;
139 TRACE("(%p)->(ppenum=%p)\n", This
, ppenum
);
141 if (!ppenum
) return E_INVALIDARG
;
142 *ppenum
= IEnumFORMATETC_Constructor(This
->countFmt
, This
->pFmt
);
144 IEnumFORMATETC_fnSkip(*ppenum
, This
->posFmt
);
148 static const IEnumFORMATETCVtbl efvt
=
150 IEnumFORMATETC_fnQueryInterface
,
151 IEnumFORMATETC_fnAddRef
,
152 IEnumFORMATETC_fnRelease
,
153 IEnumFORMATETC_fnNext
,
154 IEnumFORMATETC_fnSkip
,
155 IEnumFORMATETC_fnReset
,
156 IEnumFORMATETC_fnClone
159 LPENUMFORMATETC
IEnumFORMATETC_Constructor(UINT cfmt
, const FORMATETC afmt
[])
161 IEnumFORMATETCImpl
* ef
;
162 DWORD size
=cfmt
* sizeof(FORMATETC
);
164 ef
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IEnumFORMATETCImpl
));
172 ef
->pFmt
= SHAlloc (size
);
175 memcpy(ef
->pFmt
, afmt
, size
);
178 TRACE("(%p)->(%u,%p)\n",ef
, cfmt
, afmt
);
179 return (LPENUMFORMATETC
)ef
;
183 /***********************************************************************
184 * IDataObject implementation
187 /* number of supported formats */
188 #define MAX_FORMATS 4
192 /* IUnknown fields */
193 const IDataObjectVtbl
*lpVtbl
;
196 /* IDataObject fields */
198 LPITEMIDLIST
* apidl
;
201 FORMATETC pFormatEtc
[MAX_FORMATS
];
208 /***************************************************************************
209 * IDataObject_QueryInterface
211 static HRESULT WINAPI
IDataObject_fnQueryInterface(LPDATAOBJECT iface
, REFIID riid
, LPVOID
* ppvObj
)
213 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
214 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This
,debugstr_guid(riid
),ppvObj
);
218 if(IsEqualIID(riid
, &IID_IUnknown
)) /*IUnknown*/
222 else if(IsEqualIID(riid
, &IID_IDataObject
)) /*IDataObject*/
224 *ppvObj
= (IDataObject
*)This
;
229 IUnknown_AddRef((IUnknown
*)*ppvObj
);
230 TRACE("-- Interface: (%p)->(%p)\n",ppvObj
,*ppvObj
);
233 TRACE("-- Interface: E_NOINTERFACE\n");
234 return E_NOINTERFACE
;
237 /**************************************************************************
240 static ULONG WINAPI
IDataObject_fnAddRef(LPDATAOBJECT iface
)
242 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
243 ULONG refCount
= InterlockedIncrement(&This
->ref
);
245 TRACE("(%p)->(count=%u)\n", This
, refCount
- 1);
250 /**************************************************************************
251 * IDataObject_Release
253 static ULONG WINAPI
IDataObject_fnRelease(LPDATAOBJECT iface
)
255 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
256 ULONG refCount
= InterlockedDecrement(&This
->ref
);
258 TRACE("(%p)->(%u)\n", This
, refCount
+ 1);
262 TRACE(" destroying IDataObject(%p)\n",This
);
263 _ILFreeaPidl(This
->apidl
, This
->cidl
);
265 HeapFree(GetProcessHeap(),0,This
);
270 /**************************************************************************
271 * IDataObject_fnGetData
273 static HRESULT WINAPI
IDataObject_fnGetData(LPDATAOBJECT iface
, LPFORMATETC pformatetcIn
, STGMEDIUM
*pmedium
)
275 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
280 GetClipboardFormatNameA (pformatetcIn
->cfFormat
, szTemp
, 256);
281 TRACE("(%p)->(%p %p format=%s)\n", This
, pformatetcIn
, pmedium
, szTemp
);
283 if (pformatetcIn
->cfFormat
== This
->cfShellIDList
)
285 if (This
->cidl
< 1) return(E_UNEXPECTED
);
286 pmedium
->u
.hGlobal
= RenderSHELLIDLIST(This
->pidl
, This
->apidl
, This
->cidl
);
288 else if (pformatetcIn
->cfFormat
== CF_HDROP
)
290 if (This
->cidl
< 1) return(E_UNEXPECTED
);
291 pmedium
->u
.hGlobal
= RenderHDROP(This
->pidl
, This
->apidl
, This
->cidl
);
293 else if (pformatetcIn
->cfFormat
== This
->cfFileNameA
)
295 if (This
->cidl
< 1) return(E_UNEXPECTED
);
296 pmedium
->u
.hGlobal
= RenderFILENAMEA(This
->pidl
, This
->apidl
, This
->cidl
);
298 else if (pformatetcIn
->cfFormat
== This
->cfFileNameW
)
300 if (This
->cidl
< 1) return(E_UNEXPECTED
);
301 pmedium
->u
.hGlobal
= RenderFILENAMEW(This
->pidl
, This
->apidl
, This
->cidl
);
305 FIXME("-- expected clipformat not implemented\n");
306 return (E_INVALIDARG
);
308 if (pmedium
->u
.hGlobal
)
310 pmedium
->tymed
= TYMED_HGLOBAL
;
311 pmedium
->pUnkForRelease
= NULL
;
314 return E_OUTOFMEMORY
;
317 static HRESULT WINAPI
IDataObject_fnGetDataHere(LPDATAOBJECT iface
, LPFORMATETC pformatetc
, STGMEDIUM
*pmedium
)
319 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
320 FIXME("(%p)->()\n", This
);
324 static HRESULT WINAPI
IDataObject_fnQueryGetData(LPDATAOBJECT iface
, LPFORMATETC pformatetc
)
326 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
329 TRACE("(%p)->(fmt=0x%08x tym=0x%08x)\n", This
, pformatetc
->cfFormat
, pformatetc
->tymed
);
331 if(!(DVASPECT_CONTENT
& pformatetc
->dwAspect
))
332 return DV_E_DVASPECT
;
334 /* check our formats table what we have */
335 for (i
=0; i
<MAX_FORMATS
; i
++)
337 if ((This
->pFormatEtc
[i
].cfFormat
== pformatetc
->cfFormat
)
338 && (This
->pFormatEtc
[i
].tymed
== pformatetc
->tymed
))
347 static HRESULT WINAPI
IDataObject_fnGetCanonicalFormatEtc(LPDATAOBJECT iface
, LPFORMATETC pformatectIn
, LPFORMATETC pformatetcOut
)
349 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
350 FIXME("(%p)->()\n", This
);
354 static HRESULT WINAPI
IDataObject_fnSetData(LPDATAOBJECT iface
, LPFORMATETC pformatetc
, STGMEDIUM
*pmedium
, BOOL fRelease
)
356 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
357 FIXME("(%p)->()\n", This
);
361 static HRESULT WINAPI
IDataObject_fnEnumFormatEtc(LPDATAOBJECT iface
, DWORD dwDirection
, IEnumFORMATETC
**ppenumFormatEtc
)
363 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
365 TRACE("(%p)->()\n", This
);
366 *ppenumFormatEtc
=NULL
;
369 if (DATADIR_GET
== dwDirection
)
371 *ppenumFormatEtc
= IEnumFORMATETC_Constructor(MAX_FORMATS
, This
->pFormatEtc
);
372 return (*ppenumFormatEtc
) ? S_OK
: E_FAIL
;
378 static HRESULT WINAPI
IDataObject_fnDAdvise(LPDATAOBJECT iface
, FORMATETC
*pformatetc
, DWORD advf
, IAdviseSink
*pAdvSink
, DWORD
*pdwConnection
)
380 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
381 FIXME("(%p)->()\n", This
);
384 static HRESULT WINAPI
IDataObject_fnDUnadvise(LPDATAOBJECT iface
, DWORD dwConnection
)
386 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
387 FIXME("(%p)->()\n", This
);
390 static HRESULT WINAPI
IDataObject_fnEnumDAdvise(LPDATAOBJECT iface
, IEnumSTATDATA
**ppenumAdvise
)
392 IDataObjectImpl
*This
= (IDataObjectImpl
*)iface
;
393 FIXME("(%p)->()\n", This
);
397 static const IDataObjectVtbl dtovt
=
399 IDataObject_fnQueryInterface
,
400 IDataObject_fnAddRef
,
401 IDataObject_fnRelease
,
402 IDataObject_fnGetData
,
403 IDataObject_fnGetDataHere
,
404 IDataObject_fnQueryGetData
,
405 IDataObject_fnGetCanonicalFormatEtc
,
406 IDataObject_fnSetData
,
407 IDataObject_fnEnumFormatEtc
,
408 IDataObject_fnDAdvise
,
409 IDataObject_fnDUnadvise
,
410 IDataObject_fnEnumDAdvise
413 /**************************************************************************
414 * IDataObject_Constructor
416 LPDATAOBJECT
IDataObject_Constructor(HWND hwndOwner
,
417 LPCITEMIDLIST pMyPidl
, LPCITEMIDLIST
* apidl
, UINT cidl
)
419 IDataObjectImpl
* dto
;
421 dto
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IDataObjectImpl
));
426 dto
->lpVtbl
= &dtovt
;
427 dto
->pidl
= ILClone(pMyPidl
);
428 dto
->apidl
= _ILCopyaPidl(apidl
, cidl
);
431 dto
->cfShellIDList
= RegisterClipboardFormatW(CFSTR_SHELLIDLIST
);
432 dto
->cfFileNameA
= RegisterClipboardFormatA(CFSTR_FILENAMEA
);
433 dto
->cfFileNameW
= RegisterClipboardFormatW(CFSTR_FILENAMEW
);
434 InitFormatEtc(dto
->pFormatEtc
[0], dto
->cfShellIDList
, TYMED_HGLOBAL
);
435 InitFormatEtc(dto
->pFormatEtc
[1], CF_HDROP
, TYMED_HGLOBAL
);
436 InitFormatEtc(dto
->pFormatEtc
[2], dto
->cfFileNameA
, TYMED_HGLOBAL
);
437 InitFormatEtc(dto
->pFormatEtc
[3], dto
->cfFileNameW
, TYMED_HGLOBAL
);
440 TRACE("(%p)->(apidl=%p cidl=%u)\n",dto
, apidl
, cidl
);
441 return (LPDATAOBJECT
)dto
;
444 /*************************************************************************
445 * SHCreateDataObject [SHELL32.@]
449 HRESULT WINAPI
SHCreateDataObject(LPCITEMIDLIST pidlFolder
, UINT cidl
, LPCITEMIDLIST
* apidl
, IDataObject
*pdtInner
, REFIID riid
, void **ppv
)
451 if (IsEqualIID(riid
, &IID_IDataObject
))
453 return CIDLData_CreateFromIDArray(pidlFolder
, cidl
, apidl
, (IDataObject
**)ppv
);