2 * Ole 2 Create functions implementation
4 * Copyright (C) 1999-2000 Abey George
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
25 #define NONAMELESSUNION
26 #define NONAMELESSSTRUCT
32 #include "wine/debug.h"
35 #include "compobj_private.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(ole);
39 #define MAX_CLIPFORMAT_NAME 80
41 /******************************************************************************
42 * OleQueryCreateFromData [OLE32.@]
44 * Checks whether an object can become an embedded object.
45 * the clipboard or OLE drag and drop.
46 * Returns : S_OK - Format that supports Embedded object creation are present.
47 * OLE_E_STATIC - Format that supports static object creation are present.
48 * S_FALSE - No acceptable format is available.
51 HRESULT WINAPI OleQueryCreateFromData(IDataObject *data)
53 IEnumFORMATETC *enum_fmt;
55 BOOL found_static = FALSE;
58 hr = IDataObject_EnumFormatEtc(data, DATADIR_GET, &enum_fmt);
60 if(FAILED(hr)) return hr;
64 hr = IEnumFORMATETC_Next(enum_fmt, 1, &fmt, NULL);
67 if(fmt.cfFormat == embedded_object_clipboard_format ||
68 fmt.cfFormat == embed_source_clipboard_format ||
69 fmt.cfFormat == filename_clipboard_format)
71 IEnumFORMATETC_Release(enum_fmt);
75 if(fmt.cfFormat == CF_METAFILEPICT ||
76 fmt.cfFormat == CF_BITMAP ||
77 fmt.cfFormat == CF_DIB)
82 IEnumFORMATETC_Release(enum_fmt);
84 return found_static ? OLE_S_STATIC : S_FALSE;
87 /******************************************************************************
88 * OleCreateFromDataEx [OLE32.@]
90 * Creates an embedded object from data transfer object retrieved from
91 * the clipboard or OLE drag and drop.
93 HRESULT WINAPI OleCreateFromDataEx(IDataObject *data, REFIID iid, DWORD flags,
94 DWORD renderopt, ULONG num_fmts, DWORD *adv_flags, FORMATETC *fmts,
95 IAdviseSink *sink, DWORD *conns,
96 IOleClientSite *client_site, IStorage *stg, void **obj)
98 FIXME("(%p, %s, %08x, %08x, %d, %p, %p, %p, %p, %p, %p, %p): stub\n",
99 data, debugstr_guid(iid), flags, renderopt, num_fmts, adv_flags, fmts,
100 sink, conns, client_site, stg, obj);
105 /******************************************************************************
106 * OleCreateFromData [OLE32.@]
108 * Author : Abey George
109 * Creates an embedded object from data transfer object retrieved from
110 * the clipboard or OLE drag and drop.
111 * Returns : S_OK - Embedded object was created successfully.
112 * OLE_E_STATIC - OLE can create only a static object
113 * DV_E_FORMATETC - No acceptable format is available (only error return code)
114 * TODO : CF_FILENAME, CF_EMBEDEDOBJECT formats. Parameter renderopt is currently ignored.
117 HRESULT WINAPI OleCreateFromData(LPDATAOBJECT pSrcDataObject, REFIID riid,
118 DWORD renderopt, LPFORMATETC pFormatEtc,
119 LPOLECLIENTSITE pClientSite, LPSTORAGE pStg,
122 IEnumFORMATETC *pfmt;
124 CHAR szFmtName[MAX_CLIPFORMAT_NAME];
129 hr = IDataObject_EnumFormatEtc(pSrcDataObject, DATADIR_GET, &pfmt);
133 memset(&std, 0, sizeof(STGMEDIUM));
135 hr = IEnumFORMATETC_Next(pfmt, 1, &fmt, NULL);
138 GetClipboardFormatNameA(fmt.cfFormat, szFmtName, MAX_CLIPFORMAT_NAME-1);
140 /* first, Check for Embedded Object, Embed Source or Filename */
141 /* TODO: Currently checks only for Embed Source. */
143 if (!strcmp(szFmtName, CF_EMBEDSOURCE))
145 std.tymed = TYMED_HGLOBAL;
147 if ((hr1 = IDataObject_GetData(pSrcDataObject, &fmt, &std)) == S_OK)
149 ILockBytes *ptrILockBytes = 0;
150 IStorage *pStorage = 0;
151 IOleObject *pOleObject = 0;
152 IPersistStorage *pPersistStorage = 0;
155 /* Create ILock bytes */
157 hr1 = CreateILockBytesOnHGlobal(std.u.hGlobal, FALSE, &ptrILockBytes);
159 /* Open storage on the ILock bytes */
162 hr1 = StgOpenStorageOnILockBytes(ptrILockBytes, NULL, STGM_SHARE_EXCLUSIVE, NULL, 0, &pStorage);
164 /* Get Class ID from the opened storage */
167 hr1 = ReadClassStg(pStorage, &clsID);
169 /* Create default handler for Persist storage */
172 hr1 = OleCreateDefaultHandler(&clsID, NULL, &IID_IPersistStorage, (LPVOID*)&pPersistStorage);
174 /* Load the storage to Persist storage */
177 hr1 = IPersistStorage_Load(pPersistStorage, pStorage);
179 /* Query for IOleObject */
182 hr1 = IPersistStorage_QueryInterface(pPersistStorage, &IID_IOleObject, (LPVOID*)&pOleObject);
184 /* Set client site with the IOleObject */
187 hr1 = IOleObject_SetClientSite(pOleObject, pClientSite);
189 IPersistStorage_Release(pPersistStorage);
190 /* Query for the requested interface */
193 hr1 = IPersistStorage_QueryInterface(pPersistStorage, riid, ppvObj);
195 IPersistStorage_Release(pPersistStorage);
197 IStorage_Release(pStorage);
205 return DV_E_FORMATETC;
208 hr = IEnumFORMATETC_Next(pfmt, 1, &fmt, NULL);
212 return DV_E_FORMATETC;
216 /******************************************************************************
217 * OleDuplicateData [OLE32.@]
219 * Duplicates clipboard data.
222 * hSrc [I] Handle of the source clipboard data.
223 * cfFormat [I] The clipboard format of hSrc.
224 * uiFlags [I] Flags to pass to GlobalAlloc.
227 * Success: handle to the duplicated data.
230 HANDLE WINAPI OleDuplicateData(HANDLE hSrc, CLIPFORMAT cfFormat,
235 TRACE("(%p,%x,%x)\n", hSrc, cfFormat, uiFlags);
237 if (!uiFlags) uiFlags = GMEM_MOVEABLE;
242 hDst = CopyEnhMetaFileW(hSrc, NULL);
244 case CF_METAFILEPICT:
245 hDst = CopyMetaFileW(hSrc, NULL);
249 LOGPALETTE * logpalette;
250 UINT nEntries = GetPaletteEntries(hSrc, 0, 0, NULL);
251 if (!nEntries) return NULL;
252 logpalette = HeapAlloc(GetProcessHeap(), 0,
253 FIELD_OFFSET(LOGPALETTE, palPalEntry[nEntries]));
254 if (!logpalette) return NULL;
255 if (!GetPaletteEntries(hSrc, 0, nEntries, logpalette->palPalEntry))
257 HeapFree(GetProcessHeap(), 0, logpalette);
260 logpalette->palVersion = 0x300;
261 logpalette->palNumEntries = (WORD)nEntries;
263 hDst = CreatePalette(logpalette);
265 HeapFree(GetProcessHeap(), 0, logpalette);
272 if (!GetObjectW(hSrc, sizeof(bm), &bm))
274 size = GetBitmapBits(hSrc, 0, NULL);
275 if (!size) return NULL;
276 bm.bmBits = HeapAlloc(GetProcessHeap(), 0, size);
277 if (!bm.bmBits) return NULL;
278 if (GetBitmapBits(hSrc, size, bm.bmBits))
279 hDst = CreateBitmapIndirect(&bm);
280 HeapFree(GetProcessHeap(), 0, bm.bmBits);
285 SIZE_T size = GlobalSize(hSrc);
289 /* allocate space for object */
290 if (!size) return NULL;
291 hDst = GlobalAlloc(uiFlags, size);
292 if (!hDst) return NULL;
295 pvSrc = GlobalLock(hSrc);
301 pvDst = GlobalLock(hDst);
309 memcpy(pvDst, pvSrc, size);
317 TRACE("returning %p\n", hDst);