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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25 #include "wine/debug.h"
30 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
32 #define MAX_CLIPFORMAT_NAME 80
34 /******************************************************************************
35 * OleQueryCreateFromData [OLE32.117]
37 * Author : Abey George
38 * Checks whether an object can become an embedded object.
39 * the clipboard or OLE drag and drop.
40 * Returns : S_OK - Format that supports Embedded object creation are present.
41 * OLE_E_STATIC - Format that supports static object creation are present.
42 * S_FALSE - No acceptable format is available.
45 HRESULT WINAPI
OleQueryCreateFromData(LPDATAOBJECT pSrcDataObject
)
49 CHAR szFmtName
[MAX_CLIPFORMAT_NAME
];
50 BOOL bFoundStatic
= FALSE
;
52 HRESULT hr
= IDataObject_EnumFormatEtc(pSrcDataObject
, DATADIR_GET
, &pfmt
);
55 hr
= IEnumFORMATETC_Next(pfmt
, 1, &fmt
, NULL
);
59 GetClipboardFormatNameA(fmt
.cfFormat
, szFmtName
, MAX_CLIPFORMAT_NAME
-1);
61 /* first, Check for Embedded Object, Embed Source or Filename */
63 if (!strcmp(szFmtName
, CF_EMBEDDEDOBJECT
) || !strcmp(szFmtName
, CF_EMBEDSOURCE
) || !strcmp(szFmtName
, CF_FILENAME
))
66 /* Check for Metafile, Bitmap or DIB */
68 if (fmt
.cfFormat
== CF_METAFILEPICT
|| fmt
.cfFormat
== CF_BITMAP
|| fmt
.cfFormat
== CF_DIB
)
71 hr
= IEnumFORMATETC_Next(pfmt
, 1, &fmt
, NULL
);
74 /* Found a static format, but no embed format */
82 /******************************************************************************
83 * OleCreateFromData [OLE32.92]
85 * Author : Abey George
86 * Creates an embedded object from data transfer object retrieved from
87 * the clipboard or OLE drag and drop.
88 * Returns : S_OK - Embedded object was created successfully.
89 * OLE_E_STATIC - OLE can create only a static object
90 * DV_E_FORMATETC - No acceptable format is available (only error return code)
91 * TODO : CF_FILENAME, CF_EMBEDEDOBJECT formats. Parameter renderopt is currently ignored.
94 HRESULT WINAPI
OleCreateFromData(LPDATAOBJECT pSrcDataObject
, REFIID riid
,
95 DWORD renderopt
, LPFORMATETC pFormatEtc
,
96 LPOLECLIENTSITE pClientSite
, LPSTORAGE pStg
,
101 CHAR szFmtName
[MAX_CLIPFORMAT_NAME
];
106 hr
= IDataObject_EnumFormatEtc(pSrcDataObject
, DATADIR_GET
, &pfmt
);
110 memset(&std
, 0, sizeof(STGMEDIUM
));
112 hr
= IEnumFORMATETC_Next(pfmt
, 1, &fmt
, NULL
);
115 GetClipboardFormatNameA(fmt
.cfFormat
, szFmtName
, MAX_CLIPFORMAT_NAME
-1);
117 /* first, Check for Embedded Object, Embed Source or Filename */
118 /* TODO: Currently checks only for Embed Source. */
120 if (!strcmp(szFmtName
, CF_EMBEDSOURCE
))
122 std
.tymed
= TYMED_HGLOBAL
;
124 if ((hr1
= IDataObject_GetData(pSrcDataObject
, &fmt
, &std
)) == S_OK
)
126 ILockBytes
*ptrILockBytes
= 0;
127 IStorage
*pStorage
= 0;
128 IOleObject
*pOleObject
= 0;
129 IPersistStorage
*pPersistStorage
= 0;
132 /* Create ILock bytes */
134 hr1
= CreateILockBytesOnHGlobal(std
.u
.hGlobal
, FALSE
, &ptrILockBytes
);
136 /* Open storage on the ILock bytes */
139 hr1
= StgOpenStorageOnILockBytes(ptrILockBytes
, NULL
, STGM_SHARE_EXCLUSIVE
, NULL
, 0, &pStorage
);
141 /* Get Class ID from the opened storage */
144 hr1
= ReadClassStg(pStorage
, &clsID
);
146 /* Create default handler for Persist storage */
149 hr1
= OleCreateDefaultHandler(&clsID
, NULL
, &IID_IPersistStorage
, (LPVOID
*)&pPersistStorage
);
151 /* Load the storage to Persist storage */
154 hr1
= IPersistStorage_Load(pPersistStorage
, pStorage
);
156 /* Query for IOleObject */
159 hr1
= IPersistStorage_QueryInterface(pPersistStorage
, &IID_IOleObject
, (LPVOID
*)&pOleObject
);
161 /* Set client site with the IOleObject */
164 hr1
= IOleObject_SetClientSite(pOleObject
, pClientSite
);
166 IPersistStorage_Release(pPersistStorage
);
167 /* Query for the requested interface */
170 hr1
= IPersistStorage_QueryInterface(pPersistStorage
, riid
, ppvObj
);
172 IPersistStorage_Release(pPersistStorage
);
174 IStorage_Release(pStorage
);
182 return DV_E_FORMATETC
;
185 hr
= IEnumFORMATETC_Next(pfmt
, 1, &fmt
, NULL
);
189 return DV_E_FORMATETC
;