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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 #define NONAMELESSUNION
25 #define NONAMELESSSTRUCT
30 #include "shell32_main.h"
31 #include "wine/debug.h"
32 #include "undocshell.h"
34 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
36 /***********************************************************************
37 * IEnumFORMATETC implementation
43 IEnumFORMATETCVtbl
*lpVtbl
;
45 /* IEnumFORMATETC fields */
51 static HRESULT WINAPI
IEnumFORMATETC_fnQueryInterface(LPENUMFORMATETC iface
, REFIID riid
, LPVOID
* ppvObj
);
52 static ULONG WINAPI
IEnumFORMATETC_fnAddRef(LPENUMFORMATETC iface
);
53 static ULONG WINAPI
IEnumFORMATETC_fnRelease(LPENUMFORMATETC iface
);
54 static HRESULT WINAPI
IEnumFORMATETC_fnNext(LPENUMFORMATETC iface
, ULONG celt
, FORMATETC
* rgelt
, ULONG
* pceltFethed
);
55 static HRESULT WINAPI
IEnumFORMATETC_fnSkip(LPENUMFORMATETC iface
, ULONG celt
);
56 static HRESULT WINAPI
IEnumFORMATETC_fnReset(LPENUMFORMATETC iface
);
57 static HRESULT WINAPI
IEnumFORMATETC_fnClone(LPENUMFORMATETC iface
, LPENUMFORMATETC
* ppenum
);
59 static struct IEnumFORMATETCVtbl efvt
=
61 IEnumFORMATETC_fnQueryInterface
,
62 IEnumFORMATETC_fnAddRef
,
63 IEnumFORMATETC_fnRelease
,
64 IEnumFORMATETC_fnNext
,
65 IEnumFORMATETC_fnSkip
,
66 IEnumFORMATETC_fnReset
,
67 IEnumFORMATETC_fnClone
70 LPENUMFORMATETC
IEnumFORMATETC_Constructor(UINT cfmt
, const FORMATETC afmt
[])
72 IEnumFORMATETCImpl
* ef
;
73 DWORD size
=cfmt
* sizeof(FORMATETC
);
75 ef
=(IEnumFORMATETCImpl
*)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IEnumFORMATETCImpl
));
83 ef
->pFmt
= SHAlloc (size
);
87 memcpy(ef
->pFmt
, afmt
, size
);
91 TRACE("(%p)->(%u,%p)\n",ef
, cfmt
, afmt
);
92 return (LPENUMFORMATETC
)ef
;
95 static HRESULT WINAPI
IEnumFORMATETC_fnQueryInterface(LPENUMFORMATETC iface
, REFIID riid
, LPVOID
* ppvObj
)
97 ICOM_THIS(IEnumFORMATETCImpl
,iface
);
98 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This
,debugstr_guid(riid
),ppvObj
);
102 if(IsEqualIID(riid
, &IID_IUnknown
))
106 else if(IsEqualIID(riid
, &IID_IEnumFORMATETC
))
108 *ppvObj
= (IEnumFORMATETC
*)This
;
113 IUnknown_AddRef((IUnknown
*)(*ppvObj
));
114 TRACE("-- Interface: (%p)->(%p)\n",ppvObj
,*ppvObj
);
117 TRACE("-- Interface: E_NOINTERFACE\n");
118 return E_NOINTERFACE
;
122 static ULONG WINAPI
IEnumFORMATETC_fnAddRef(LPENUMFORMATETC iface
)
124 ICOM_THIS(IEnumFORMATETCImpl
,iface
);
125 TRACE("(%p)->(count=%lu)\n",This
, This
->ref
);
126 return ++(This
->ref
);
129 static ULONG WINAPI
IEnumFORMATETC_fnRelease(LPENUMFORMATETC iface
)
131 ICOM_THIS(IEnumFORMATETCImpl
,iface
);
132 TRACE("(%p)->()\n",This
);
136 TRACE(" destroying IEnumFORMATETC(%p)\n",This
);
141 HeapFree(GetProcessHeap(),0,This
);
147 static HRESULT WINAPI
IEnumFORMATETC_fnNext(LPENUMFORMATETC iface
, ULONG celt
, FORMATETC
*rgelt
, ULONG
*pceltFethed
)
149 ICOM_THIS(IEnumFORMATETCImpl
,iface
);
152 TRACE("(%p)->(%lu,%p)\n", This
, celt
, rgelt
);
154 if(!This
->pFmt
)return S_FALSE
;
155 if(!rgelt
) return E_INVALIDARG
;
156 if (pceltFethed
) *pceltFethed
= 0;
158 for(i
= 0; This
->posFmt
< This
->countFmt
&& celt
> i
; i
++)
160 *rgelt
++ = This
->pFmt
[This
->posFmt
++];
163 if (pceltFethed
) *pceltFethed
= i
;
165 return ((i
== celt
) ? S_OK
: S_FALSE
);
168 static HRESULT WINAPI
IEnumFORMATETC_fnSkip(LPENUMFORMATETC iface
, ULONG celt
)
170 ICOM_THIS(IEnumFORMATETCImpl
,iface
);
171 TRACE("(%p)->(num=%lu)\n", This
, celt
);
173 if((This
->posFmt
+ celt
) >= This
->countFmt
) return S_FALSE
;
174 This
->posFmt
+= celt
;
178 static HRESULT WINAPI
IEnumFORMATETC_fnReset(LPENUMFORMATETC iface
)
180 ICOM_THIS(IEnumFORMATETCImpl
,iface
);
181 TRACE("(%p)->()\n", This
);
187 static HRESULT WINAPI
IEnumFORMATETC_fnClone(LPENUMFORMATETC iface
, LPENUMFORMATETC
* ppenum
)
189 ICOM_THIS(IEnumFORMATETCImpl
,iface
);
190 TRACE("(%p)->(ppenum=%p)\n", This
, ppenum
);
192 if (!ppenum
) return E_INVALIDARG
;
193 *ppenum
= IEnumFORMATETC_Constructor(This
->countFmt
, This
->pFmt
);
195 IEnumFORMATETC_fnSkip(*ppenum
, This
->posFmt
);
200 /***********************************************************************
201 * IDataObject implementation
204 /* number of supported formats */
205 #define MAX_FORMATS 4
209 /* IUnknown fields */
210 IDataObjectVtbl
*lpVtbl
;
213 /* IDataObject fields */
215 LPITEMIDLIST
* apidl
;
218 FORMATETC pFormatEtc
[MAX_FORMATS
];
225 static struct IDataObjectVtbl dtovt
;
227 /**************************************************************************
228 * IDataObject_Constructor
230 LPDATAOBJECT
IDataObject_Constructor(HWND hwndOwner
, LPCITEMIDLIST pMyPidl
, LPCITEMIDLIST
* apidl
, UINT cidl
)
232 IDataObjectImpl
* dto
;
234 dto
= (IDataObjectImpl
*)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IDataObjectImpl
));
239 dto
->lpVtbl
= &dtovt
;
240 dto
->pidl
= ILClone(pMyPidl
);
241 dto
->apidl
= _ILCopyaPidl(apidl
, cidl
);
244 dto
->cfShellIDList
= RegisterClipboardFormatA(CFSTR_SHELLIDLIST
);
245 dto
->cfFileNameA
= RegisterClipboardFormatA(CFSTR_FILENAMEA
);
246 dto
->cfFileNameW
= RegisterClipboardFormatA(CFSTR_FILENAMEW
);
247 InitFormatEtc(dto
->pFormatEtc
[0], dto
->cfShellIDList
, TYMED_HGLOBAL
);
248 InitFormatEtc(dto
->pFormatEtc
[1], CF_HDROP
, TYMED_HGLOBAL
);
249 InitFormatEtc(dto
->pFormatEtc
[2], dto
->cfFileNameA
, TYMED_HGLOBAL
);
250 InitFormatEtc(dto
->pFormatEtc
[3], dto
->cfFileNameW
, TYMED_HGLOBAL
);
253 TRACE("(%p)->(apidl=%p cidl=%u)\n",dto
, apidl
, cidl
);
254 return (LPDATAOBJECT
)dto
;
257 /***************************************************************************
258 * IDataObject_QueryInterface
260 static HRESULT WINAPI
IDataObject_fnQueryInterface(LPDATAOBJECT iface
, REFIID riid
, LPVOID
* ppvObj
)
262 ICOM_THIS(IDataObjectImpl
,iface
);
263 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This
,debugstr_guid(riid
),ppvObj
);
267 if(IsEqualIID(riid
, &IID_IUnknown
)) /*IUnknown*/
271 else if(IsEqualIID(riid
, &IID_IDataObject
)) /*IDataObject*/
273 *ppvObj
= (IDataObject
*)This
;
278 IUnknown_AddRef((IUnknown
*)*ppvObj
);
279 TRACE("-- Interface: (%p)->(%p)\n",ppvObj
,*ppvObj
);
282 TRACE("-- Interface: E_NOINTERFACE\n");
283 return E_NOINTERFACE
;
286 /**************************************************************************
289 static ULONG WINAPI
IDataObject_fnAddRef(LPDATAOBJECT iface
)
291 ICOM_THIS(IDataObjectImpl
,iface
);
292 TRACE("(%p)->(count=%lu)\n",This
, This
->ref
);
293 return ++(This
->ref
);
296 /**************************************************************************
297 * IDataObject_Release
299 static ULONG WINAPI
IDataObject_fnRelease(LPDATAOBJECT iface
)
301 ICOM_THIS(IDataObjectImpl
,iface
);
302 TRACE("(%p)->()\n",This
);
306 TRACE(" destroying IDataObject(%p)\n",This
);
307 _ILFreeaPidl(This
->apidl
, This
->cidl
);
309 HeapFree(GetProcessHeap(),0,This
);
315 /**************************************************************************
316 * IDataObject_fnGetData
318 static HRESULT WINAPI
IDataObject_fnGetData(LPDATAOBJECT iface
, LPFORMATETC pformatetcIn
, STGMEDIUM
*pmedium
)
320 ICOM_THIS(IDataObjectImpl
,iface
);
325 GetClipboardFormatNameA (pformatetcIn
->cfFormat
, szTemp
, 256);
326 TRACE("(%p)->(%p %p format=%s)\n", This
, pformatetcIn
, pmedium
, szTemp
);
328 if (pformatetcIn
->cfFormat
== This
->cfShellIDList
)
330 if (This
->cidl
< 1) return(E_UNEXPECTED
);
331 pmedium
->u
.hGlobal
= RenderSHELLIDLIST(This
->pidl
, This
->apidl
, This
->cidl
);
333 else if (pformatetcIn
->cfFormat
== CF_HDROP
)
335 if (This
->cidl
< 1) return(E_UNEXPECTED
);
336 pmedium
->u
.hGlobal
= RenderHDROP(This
->pidl
, This
->apidl
, This
->cidl
);
338 else if (pformatetcIn
->cfFormat
== This
->cfFileNameA
)
340 if (This
->cidl
< 1) return(E_UNEXPECTED
);
341 pmedium
->u
.hGlobal
= RenderFILENAMEA(This
->pidl
, This
->apidl
, This
->cidl
);
343 else if (pformatetcIn
->cfFormat
== This
->cfFileNameW
)
345 if (This
->cidl
< 1) return(E_UNEXPECTED
);
346 pmedium
->u
.hGlobal
= RenderFILENAMEW(This
->pidl
, This
->apidl
, This
->cidl
);
350 FIXME("-- expected clipformat not implemented\n");
351 return (E_INVALIDARG
);
353 if (pmedium
->u
.hGlobal
)
355 pmedium
->tymed
= TYMED_HGLOBAL
;
356 pmedium
->pUnkForRelease
= NULL
;
359 return E_OUTOFMEMORY
;
362 static HRESULT WINAPI
IDataObject_fnGetDataHere(LPDATAOBJECT iface
, LPFORMATETC pformatetc
, STGMEDIUM
*pmedium
)
364 ICOM_THIS(IDataObjectImpl
,iface
);
365 FIXME("(%p)->()\n", This
);
369 static HRESULT WINAPI
IDataObject_fnQueryGetData(LPDATAOBJECT iface
, LPFORMATETC pformatetc
)
371 ICOM_THIS(IDataObjectImpl
,iface
);
374 TRACE("(%p)->(fmt=0x%08x tym=0x%08lx)\n", This
, pformatetc
->cfFormat
, pformatetc
->tymed
);
376 if(!(DVASPECT_CONTENT
& pformatetc
->dwAspect
))
377 return DV_E_DVASPECT
;
379 /* check our formats table what we have */
380 for (i
=0; i
<MAX_FORMATS
; i
++)
382 if ((This
->pFormatEtc
[i
].cfFormat
== pformatetc
->cfFormat
)
383 && (This
->pFormatEtc
[i
].tymed
== pformatetc
->tymed
))
392 static HRESULT WINAPI
IDataObject_fnGetCanonicalFormatEtc(LPDATAOBJECT iface
, LPFORMATETC pformatectIn
, LPFORMATETC pformatetcOut
)
394 ICOM_THIS(IDataObjectImpl
,iface
);
395 FIXME("(%p)->()\n", This
);
399 static HRESULT WINAPI
IDataObject_fnSetData(LPDATAOBJECT iface
, LPFORMATETC pformatetc
, STGMEDIUM
*pmedium
, BOOL fRelease
)
401 ICOM_THIS(IDataObjectImpl
,iface
);
402 FIXME("(%p)->()\n", This
);
406 static HRESULT WINAPI
IDataObject_fnEnumFormatEtc(LPDATAOBJECT iface
, DWORD dwDirection
, IEnumFORMATETC
**ppenumFormatEtc
)
408 ICOM_THIS(IDataObjectImpl
,iface
);
410 TRACE("(%p)->()\n", This
);
411 *ppenumFormatEtc
=NULL
;
414 if (DATADIR_GET
== dwDirection
)
416 *ppenumFormatEtc
= IEnumFORMATETC_Constructor(MAX_FORMATS
, This
->pFormatEtc
);
417 return (*ppenumFormatEtc
) ? S_OK
: E_FAIL
;
423 static HRESULT WINAPI
IDataObject_fnDAdvise(LPDATAOBJECT iface
, FORMATETC
*pformatetc
, DWORD advf
, IAdviseSink
*pAdvSink
, DWORD
*pdwConnection
)
425 ICOM_THIS(IDataObjectImpl
,iface
);
426 FIXME("(%p)->()\n", This
);
429 static HRESULT WINAPI
IDataObject_fnDUnadvise(LPDATAOBJECT iface
, DWORD dwConnection
)
431 ICOM_THIS(IDataObjectImpl
,iface
);
432 FIXME("(%p)->()\n", This
);
435 static HRESULT WINAPI
IDataObject_fnEnumDAdvise(LPDATAOBJECT iface
, IEnumSTATDATA
**ppenumAdvise
)
437 ICOM_THIS(IDataObjectImpl
,iface
);
438 FIXME("(%p)->()\n", This
);
442 static struct IDataObjectVtbl dtovt
=
444 IDataObject_fnQueryInterface
,
445 IDataObject_fnAddRef
,
446 IDataObject_fnRelease
,
447 IDataObject_fnGetData
,
448 IDataObject_fnGetDataHere
,
449 IDataObject_fnQueryGetData
,
450 IDataObject_fnGetCanonicalFormatEtc
,
451 IDataObject_fnSetData
,
452 IDataObject_fnEnumFormatEtc
,
453 IDataObject_fnDAdvise
,
454 IDataObject_fnDUnadvise
,
455 IDataObject_fnEnumDAdvise