uiautomationcore: Implement IUIAutomationElement::get_CachedName.
[wine.git] / dlls / shell32 / shellole.c
blob52123ac0004a513b2f9e247f06a8557da65c53bc
1 /*
2 * handling of SHELL32.DLL OLE-Objects
4 * Copyright 1997 Marcus Meissner
5 * Copyright 1998 Juergen Schmied <juergen.schmied@metronet.de>
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include <stdarg.h>
23 #include <stdlib.h>
24 #include <string.h>
26 #define COBJMACROS
27 #include "windef.h"
28 #include "winbase.h"
29 #include "shellapi.h"
30 #include "wingdi.h"
31 #include "winuser.h"
32 #include "shlobj.h"
33 #include "shlguid.h"
34 #include "shldisp.h"
35 #include "gdiplus.h"
36 #include "shimgdata.h"
37 #include "winreg.h"
38 #include "winerror.h"
40 #include "shell32_main.h"
42 #include "wine/debug.h"
43 #include "shlwapi.h"
44 #include "debughlp.h"
46 WINE_DEFAULT_DEBUG_CHANNEL(shell);
48 extern INT WINAPI SHStringFromGUIDW(REFGUID guid, LPWSTR lpszDest, INT cchMax); /* shlwapi.24 */
49 static HRESULT WINAPI ShellImageDataFactory_Constructor(IUnknown *outer, REFIID riid, void **obj);
51 /**************************************************************************
52 * Default ClassFactory types
54 typedef HRESULT (CALLBACK *LPFNCREATEINSTANCE)(IUnknown* pUnkOuter, REFIID riid, LPVOID* ppvObject);
55 static IClassFactory * IDefClF_fnConstructor(LPFNCREATEINSTANCE lpfnCI, PLONG pcRefDll, REFIID riidInst);
57 /* this table contains all CLSIDs of shell32 objects */
58 static const struct {
59 REFIID clsid;
60 LPFNCREATEINSTANCE lpfnCI;
61 } InterfaceTable[] = {
63 {&CLSID_ApplicationAssociationRegistration, ApplicationAssociationRegistration_Constructor},
64 {&CLSID_ApplicationDestinations, ApplicationDestinations_Constructor},
65 {&CLSID_ApplicationDocumentLists, ApplicationDocumentLists_Constructor},
66 {&CLSID_AutoComplete, IAutoComplete_Constructor},
67 {&CLSID_ControlPanel, IControlPanel_Constructor},
68 {&CLSID_DragDropHelper, IDropTargetHelper_Constructor},
69 {&CLSID_FolderShortcut, FolderShortcut_Constructor},
70 {&CLSID_MyComputer, ISF_MyComputer_Constructor},
71 {&CLSID_MyDocuments, MyDocuments_Constructor},
72 {&CLSID_NetworkPlaces, ISF_NetworkPlaces_Constructor},
73 {&CLSID_Printers, Printers_Constructor},
74 {&CLSID_QueryAssociations, QueryAssociations_Constructor},
75 {&CLSID_RecycleBin, RecycleBin_Constructor},
76 {&CLSID_ShellDesktop, ISF_Desktop_Constructor},
77 {&CLSID_ShellFSFolder, IFSFolder_Constructor},
78 {&CLSID_ShellItem, IShellItem_Constructor},
79 {&CLSID_ShellLink, IShellLink_Constructor},
80 {&CLSID_UnixDosFolder, UnixDosFolder_Constructor},
81 {&CLSID_UnixFolder, UnixFolder_Constructor},
82 {&CLSID_ExplorerBrowser,ExplorerBrowser_Constructor},
83 {&CLSID_KnownFolderManager, KnownFolderManager_Constructor},
84 {&CLSID_Shell, IShellDispatch_Constructor},
85 {&CLSID_DestinationList, CustomDestinationList_Constructor},
86 {&CLSID_ShellImageDataFactory, ShellImageDataFactory_Constructor},
87 {&CLSID_FileOperation, IFileOperation_Constructor},
88 {&CLSID_ActiveDesktop, ActiveDesktop_Constructor},
89 {NULL, NULL}
92 /*************************************************************************
93 * SHCoCreateInstance [SHELL32.102]
95 * Equivalent to CoCreateInstance. Under Windows 9x this function could sometimes
96 * use the shell32 built-in "mini-COM" without the need to load ole32.dll - see
97 * SHLoadOLE for details.
99 * Under wine if a "LoadWithoutCOM" value is present or the object resides in
100 * shell32.dll the function will load the object manually without the help of ole32
102 * NOTES
103 * exported by ordinal
105 * SEE ALSO
106 * CoCreateInstance, SHLoadOLE
108 HRESULT WINAPI SHCoCreateInstance(
109 LPCWSTR aclsid,
110 const CLSID *clsid,
111 LPUNKNOWN pUnkOuter,
112 REFIID refiid,
113 LPVOID *ppv)
115 DWORD hres;
116 IID iid;
117 const CLSID * myclsid = clsid;
118 WCHAR sKeyName[MAX_PATH];
119 WCHAR sClassID[60];
120 WCHAR sDllPath[MAX_PATH];
121 HKEY hKey = 0;
122 DWORD dwSize;
123 IClassFactory * pcf = NULL;
125 if(!ppv) return E_POINTER;
126 *ppv=NULL;
128 /* if the clsid is a string, convert it */
129 if (!clsid)
131 if (!aclsid) return REGDB_E_CLASSNOTREG;
132 SHCLSIDFromStringW(aclsid, &iid);
133 myclsid = &iid;
136 TRACE("(%p,%s,unk:%p,%s,%p)\n",
137 aclsid,shdebugstr_guid(myclsid),pUnkOuter,shdebugstr_guid(refiid),ppv);
139 if (SUCCEEDED(DllGetClassObject(myclsid, &IID_IClassFactory,(LPVOID*)&pcf)))
141 hres = IClassFactory_CreateInstance(pcf, pUnkOuter, refiid, ppv);
142 IClassFactory_Release(pcf);
143 goto end;
146 /* we look up the dll path in the registry */
147 SHStringFromGUIDW(myclsid, sClassID, ARRAY_SIZE(sClassID));
148 swprintf( sKeyName, ARRAY_SIZE(sKeyName), L"CLSID\\%s\\InprocServer32", sClassID );
150 if (RegOpenKeyExW(HKEY_CLASSES_ROOT, sKeyName, 0, KEY_READ, &hKey))
151 return E_ACCESSDENIED;
153 /* if a special registry key is set, we load a shell extension without help of OLE32 */
154 if (!SHQueryValueExW(hKey, L"LoadWithoutCOM", 0, 0, 0, 0))
156 /* load an external dll without ole32 */
157 HANDLE hLibrary;
158 typedef HRESULT (CALLBACK *DllGetClassObjectFunc)(REFCLSID clsid, REFIID iid, LPVOID *ppv);
159 DllGetClassObjectFunc DllGetClassObject;
161 dwSize = sizeof(sDllPath);
162 SHQueryValueExW(hKey, NULL, 0,0, sDllPath, &dwSize );
164 if ((hLibrary = LoadLibraryExW(sDllPath, 0, LOAD_WITH_ALTERED_SEARCH_PATH)) == 0) {
165 ERR("couldn't load InprocServer32 dll %s\n", debugstr_w(sDllPath));
166 hres = E_ACCESSDENIED;
167 goto end;
168 } else if (!(DllGetClassObject = (DllGetClassObjectFunc)GetProcAddress(hLibrary, "DllGetClassObject"))) {
169 ERR("couldn't find function DllGetClassObject in %s\n", debugstr_w(sDllPath));
170 FreeLibrary( hLibrary );
171 hres = E_ACCESSDENIED;
172 goto end;
173 } else if (FAILED(hres = DllGetClassObject(myclsid, &IID_IClassFactory, (LPVOID*)&pcf))) {
174 TRACE("GetClassObject failed 0x%08lx\n", hres);
175 goto end;
178 hres = IClassFactory_CreateInstance(pcf, pUnkOuter, refiid, ppv);
179 IClassFactory_Release(pcf);
180 } else {
182 /* load an external dll in the usual way */
183 hres = CoCreateInstance(myclsid, pUnkOuter, CLSCTX_INPROC_SERVER, refiid, ppv);
186 end:
187 if (hKey) RegCloseKey(hKey);
188 if(hres!=S_OK)
190 ERR("failed (0x%08lx) to create CLSID:%s IID:%s\n",
191 hres, shdebugstr_guid(myclsid), shdebugstr_guid(refiid));
192 ERR("class not found in registry\n");
195 TRACE("-- instance: %p\n",*ppv);
196 return hres;
199 /*************************************************************************
200 * DllGetClassObject [SHELL32.@]
201 * SHDllGetClassObject [SHELL32.128]
203 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
205 IClassFactory * pcf = NULL;
206 HRESULT hres;
207 int i;
209 TRACE("CLSID:%s,IID:%s\n",shdebugstr_guid(rclsid),shdebugstr_guid(iid));
211 if (!ppv) return E_INVALIDARG;
212 *ppv = NULL;
214 /* search our internal interface table */
215 for(i=0;InterfaceTable[i].clsid;i++) {
216 if(IsEqualIID(InterfaceTable[i].clsid, rclsid)) {
217 TRACE("index[%u]\n", i);
218 pcf = IDefClF_fnConstructor(InterfaceTable[i].lpfnCI, NULL, NULL);
219 break;
223 if (!pcf) {
224 FIXME("failed for CLSID=%s\n", shdebugstr_guid(rclsid));
225 return CLASS_E_CLASSNOTAVAILABLE;
228 hres = IClassFactory_QueryInterface(pcf, iid, ppv);
229 IClassFactory_Release(pcf);
231 TRACE("-- pointer to class factory: %p\n",*ppv);
232 return hres;
235 /*************************************************************************
236 * SHCLSIDFromString [SHELL32.147]
238 * Under Windows 9x this was an ANSI version of CLSIDFromString. It also allowed
239 * to avoid dependency on ole32.dll (see SHLoadOLE for details).
241 * Under Windows NT/2000/XP this is equivalent to CLSIDFromString
243 * NOTES
244 * exported by ordinal
246 * SEE ALSO
247 * CLSIDFromString, SHLoadOLE
249 DWORD WINAPI SHCLSIDFromStringA (LPCSTR clsid, CLSID *id)
251 WCHAR buffer[40];
252 TRACE("(%p(%s) %p)\n", clsid, clsid, id);
253 if (!MultiByteToWideChar( CP_ACP, 0, clsid, -1, buffer, ARRAY_SIZE(buffer) ))
254 return CO_E_CLASSSTRING;
255 return CLSIDFromString( buffer, id );
257 DWORD WINAPI SHCLSIDFromStringW (LPCWSTR clsid, CLSID *id)
259 TRACE("(%p(%s) %p)\n", clsid, debugstr_w(clsid), id);
260 return CLSIDFromString(clsid, id);
262 DWORD WINAPI SHCLSIDFromStringAW (LPCVOID clsid, CLSID *id)
264 if (SHELL_OsIsUnicode())
265 return SHCLSIDFromStringW (clsid, id);
266 return SHCLSIDFromStringA (clsid, id);
269 /*************************************************************************
270 * SHGetMalloc [SHELL32.@]
272 * Equivalent to CoGetMalloc(MEMCTX_TASK, ...). Under Windows 9x this function
273 * could use the shell32 built-in "mini-COM" without the need to load ole32.dll -
274 * see SHLoadOLE for details.
276 * PARAMS
277 * lpmal [O] Destination for IMalloc interface.
279 * RETURNS
280 * Success: S_OK. lpmal contains the shells IMalloc interface.
281 * Failure. An HRESULT error code.
283 * SEE ALSO
284 * CoGetMalloc, SHLoadOLE
286 HRESULT WINAPI SHGetMalloc(LPMALLOC *lpmal)
288 TRACE("(%p)\n", lpmal);
289 return CoGetMalloc(MEMCTX_TASK, lpmal);
292 /*************************************************************************
293 * SHAlloc [SHELL32.196]
295 * Equivalent to CoTaskMemAlloc. Under Windows 9x this function could use
296 * the shell32 built-in "mini-COM" without the need to load ole32.dll -
297 * see SHLoadOLE for details.
299 * NOTES
300 * exported by ordinal
302 * SEE ALSO
303 * CoTaskMemAlloc, SHLoadOLE
305 LPVOID WINAPI SHAlloc(DWORD len)
307 LPVOID ret;
309 ret = CoTaskMemAlloc(len);
310 TRACE("%lu bytes at %p\n",len, ret);
311 return ret;
314 /*************************************************************************
315 * SHFree [SHELL32.195]
317 * Equivalent to CoTaskMemFree. Under Windows 9x this function could use
318 * the shell32 built-in "mini-COM" without the need to load ole32.dll -
319 * see SHLoadOLE for details.
321 * NOTES
322 * exported by ordinal
324 * SEE ALSO
325 * CoTaskMemFree, SHLoadOLE
327 void WINAPI SHFree(LPVOID pv)
329 TRACE("%p\n",pv);
330 CoTaskMemFree(pv);
333 /*************************************************************************
334 * SHGetDesktopFolder [SHELL32.@]
336 HRESULT WINAPI SHGetDesktopFolder(IShellFolder **psf)
338 HRESULT hres;
340 TRACE("(%p)\n", psf);
342 if(!psf) return E_INVALIDARG;
344 *psf = NULL;
345 hres = ISF_Desktop_Constructor(NULL, &IID_IShellFolder, (LPVOID*)psf);
347 TRACE("-- %p->(%p) 0x%08lx\n", psf, *psf, hres);
348 return hres;
350 /**************************************************************************
351 * Default ClassFactory Implementation
353 * SHCreateDefClassObject
355 * NOTES
356 * Helper function for dlls without their own classfactory.
357 * A generic classfactory is returned.
358 * When the CreateInstance of the cf is called the callback is executed.
361 typedef struct
363 IClassFactory IClassFactory_iface;
364 LONG ref;
365 CLSID *rclsid;
366 LPFNCREATEINSTANCE lpfnCI;
367 const IID * riidInst;
368 LONG * pcRefDll; /* pointer to refcounter in external dll (ugrrr...) */
369 } IDefClFImpl;
371 static inline IDefClFImpl *impl_from_IClassFactory(IClassFactory *iface)
373 return CONTAINING_RECORD(iface, IDefClFImpl, IClassFactory_iface);
376 static const IClassFactoryVtbl dclfvt;
378 /**************************************************************************
379 * IDefClF_fnConstructor
382 static IClassFactory * IDefClF_fnConstructor(LPFNCREATEINSTANCE lpfnCI, PLONG pcRefDll, REFIID riidInst)
384 IDefClFImpl* lpclf;
386 lpclf = malloc(sizeof(*lpclf));
387 lpclf->ref = 1;
388 lpclf->IClassFactory_iface.lpVtbl = &dclfvt;
389 lpclf->lpfnCI = lpfnCI;
390 lpclf->pcRefDll = pcRefDll;
392 if (pcRefDll) InterlockedIncrement(pcRefDll);
393 lpclf->riidInst = riidInst;
395 TRACE("(%p)%s\n",lpclf, shdebugstr_guid(riidInst));
396 return &lpclf->IClassFactory_iface;
398 /**************************************************************************
399 * IDefClF_fnQueryInterface
401 static HRESULT WINAPI IDefClF_fnQueryInterface(
402 LPCLASSFACTORY iface, REFIID riid, LPVOID *ppvObj)
404 IDefClFImpl *This = impl_from_IClassFactory(iface);
406 TRACE("(%p)->(%s)\n",This,shdebugstr_guid(riid));
408 *ppvObj = NULL;
410 if(IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IClassFactory)) {
411 *ppvObj = This;
412 InterlockedIncrement(&This->ref);
413 return S_OK;
416 TRACE("-- E_NOINTERFACE\n");
417 return E_NOINTERFACE;
419 /******************************************************************************
420 * IDefClF_fnAddRef
422 static ULONG WINAPI IDefClF_fnAddRef(LPCLASSFACTORY iface)
424 IDefClFImpl *This = impl_from_IClassFactory(iface);
425 ULONG refCount = InterlockedIncrement(&This->ref);
427 TRACE("(%p)->(count=%lu)\n", This, refCount - 1);
429 return refCount;
431 /******************************************************************************
432 * IDefClF_fnRelease
434 static ULONG WINAPI IDefClF_fnRelease(LPCLASSFACTORY iface)
436 IDefClFImpl *This = impl_from_IClassFactory(iface);
437 ULONG refCount = InterlockedDecrement(&This->ref);
439 TRACE("(%p)->(count=%lu)\n", This, refCount + 1);
441 if (!refCount)
443 if (This->pcRefDll) InterlockedDecrement(This->pcRefDll);
445 TRACE("-- destroying IClassFactory(%p)\n",This);
446 free(This);
449 return refCount;
451 /******************************************************************************
452 * IDefClF_fnCreateInstance
454 static HRESULT WINAPI IDefClF_fnCreateInstance(
455 LPCLASSFACTORY iface, LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
457 IDefClFImpl *This = impl_from_IClassFactory(iface);
459 TRACE("%p->(%p,%s,%p)\n",This,pUnkOuter,shdebugstr_guid(riid),ppvObject);
461 *ppvObject = NULL;
463 if ( This->riidInst==NULL ||
464 IsEqualCLSID(riid, This->riidInst) ||
465 IsEqualCLSID(riid, &IID_IUnknown) )
467 return This->lpfnCI(pUnkOuter, riid, ppvObject);
470 ERR("unknown IID requested %s\n",shdebugstr_guid(riid));
471 return E_NOINTERFACE;
473 /******************************************************************************
474 * IDefClF_fnLockServer
476 static HRESULT WINAPI IDefClF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
478 IDefClFImpl *This = impl_from_IClassFactory(iface);
479 TRACE("%p->(0x%x), not implemented\n",This, fLock);
480 return E_NOTIMPL;
483 static const IClassFactoryVtbl dclfvt =
485 IDefClF_fnQueryInterface,
486 IDefClF_fnAddRef,
487 IDefClF_fnRelease,
488 IDefClF_fnCreateInstance,
489 IDefClF_fnLockServer
492 /******************************************************************************
493 * SHCreateDefClassObject [SHELL32.70]
495 HRESULT WINAPI SHCreateDefClassObject(
496 REFIID riid,
497 LPVOID* ppv,
498 LPFNCREATEINSTANCE lpfnCI, /* [in] create instance callback entry */
499 LPDWORD pcRefDll, /* [in/out] ref count of the dll */
500 REFIID riidInst) /* [in] optional interface to the instance */
502 IClassFactory * pcf;
504 TRACE("%s %p %p %p %s\n",
505 shdebugstr_guid(riid), ppv, lpfnCI, pcRefDll, shdebugstr_guid(riidInst));
507 if (! IsEqualCLSID(riid, &IID_IClassFactory) ) return E_NOINTERFACE;
508 if (! (pcf = IDefClF_fnConstructor(lpfnCI, (PLONG)pcRefDll, riidInst))) return E_OUTOFMEMORY;
509 *ppv = pcf;
510 return S_OK;
513 /*************************************************************************
514 * DragAcceptFiles [SHELL32.@]
516 void WINAPI DragAcceptFiles(HWND hWnd, BOOL b)
518 LONG exstyle;
520 if( !IsWindow(hWnd) ) return;
521 exstyle = GetWindowLongA(hWnd,GWL_EXSTYLE);
522 if (b)
523 exstyle |= WS_EX_ACCEPTFILES;
524 else
525 exstyle &= ~WS_EX_ACCEPTFILES;
526 SetWindowLongA(hWnd,GWL_EXSTYLE,exstyle);
529 /*************************************************************************
530 * DragFinish [SHELL32.@]
532 void WINAPI DragFinish(HDROP h)
534 TRACE("\n");
535 GlobalFree(h);
538 /*************************************************************************
539 * DragQueryPoint [SHELL32.@]
541 BOOL WINAPI DragQueryPoint(HDROP hDrop, POINT *p)
543 DROPFILES *lpDropFileStruct;
544 BOOL bRet;
546 TRACE("\n");
548 lpDropFileStruct = GlobalLock(hDrop);
550 *p = lpDropFileStruct->pt;
551 bRet = !lpDropFileStruct->fNC;
553 GlobalUnlock(hDrop);
554 return bRet;
557 /*************************************************************************
558 * DragQueryFileA [SHELL32.@]
559 * DragQueryFile [SHELL32.@]
561 UINT WINAPI DragQueryFileA(HDROP hDrop, UINT lFile, LPSTR lpszFile, UINT lLength)
563 LPWSTR filenameW = NULL;
564 LPSTR filename = NULL;
565 UINT i;
567 TRACE("(%p, %x, %p, %u)\n", hDrop, lFile, lpszFile, lLength);
569 i = DragQueryFileW(hDrop, lFile, NULL, 0);
570 if (!i || lFile == 0xFFFFFFFF) goto end;
571 filenameW = malloc((i + 1) * sizeof(WCHAR));
572 if (!filenameW) goto error;
573 if (!DragQueryFileW(hDrop, lFile, filenameW, i + 1)) goto error;
575 i = WideCharToMultiByte(CP_ACP, 0, filenameW, -1, NULL, 0, NULL, NULL);
576 if (!lpszFile || !lLength)
578 /* minus a trailing null */
579 i--;
580 goto end;
582 filename = malloc(i);
583 if (!filename) goto error;
584 i = WideCharToMultiByte(CP_ACP, 0, filenameW, -1, filename, i, NULL, NULL);
586 lstrcpynA(lpszFile, filename, lLength);
587 i = min(i, lLength) - 1;
588 end:
589 free(filenameW);
590 free(filename);
591 return i;
592 error:
593 i = 0;
594 goto end;
597 /*************************************************************************
598 * DragQueryFileW [SHELL32.@]
600 UINT WINAPI DragQueryFileW(
601 HDROP hDrop,
602 UINT lFile,
603 LPWSTR lpszwFile,
604 UINT lLength)
606 LPWSTR buffer = NULL;
607 LPCWSTR filename;
608 UINT i = 0;
609 const DROPFILES *lpDropFileStruct = GlobalLock(hDrop);
611 TRACE("(%p, %x, %p, %u)\n", hDrop,lFile,lpszwFile,lLength);
613 if(!lpDropFileStruct) goto end;
615 if(lpDropFileStruct->fWide)
617 LPCWSTR p = (LPCWSTR) ((LPCSTR)lpDropFileStruct + lpDropFileStruct->pFiles);
618 while (i++ < lFile)
620 while (*p++); /* skip filename */
621 if (!*p)
623 i = (lFile == 0xFFFFFFFF) ? i : 0;
624 goto end;
627 filename = p;
629 else
631 LPCSTR p = (LPCSTR)lpDropFileStruct + lpDropFileStruct->pFiles;
632 while (i++ < lFile)
634 while (*p++); /* skip filename */
635 if (!*p)
637 i = (lFile == 0xFFFFFFFF) ? i : 0;
638 goto end;
641 i = MultiByteToWideChar(CP_ACP, 0, p, -1, NULL, 0);
642 buffer = malloc(i * sizeof(WCHAR));
643 if (!buffer)
645 i = 0;
646 goto end;
648 MultiByteToWideChar(CP_ACP, 0, p, -1, buffer, i);
649 filename = buffer;
652 i = lstrlenW(filename);
653 if (!lpszwFile || !lLength) goto end; /* needed buffer size */
654 lstrcpynW(lpszwFile, filename, lLength);
655 i = min(i, lLength - 1);
656 end:
657 GlobalUnlock(hDrop);
658 free(buffer);
659 return i;
662 /*************************************************************************
663 * SHPropStgCreate [SHELL32.685]
665 HRESULT WINAPI SHPropStgCreate(IPropertySetStorage *psstg, REFFMTID fmtid,
666 const CLSID *pclsid, DWORD grfFlags, DWORD grfMode,
667 DWORD dwDisposition, IPropertyStorage **ppstg, UINT *puCodePage)
669 PROPSPEC prop;
670 PROPVARIANT ret;
671 HRESULT hres;
673 TRACE("%p %s %s %lx %lx %lx %p %p\n", psstg, debugstr_guid(fmtid), debugstr_guid(pclsid),
674 grfFlags, grfMode, dwDisposition, ppstg, puCodePage);
676 hres = IPropertySetStorage_Open(psstg, fmtid, grfMode, ppstg);
678 switch(dwDisposition) {
679 case CREATE_ALWAYS:
680 if(SUCCEEDED(hres)) {
681 IPropertyStorage_Release(*ppstg);
682 hres = IPropertySetStorage_Delete(psstg, fmtid);
683 if(FAILED(hres))
684 return hres;
685 hres = E_FAIL;
688 case OPEN_ALWAYS:
689 case CREATE_NEW:
690 if(FAILED(hres))
691 hres = IPropertySetStorage_Create(psstg, fmtid, pclsid,
692 grfFlags, grfMode, ppstg);
694 case OPEN_EXISTING:
695 if(FAILED(hres))
696 return hres;
698 if(puCodePage) {
699 prop.ulKind = PRSPEC_PROPID;
700 prop.propid = PID_CODEPAGE;
701 hres = IPropertyStorage_ReadMultiple(*ppstg, 1, &prop, &ret);
702 if(FAILED(hres) || ret.vt!=VT_I2)
703 *puCodePage = 0;
704 else
705 *puCodePage = ret.iVal;
709 return S_OK;
712 /*************************************************************************
713 * SHPropStgReadMultiple [SHELL32.688]
715 HRESULT WINAPI SHPropStgReadMultiple(IPropertyStorage *pps, UINT uCodePage,
716 ULONG cpspec, const PROPSPEC *rgpspec, PROPVARIANT *rgvar)
718 STATPROPSETSTG stat;
719 HRESULT hres;
721 FIXME("%p %u %lu %p %p\n", pps, uCodePage, cpspec, rgpspec, rgvar);
723 memset(rgvar, 0, cpspec*sizeof(PROPVARIANT));
724 hres = IPropertyStorage_ReadMultiple(pps, cpspec, rgpspec, rgvar);
725 if(FAILED(hres))
726 return hres;
728 if(!uCodePage) {
729 PROPSPEC prop;
730 PROPVARIANT ret;
732 prop.ulKind = PRSPEC_PROPID;
733 prop.propid = PID_CODEPAGE;
734 hres = IPropertyStorage_ReadMultiple(pps, 1, &prop, &ret);
735 if(FAILED(hres) || ret.vt!=VT_I2)
736 return S_OK;
738 uCodePage = ret.iVal;
741 hres = IPropertyStorage_Stat(pps, &stat);
742 if(FAILED(hres))
743 return S_OK;
745 /* TODO: do something with codepage and stat */
746 return S_OK;
749 /*************************************************************************
750 * SHPropStgWriteMultiple [SHELL32.689]
752 HRESULT WINAPI SHPropStgWriteMultiple(IPropertyStorage *pps, UINT *uCodePage,
753 ULONG cpspec, const PROPSPEC *rgpspec, PROPVARIANT *rgvar, PROPID propidNameFirst)
755 STATPROPSETSTG stat;
756 UINT codepage;
757 HRESULT hres;
759 FIXME("%p %p %lu %p %p %ld\n", pps, uCodePage, cpspec, rgpspec, rgvar, propidNameFirst);
761 hres = IPropertyStorage_Stat(pps, &stat);
762 if(FAILED(hres))
763 return hres;
765 if(uCodePage && *uCodePage)
766 codepage = *uCodePage;
767 else {
768 PROPSPEC prop;
769 PROPVARIANT ret;
771 prop.ulKind = PRSPEC_PROPID;
772 prop.propid = PID_CODEPAGE;
773 hres = IPropertyStorage_ReadMultiple(pps, 1, &prop, &ret);
774 if(FAILED(hres))
775 return hres;
776 if(ret.vt!=VT_I2 || !ret.iVal)
777 return E_FAIL;
779 codepage = ret.iVal;
780 if(uCodePage)
781 *uCodePage = codepage;
784 /* TODO: do something with codepage and stat */
786 hres = IPropertyStorage_WriteMultiple(pps, cpspec, rgpspec, rgvar, propidNameFirst);
787 return hres;
790 /*************************************************************************
791 * SHCreateQueryCancelAutoPlayMoniker [SHELL32.@]
793 HRESULT WINAPI SHCreateQueryCancelAutoPlayMoniker(IMoniker **moniker)
795 TRACE("%p\n", moniker);
797 if (!moniker) return E_INVALIDARG;
798 return CreateClassMoniker(&CLSID_QueryCancelAutoPlay, moniker);
801 static HRESULT gpstatus_to_hresult(GpStatus status)
803 switch (status)
805 case Ok:
806 return S_OK;
807 case InvalidParameter:
808 return E_INVALIDARG;
809 case OutOfMemory:
810 return E_OUTOFMEMORY;
811 case NotImplemented:
812 return E_NOTIMPL;
813 default:
814 return E_FAIL;
818 /* IShellImageData */
819 typedef struct
821 IShellImageData IShellImageData_iface;
822 LONG ref;
824 WCHAR *path;
825 GpImage *image;
826 } ShellImageData;
828 static inline ShellImageData *impl_from_IShellImageData(IShellImageData *iface)
830 return CONTAINING_RECORD(iface, ShellImageData, IShellImageData_iface);
833 static HRESULT WINAPI ShellImageData_QueryInterface(IShellImageData *iface, REFIID riid, void **obj)
835 ShellImageData *This = impl_from_IShellImageData(iface);
837 TRACE("%p, %s, %p\n", This, debugstr_guid(riid), obj);
839 if (IsEqualIID(riid, &IID_IShellImageData) || IsEqualIID(riid, &IID_IUnknown))
841 *obj = &This->IShellImageData_iface;
842 IShellImageData_AddRef(iface);
843 return S_OK;
846 *obj = NULL;
847 return E_NOINTERFACE;
850 static ULONG WINAPI ShellImageData_AddRef(IShellImageData *iface)
852 ShellImageData *This = impl_from_IShellImageData(iface);
853 ULONG ref = InterlockedIncrement(&This->ref);
855 TRACE("%p, %lu\n", This, ref);
857 return ref;
860 static ULONG WINAPI ShellImageData_Release(IShellImageData *iface)
862 ShellImageData *This = impl_from_IShellImageData(iface);
863 ULONG ref = InterlockedDecrement(&This->ref);
865 TRACE("%p, %lu\n", This, ref);
867 if (!ref)
869 GdipDisposeImage(This->image);
870 free(This->path);
871 free(This);
874 return ref;
877 static HRESULT WINAPI ShellImageData_Decode(IShellImageData *iface, DWORD flags, ULONG cx_desired, ULONG cy_desired)
879 ShellImageData *This = impl_from_IShellImageData(iface);
880 GpImage *image;
881 HRESULT hr;
883 TRACE("%p, %#lx, %lu, %lu\n", This, flags, cx_desired, cy_desired);
885 if (This->image)
886 return S_FALSE;
888 if (flags & SHIMGDEC_LOADFULL)
889 FIXME("LOADFULL flag ignored\n");
891 hr = gpstatus_to_hresult(GdipLoadImageFromFile(This->path, &image));
892 if (FAILED(hr))
893 return hr;
895 if (flags & SHIMGDEC_THUMBNAIL)
897 hr = gpstatus_to_hresult(GdipGetImageThumbnail(image, cx_desired, cy_desired, &This->image, NULL, NULL));
898 GdipDisposeImage(image);
900 else
901 This->image = image;
903 return hr;
906 static HRESULT WINAPI ShellImageData_Draw(IShellImageData *iface, HDC hdc, RECT *dest, RECT *src)
908 ShellImageData *This = impl_from_IShellImageData(iface);
909 GpGraphics *graphics;
910 HRESULT hr;
912 TRACE("%p, %p, %s, %s\n", This, hdc, wine_dbgstr_rect(dest), wine_dbgstr_rect(src));
914 if (!This->image)
915 return E_FAIL;
917 if (!dest)
918 return E_INVALIDARG;
920 if (!src)
921 return S_OK;
923 hr = gpstatus_to_hresult(GdipCreateFromHDC(hdc, &graphics));
924 if (FAILED(hr))
925 return hr;
927 hr = gpstatus_to_hresult(GdipDrawImageRectRectI(graphics, This->image, dest->left, dest->top, dest->right - dest->left,
928 dest->bottom - dest->top, src->left, src->top, src->right - src->left, src->bottom - src->top,
929 UnitPixel, NULL, NULL, NULL));
930 GdipDeleteGraphics(graphics);
932 return hr;
935 static HRESULT WINAPI ShellImageData_NextFrame(IShellImageData *iface)
937 ShellImageData *This = impl_from_IShellImageData(iface);
939 FIXME("%p: stub\n", This);
941 return E_NOTIMPL;
944 static HRESULT WINAPI ShellImageData_NextPage(IShellImageData *iface)
946 ShellImageData *This = impl_from_IShellImageData(iface);
948 FIXME("%p: stub\n", This);
950 return E_NOTIMPL;
953 static HRESULT WINAPI ShellImageData_PrevPage(IShellImageData *iface)
955 ShellImageData *This = impl_from_IShellImageData(iface);
957 FIXME("%p: stub\n", This);
959 return E_NOTIMPL;
962 static HRESULT WINAPI ShellImageData_IsTransparent(IShellImageData *iface)
964 ShellImageData *This = impl_from_IShellImageData(iface);
966 FIXME("%p: stub\n", This);
968 return E_NOTIMPL;
971 static HRESULT WINAPI ShellImageData_IsAnimated(IShellImageData *iface)
973 ShellImageData *This = impl_from_IShellImageData(iface);
975 FIXME("%p: stub\n", This);
977 return E_NOTIMPL;
980 static HRESULT WINAPI ShellImageData_IsVector(IShellImageData *iface)
982 ShellImageData *This = impl_from_IShellImageData(iface);
984 FIXME("%p: stub\n", This);
986 return E_NOTIMPL;
989 static HRESULT WINAPI ShellImageData_IsMultipage(IShellImageData *iface)
991 ShellImageData *This = impl_from_IShellImageData(iface);
993 FIXME("%p: stub\n", This);
995 return E_NOTIMPL;
998 static HRESULT WINAPI ShellImageData_IsEditable(IShellImageData *iface)
1000 ShellImageData *This = impl_from_IShellImageData(iface);
1002 FIXME("%p: stub\n", This);
1004 return E_NOTIMPL;
1007 static HRESULT WINAPI ShellImageData_IsPrintable(IShellImageData *iface)
1009 ShellImageData *This = impl_from_IShellImageData(iface);
1011 FIXME("%p: stub\n", This);
1013 return E_NOTIMPL;
1016 static HRESULT WINAPI ShellImageData_IsDecoded(IShellImageData *iface)
1018 ShellImageData *This = impl_from_IShellImageData(iface);
1020 FIXME("%p: stub\n", This);
1022 return E_NOTIMPL;
1025 static HRESULT WINAPI ShellImageData_GetCurrentPage(IShellImageData *iface, ULONG *page)
1027 ShellImageData *This = impl_from_IShellImageData(iface);
1029 FIXME("%p: stub\n", This);
1031 return E_NOTIMPL;
1034 static HRESULT WINAPI ShellImageData_GetPageCount(IShellImageData *iface, ULONG *count)
1036 ShellImageData *This = impl_from_IShellImageData(iface);
1038 FIXME("%p, %p: stub\n", This, count);
1040 return E_NOTIMPL;
1043 static HRESULT WINAPI ShellImageDate_SelectPage(IShellImageData *iface, ULONG page)
1045 ShellImageData *This = impl_from_IShellImageData(iface);
1047 FIXME("%p, %lu: stub\n", This, page);
1049 return E_NOTIMPL;
1052 static HRESULT WINAPI ShellImageData_GetSize(IShellImageData *iface, SIZE *size)
1054 ShellImageData *This = impl_from_IShellImageData(iface);
1055 REAL cx, cy;
1056 HRESULT hr;
1058 TRACE("%p, %p\n", This, size);
1060 if (!This->image)
1061 return E_FAIL;
1063 hr = gpstatus_to_hresult(GdipGetImageDimension(This->image, &cx, &cy));
1064 if (SUCCEEDED(hr))
1066 size->cx = cx;
1067 size->cy = cy;
1070 return hr;
1073 static HRESULT WINAPI ShellImageData_GetRawDataFormat(IShellImageData *iface, GUID *format)
1075 ShellImageData *This = impl_from_IShellImageData(iface);
1077 FIXME("%p, %p: stub\n", This, format);
1079 return E_NOTIMPL;
1082 static HRESULT WINAPI ShellImageData_GetPixelFormat(IShellImageData *iface, PixelFormat *format)
1084 ShellImageData *This = impl_from_IShellImageData(iface);
1086 FIXME("%p, %p: stub\n", This, format);
1088 return E_NOTIMPL;
1091 static HRESULT WINAPI ShellImageData_GetDelay(IShellImageData *iface, DWORD *delay)
1093 ShellImageData *This = impl_from_IShellImageData(iface);
1095 FIXME("%p, %p: stub\n", This, delay);
1097 return E_NOTIMPL;
1100 static HRESULT WINAPI ShellImageData_GetProperties(IShellImageData *iface, DWORD mode, IPropertySetStorage **props)
1102 ShellImageData *This = impl_from_IShellImageData(iface);
1104 FIXME("%p, %#lx, %p: stub\n", This, mode, props);
1106 return E_NOTIMPL;
1109 static HRESULT WINAPI ShellImageData_Rotate(IShellImageData *iface, DWORD angle)
1111 ShellImageData *This = impl_from_IShellImageData(iface);
1113 FIXME("%p, %lu: stub\n", This, angle);
1115 return E_NOTIMPL;
1118 static HRESULT WINAPI ShellImageData_Scale(IShellImageData *iface, ULONG cx, ULONG cy, InterpolationMode mode)
1120 ShellImageData *This = impl_from_IShellImageData(iface);
1122 FIXME("%p, %lu, %lu, %#x: stub\n", This, cx, cy, mode);
1124 return E_NOTIMPL;
1127 static HRESULT WINAPI ShellImageData_DiscardEdit(IShellImageData *iface)
1129 ShellImageData *This = impl_from_IShellImageData(iface);
1131 FIXME("%p: stub\n", This);
1133 return E_NOTIMPL;
1136 static HRESULT WINAPI ShellImageDate_SetEncoderParams(IShellImageData *iface, IPropertyBag *params)
1138 ShellImageData *This = impl_from_IShellImageData(iface);
1140 FIXME("%p, %p: stub\n", This, params);
1142 return E_NOTIMPL;
1145 static HRESULT WINAPI ShellImageData_DisplayName(IShellImageData *iface, LPWSTR name, UINT count)
1147 ShellImageData *This = impl_from_IShellImageData(iface);
1149 FIXME("%p, %p, %u: stub\n", This, name, count);
1151 return E_NOTIMPL;
1154 static HRESULT WINAPI ShellImageData_GetResolution(IShellImageData *iface, ULONG *res_x, ULONG *res_y)
1156 ShellImageData *This = impl_from_IShellImageData(iface);
1158 FIXME("%p, %p, %p: stub\n", This, res_x, res_y);
1160 return E_NOTIMPL;
1163 static HRESULT WINAPI ShellImageData_GetEncoderParams(IShellImageData *iface, GUID *format, EncoderParameters **params)
1165 ShellImageData *This = impl_from_IShellImageData(iface);
1167 FIXME("%p, %p, %p: stub\n", This, format, params);
1169 return E_NOTIMPL;
1172 static HRESULT WINAPI ShellImageData_RegisterAbort(IShellImageData *iface, IShellImageDataAbort *abort,
1173 IShellImageDataAbort **prev)
1175 ShellImageData *This = impl_from_IShellImageData(iface);
1177 FIXME("%p, %p, %p: stub\n", This, abort, prev);
1179 return E_NOTIMPL;
1182 static HRESULT WINAPI ShellImageData_CloneFrame(IShellImageData *iface, Image **frame)
1184 ShellImageData *This = impl_from_IShellImageData(iface);
1186 FIXME("%p, %p: stub\n", This, frame);
1188 return E_NOTIMPL;
1191 static HRESULT WINAPI ShellImageData_ReplaceFrame(IShellImageData *iface, Image *frame)
1193 ShellImageData *This = impl_from_IShellImageData(iface);
1195 FIXME("%p, %p: stub\n", This, frame);
1197 return E_NOTIMPL;
1200 static const IShellImageDataVtbl ShellImageDataVtbl =
1202 ShellImageData_QueryInterface,
1203 ShellImageData_AddRef,
1204 ShellImageData_Release,
1205 ShellImageData_Decode,
1206 ShellImageData_Draw,
1207 ShellImageData_NextFrame,
1208 ShellImageData_NextPage,
1209 ShellImageData_PrevPage,
1210 ShellImageData_IsTransparent,
1211 ShellImageData_IsAnimated,
1212 ShellImageData_IsVector,
1213 ShellImageData_IsMultipage,
1214 ShellImageData_IsEditable,
1215 ShellImageData_IsPrintable,
1216 ShellImageData_IsDecoded,
1217 ShellImageData_GetCurrentPage,
1218 ShellImageData_GetPageCount,
1219 ShellImageDate_SelectPage,
1220 ShellImageData_GetSize,
1221 ShellImageData_GetRawDataFormat,
1222 ShellImageData_GetPixelFormat,
1223 ShellImageData_GetDelay,
1224 ShellImageData_GetProperties,
1225 ShellImageData_Rotate,
1226 ShellImageData_Scale,
1227 ShellImageData_DiscardEdit,
1228 ShellImageDate_SetEncoderParams,
1229 ShellImageData_DisplayName,
1230 ShellImageData_GetResolution,
1231 ShellImageData_GetEncoderParams,
1232 ShellImageData_RegisterAbort,
1233 ShellImageData_CloneFrame,
1234 ShellImageData_ReplaceFrame,
1237 static HRESULT create_shellimagedata_from_path(const WCHAR *path, IShellImageData **data)
1239 ShellImageData *This;
1241 This = malloc(sizeof(*This));
1243 This->IShellImageData_iface.lpVtbl = &ShellImageDataVtbl;
1244 This->ref = 1;
1246 This->path = wcsdup(path);
1247 This->image = NULL;
1249 *data = &This->IShellImageData_iface;
1250 return S_OK;
1253 /* IShellImageDataFactory */
1254 static HRESULT WINAPI ShellImageDataFactory_QueryInterface(IShellImageDataFactory *iface, REFIID riid, void **obj)
1256 TRACE("(%p, %s, %p)\n", iface, debugstr_guid(riid), obj);
1258 if (IsEqualIID(&IID_IShellImageDataFactory, riid) || IsEqualIID(&IID_IUnknown, riid))
1260 *obj = iface;
1262 else
1264 FIXME("not implemented for %s\n", debugstr_guid(riid));
1265 *obj = NULL;
1266 return E_NOINTERFACE;
1269 IUnknown_AddRef((IUnknown*)*obj);
1270 return S_OK;
1273 static ULONG WINAPI ShellImageDataFactory_AddRef(IShellImageDataFactory *iface)
1275 TRACE("(%p)\n", iface);
1277 return 2;
1280 static ULONG WINAPI ShellImageDataFactory_Release(IShellImageDataFactory *iface)
1282 TRACE("(%p)\n", iface);
1284 return 1;
1287 static HRESULT WINAPI ShellImageDataFactory_CreateIShellImageData(IShellImageDataFactory *iface, IShellImageData **data)
1289 FIXME("%p, %p: stub\n", iface, data);
1291 return E_NOTIMPL;
1294 static HRESULT WINAPI ShellImageDataFactory_CreateImageFromFile(IShellImageDataFactory *iface, const WCHAR *path,
1295 IShellImageData **data)
1297 TRACE("%p, %s, %p\n", iface, debugstr_w(path), data);
1299 return create_shellimagedata_from_path(path, data);
1302 static HRESULT WINAPI ShellImageDataFactory_CreateImageFromStream(IShellImageDataFactory *iface, IStream *stream,
1303 IShellImageData **data)
1305 FIXME("%p, %p, %p: stub\n", iface, stream, data);
1307 return E_NOTIMPL;
1310 static HRESULT WINAPI ShellImageDataFactory_GetDataFormatFromPath(IShellImageDataFactory *iface, const WCHAR *path,
1311 GUID *format)
1313 FIXME("%p, %s, %p: stub\n", iface, debugstr_w(path), format);
1315 return E_NOTIMPL;
1318 static const IShellImageDataFactoryVtbl ShellImageDataFactoryVtbl =
1320 ShellImageDataFactory_QueryInterface,
1321 ShellImageDataFactory_AddRef,
1322 ShellImageDataFactory_Release,
1323 ShellImageDataFactory_CreateIShellImageData,
1324 ShellImageDataFactory_CreateImageFromFile,
1325 ShellImageDataFactory_CreateImageFromStream,
1326 ShellImageDataFactory_GetDataFormatFromPath,
1329 static IShellImageDataFactory ShellImageDataFactory = { &ShellImageDataFactoryVtbl };
1331 HRESULT WINAPI ShellImageDataFactory_Constructor(IUnknown *outer, REFIID riid, void **obj)
1333 TRACE("%p %s %p\n", outer, debugstr_guid(riid), obj);
1335 if (outer)
1336 return CLASS_E_NOAGGREGATION;
1338 return IShellImageDataFactory_QueryInterface(&ShellImageDataFactory, riid, obj);