ole32: Rearrange functions to eliminate forward declarations.
[wine] / dlls / ole32 / ole2impl.c
1 /*
2  * Ole 2 Create functions implementation
3  *
4  * Copyright (C) 1999-2000 Abey George
5  *
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.
10  *
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.
15  *
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
19  */
20
21 #include <stdarg.h>
22 #include <string.h>
23
24 #define COBJMACROS
25 #define NONAMELESSUNION
26 #define NONAMELESSSTRUCT
27
28 #include "windef.h"
29 #include "winbase.h"
30 #include "wingdi.h"
31 #include "winuser.h"
32 #include "wine/debug.h"
33 #include "ole2.h"
34 #include "olestd.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(ole);
37
38 #define MAX_CLIPFORMAT_NAME   80
39
40 /******************************************************************************
41  *              OleQueryCreateFromData [OLE32.@]
42  *
43  * Author   : Abey George
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.
49  */
50
51 HRESULT WINAPI OleQueryCreateFromData(LPDATAOBJECT pSrcDataObject)
52 {
53   IEnumFORMATETC *pfmt;
54   FORMATETC fmt;
55   CHAR szFmtName[MAX_CLIPFORMAT_NAME];
56   BOOL bFoundStatic = FALSE;
57
58   HRESULT hr = IDataObject_EnumFormatEtc(pSrcDataObject, DATADIR_GET, &pfmt);
59
60   if (hr == S_OK)
61     hr = IEnumFORMATETC_Next(pfmt, 1, &fmt, NULL);
62
63   while (hr == S_OK)
64   {
65     GetClipboardFormatNameA(fmt.cfFormat, szFmtName, MAX_CLIPFORMAT_NAME-1);
66
67     /* first, Check for Embedded Object, Embed Source or Filename */
68
69     if (!strcmp(szFmtName, CF_EMBEDDEDOBJECT) || !strcmp(szFmtName, CF_EMBEDSOURCE) || !strcmp(szFmtName, CF_FILENAME))
70       return S_OK;
71
72     /* Check for Metafile, Bitmap or DIB */
73
74     if (fmt.cfFormat == CF_METAFILEPICT || fmt.cfFormat == CF_BITMAP || fmt.cfFormat == CF_DIB)
75       bFoundStatic = TRUE;
76
77     hr = IEnumFORMATETC_Next(pfmt, 1, &fmt, NULL);
78   }
79
80   /* Found a static format, but no embed format */
81
82   if (bFoundStatic)
83     return OLE_S_STATIC;
84
85   return S_FALSE;
86 }
87
88 /******************************************************************************
89  *              OleCreateFromData        [OLE32.@]
90  *
91  * Author   : Abey George
92  * Creates an embedded object from data transfer object retrieved from
93  * the clipboard or OLE drag and drop.
94  * Returns  : S_OK - Embedded object was created successfully.
95  *            OLE_E_STATIC - OLE can create only a static object
96  *            DV_E_FORMATETC - No acceptable format is available (only error return code)
97  * TODO : CF_FILENAME, CF_EMBEDEDOBJECT formats. Parameter renderopt is currently ignored.
98  */
99
100 HRESULT WINAPI OleCreateFromData(LPDATAOBJECT pSrcDataObject, REFIID riid,
101                 DWORD renderopt, LPFORMATETC pFormatEtc,
102                 LPOLECLIENTSITE pClientSite, LPSTORAGE pStg,
103                 LPVOID* ppvObj)
104 {
105   IEnumFORMATETC *pfmt;
106   FORMATETC fmt;
107   CHAR szFmtName[MAX_CLIPFORMAT_NAME];
108   STGMEDIUM std;
109   HRESULT hr;
110   HRESULT hr1;
111
112   hr = IDataObject_EnumFormatEtc(pSrcDataObject, DATADIR_GET, &pfmt);
113
114   if (hr == S_OK)
115   {
116     memset(&std, 0, sizeof(STGMEDIUM));
117
118     hr = IEnumFORMATETC_Next(pfmt, 1, &fmt, NULL);
119     while (hr == S_OK)
120     {
121       GetClipboardFormatNameA(fmt.cfFormat, szFmtName, MAX_CLIPFORMAT_NAME-1);
122
123       /* first, Check for Embedded Object, Embed Source or Filename */
124       /* TODO: Currently checks only for Embed Source. */
125
126       if (!strcmp(szFmtName, CF_EMBEDSOURCE))
127       {
128         std.tymed = TYMED_HGLOBAL;
129
130         if ((hr1 = IDataObject_GetData(pSrcDataObject, &fmt, &std)) == S_OK)
131         {
132           ILockBytes *ptrILockBytes = 0;
133           IStorage *pStorage = 0;
134           IOleObject *pOleObject = 0;
135           IPersistStorage *pPersistStorage = 0;
136           CLSID clsID;
137
138           /* Create ILock bytes */
139
140           hr1 = CreateILockBytesOnHGlobal(std.u.hGlobal, FALSE, &ptrILockBytes);
141
142           /* Open storage on the ILock bytes */
143
144           if (hr1 == S_OK)
145             hr1 = StgOpenStorageOnILockBytes(ptrILockBytes, NULL, STGM_SHARE_EXCLUSIVE, NULL, 0, &pStorage);
146
147           /* Get Class ID from the opened storage */
148
149           if (hr1 == S_OK)
150             hr1 = ReadClassStg(pStorage, &clsID);
151
152           /* Create default handler for Persist storage */
153
154           if (hr1 == S_OK)
155             hr1 = OleCreateDefaultHandler(&clsID, NULL, &IID_IPersistStorage, (LPVOID*)&pPersistStorage);
156
157           /* Load the storage to Persist storage */
158
159           if (hr1 == S_OK)
160             hr1 = IPersistStorage_Load(pPersistStorage, pStorage);
161
162           /* Query for IOleObject */
163
164           if (hr1 == S_OK)
165             hr1 = IPersistStorage_QueryInterface(pPersistStorage, &IID_IOleObject, (LPVOID*)&pOleObject);
166
167           /* Set client site with the IOleObject */
168
169           if (hr1 == S_OK)
170             hr1 = IOleObject_SetClientSite(pOleObject, pClientSite);
171
172           IPersistStorage_Release(pPersistStorage);
173           /* Query for the requested interface */
174
175           if (hr1 == S_OK)
176             hr1 = IPersistStorage_QueryInterface(pPersistStorage, riid, ppvObj);
177
178           IPersistStorage_Release(pPersistStorage);
179
180           IStorage_Release(pStorage);
181
182           if (hr1 == S_OK)
183             return S_OK;
184         }
185
186         /* Return error */
187
188         return DV_E_FORMATETC;
189       }
190
191       hr = IEnumFORMATETC_Next(pfmt, 1, &fmt, NULL);
192     }
193   }
194
195   return DV_E_FORMATETC;
196 }
197
198
199 /******************************************************************************
200  *              OleDuplicateData        [OLE32.@]
201  *
202  * Duplicates clipboard data.
203  *
204  * PARAMS
205  *  hSrc     [I] Handle of the source clipboard data.
206  *  cfFormat [I] The clipboard format of hSrc.
207  *  uiFlags  [I] Flags to pass to GlobalAlloc.
208  *
209  * RETURNS
210  *  Success: handle to the duplicated data.
211  *  Failure: NULL.
212  */
213 HANDLE WINAPI OleDuplicateData(HANDLE hSrc, CLIPFORMAT cfFormat,
214                                   UINT uiFlags)
215 {
216     HANDLE hDst = NULL;
217
218     TRACE("(%p,%x,%x)\n", hSrc, cfFormat, uiFlags);
219
220     if (!uiFlags) uiFlags = GMEM_MOVEABLE;
221
222     switch (cfFormat)
223     {
224     case CF_ENHMETAFILE:
225         hDst = CopyEnhMetaFileW(hSrc, NULL);
226         break;
227     case CF_METAFILEPICT:
228         hDst = CopyMetaFileW(hSrc, NULL);
229         break;
230     case CF_PALETTE:
231         {
232             LOGPALETTE * logpalette;
233             UINT nEntries = GetPaletteEntries(hSrc, 0, 0, NULL);
234             if (!nEntries) return NULL;
235             logpalette = HeapAlloc(GetProcessHeap(), 0,
236                 FIELD_OFFSET(LOGPALETTE, palPalEntry[nEntries]));
237             if (!logpalette) return NULL;
238             if (!GetPaletteEntries(hSrc, 0, nEntries, logpalette->palPalEntry))
239             {
240                 HeapFree(GetProcessHeap(), 0, logpalette);
241                 return NULL;
242             }
243             logpalette->palVersion = 0x300;
244             logpalette->palNumEntries = (WORD)nEntries;
245
246             hDst = CreatePalette(logpalette);
247
248             HeapFree(GetProcessHeap(), 0, logpalette);
249             break;
250         }
251     case CF_BITMAP:
252         {
253             LONG size;
254             BITMAP bm;
255             if (!GetObjectW(hSrc, sizeof(bm), &bm))
256                 return NULL;
257             size = GetBitmapBits(hSrc, 0, NULL);
258             if (!size) return NULL;
259             bm.bmBits = HeapAlloc(GetProcessHeap(), 0, size);
260             if (!bm.bmBits) return NULL;
261             if (GetBitmapBits(hSrc, size, bm.bmBits))
262                 hDst = CreateBitmapIndirect(&bm);
263             HeapFree(GetProcessHeap(), 0, bm.bmBits);
264             break;
265         }
266     default:
267         {
268             SIZE_T size = GlobalSize(hSrc);
269             LPVOID pvSrc = NULL;
270             LPVOID pvDst = NULL;
271
272             /* allocate space for object */
273             if (!size) return NULL;
274             hDst = GlobalAlloc(uiFlags, size);
275             if (!hDst) return NULL;
276
277             /* lock pointers */
278             pvSrc = GlobalLock(hSrc);
279             if (!pvSrc)
280             {
281                 GlobalFree(hDst);
282                 return NULL;
283             }
284             pvDst = GlobalLock(hDst);
285             if (!pvDst)
286             {
287                 GlobalUnlock(hSrc);
288                 GlobalFree(hDst);
289                 return NULL;
290             }
291             /* copy data */
292             memcpy(pvDst, pvSrc, size);
293
294             /* cleanup */
295             GlobalUnlock(hDst);
296             GlobalUnlock(hSrc);
297         }
298     }
299
300     TRACE("returning %p\n", hDst);
301     return hDst;
302 }