2 * IEnumMoniker implementation for DEVENUM.dll
4 * Copyright (C) 2002 Robert Shearman
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
21 * - Implements IEnumMoniker interface which enumerates through moniker
22 * objects created from HKEY_CLASSES/CLSID/{DEVICE_CLSID}/Instance
25 #include "devenum_private.h"
29 #include "wine/debug.h"
32 /* #define ICOM_THIS_From_IROTData(class, name) class* This = (class*)(((char*)name)-sizeof(void*)) */
34 WINE_DEFAULT_DEBUG_CHANNEL(devenum
);
36 static ULONG WINAPI
DEVENUM_IEnumMoniker_AddRef(LPENUMMONIKER iface
);
37 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_Hash(LPMONIKER iface
, DWORD
* pdwHash
);
38 static ULONG WINAPI
DEVENUM_IMediaCatMoniker_AddRef(LPMONIKER iface
);
39 static ULONG WINAPI
DEVENUM_IPropertyBag_AddRef(LPPROPERTYBAG iface
);
41 static HRESULT WINAPI
DEVENUM_IPropertyBag_QueryInterface(
46 RegPropBagImpl
*This
= (RegPropBagImpl
*)iface
;
47 TRACE("\n\tIID:\t%s\n",debugstr_guid(riid
));
49 if (This
== NULL
|| ppvObj
== NULL
) return E_POINTER
;
51 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
52 IsEqualGUID(riid
, &IID_IPropertyBag
))
54 *ppvObj
= (LPVOID
)iface
;
55 DEVENUM_IPropertyBag_AddRef(iface
);
59 FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid
));
63 /**********************************************************************
64 * DEVENUM_IPropertyBag_AddRef (also IUnknown)
66 static ULONG WINAPI
DEVENUM_IPropertyBag_AddRef(LPPROPERTYBAG iface
)
68 RegPropBagImpl
*This
= (RegPropBagImpl
*)iface
;
71 return InterlockedIncrement(&This
->ref
);
74 /**********************************************************************
75 * DEVENUM_IPropertyBag_Release (also IUnknown)
77 static ULONG WINAPI
DEVENUM_IPropertyBag_Release(LPPROPERTYBAG iface
)
79 RegPropBagImpl
*This
= (RegPropBagImpl
*)iface
;
83 if (InterlockedDecrement(&This
->ref
) == 0) {
84 RegCloseKey(This
->hkey
);
91 static HRESULT WINAPI
DEVENUM_IPropertyBag_Read(
93 LPCOLESTR pszPropName
,
100 RegPropBagImpl
*This
= (RegPropBagImpl
*)iface
;
104 TRACE("(%p)->(%s, %p, %p)\n", This
, debugstr_w(pszPropName
), pVar
, pErrorLog
);
106 if (!pszPropName
|| !pVar
)
109 reswin32
= RegQueryValueExW(This
->hkey
, pszPropName
, NULL
, NULL
, NULL
, &received
);
110 res
= HRESULT_FROM_WIN32(reswin32
);
114 pData
= HeapAlloc(GetProcessHeap(), 0, received
);
116 /* work around a GCC bug that occurs here unless we use the reswin32 variable as well */
117 reswin32
= RegQueryValueExW(This
->hkey
, pszPropName
, NULL
, &type
, pData
, &received
);
118 res
= HRESULT_FROM_WIN32(reswin32
);
123 res
= E_INVALIDARG
; /* assume we cannot coerce into right type */
125 TRACE("Read %ld bytes (%s)\n", received
, type
== REG_SZ
? debugstr_w((LPWSTR
)pData
) : "binary data");
133 V_UNION(pVar
, bstrVal
) = CoTaskMemAlloc(received
);
134 memcpy(V_UNION(pVar
, bstrVal
), (LPWSTR
)pData
, received
);
138 V_VT(pVar
) = VT_BSTR
;
141 V_UNION(pVar
, bstrVal
) = SysAllocStringLen((LPWSTR
)pData
, received
/sizeof(WCHAR
) - 1);
147 TRACE("REG_DWORD: %lx\n", *(DWORD
*)pData
);
155 V_UNION(pVar
, ulVal
) = *(DWORD
*)pData
;
162 SAFEARRAYBOUND bound
;
163 void * pArrayElements
;
165 bound
.cElements
= received
;
166 TRACE("REG_BINARY: len = %ld\n", received
);
170 case VT_ARRAY
| VT_UI1
:
171 if (!(V_UNION(pVar
, parray
) = SafeArrayCreate(VT_UI1
, 1, &bound
)))
177 if (res
== E_INVALIDARG
)
180 res
= SafeArrayAccessData(V_UNION(pVar
, parray
), &pArrayElements
);
184 CopyMemory(pArrayElements
, pData
, received
);
185 res
= SafeArrayUnaccessData(V_UNION(pVar
, parray
));
189 if (res
== E_INVALIDARG
)
190 FIXME("Variant type %x not supported for regtype %lx\n", V_VT(pVar
), type
);
194 HeapFree(GetProcessHeap(), 0, pData
);
196 TRACE("<- %lx\n", res
);
200 static HRESULT WINAPI
DEVENUM_IPropertyBag_Write(
202 LPCOLESTR pszPropName
,
205 RegPropBagImpl
*This
= (RegPropBagImpl
*)iface
;
206 LPVOID lpData
= NULL
;
211 TRACE("(%p)->(%s, %p)\n", This
, debugstr_w(pszPropName
), pVar
);
216 TRACE("writing %s\n", debugstr_w(V_UNION(pVar
, bstrVal
)));
217 lpData
= (LPVOID
)V_UNION(pVar
, bstrVal
);
219 cbData
= (lstrlenW(V_UNION(pVar
, bstrVal
)) + 1) * sizeof(WCHAR
);
223 TRACE("writing %lu\n", V_UNION(pVar
, ulVal
));
224 lpData
= (LPVOID
)&V_UNION(pVar
, ulVal
);
226 cbData
= sizeof(DWORD
);
228 case VT_ARRAY
| VT_UI1
:
233 res
= SafeArrayGetLBound(V_UNION(pVar
, parray
), 1, &lLbound
);
234 res
= SafeArrayGetUBound(V_UNION(pVar
, parray
), 1, &lUbound
);
235 cbData
= (lUbound
- lLbound
+ 1) /* * sizeof(BYTE)*/;
236 TRACE("cbData: %ld\n", cbData
);
237 res
= SafeArrayAccessData(V_UNION(pVar
, parray
), &lpData
);
241 FIXME("Variant type %d not handled\n", V_VT(pVar
));
245 if (RegSetValueExW(This
->hkey
,
247 dwType
, lpData
, cbData
) != ERROR_SUCCESS
)
250 if (V_VT(pVar
) & VT_ARRAY
)
251 res
= SafeArrayUnaccessData(V_UNION(pVar
, parray
));
256 static IPropertyBagVtbl IPropertyBag_Vtbl
=
258 DEVENUM_IPropertyBag_QueryInterface
,
259 DEVENUM_IPropertyBag_AddRef
,
260 DEVENUM_IPropertyBag_Release
,
261 DEVENUM_IPropertyBag_Read
,
262 DEVENUM_IPropertyBag_Write
267 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_QueryInterface(
272 MediaCatMoniker
*This
= (MediaCatMoniker
*)iface
;
273 TRACE("\n\tIID:\t%s\n",debugstr_guid(riid
));
275 if (This
== NULL
|| ppvObj
== NULL
) return E_POINTER
;
279 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
280 IsEqualGUID(riid
, &IID_IPersist
) ||
281 IsEqualGUID(riid
, &IID_IPersistStream
) ||
282 IsEqualGUID(riid
, &IID_IMoniker
))
284 *ppvObj
= (LPVOID
)iface
;
285 DEVENUM_IMediaCatMoniker_AddRef(iface
);
289 FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid
));
290 return E_NOINTERFACE
;
293 /**********************************************************************
294 * DEVENUM_IMediaCatMoniker_AddRef (also IUnknown)
296 static ULONG WINAPI
DEVENUM_IMediaCatMoniker_AddRef(LPMONIKER iface
)
298 MediaCatMoniker
*This
= (MediaCatMoniker
*)iface
;
301 if (This
== NULL
) return E_POINTER
;
306 /**********************************************************************
307 * DEVENUM_IMediaCatMoniker_Release (also IUnknown)
309 static ULONG WINAPI
DEVENUM_IMediaCatMoniker_Release(LPMONIKER iface
)
311 MediaCatMoniker
*This
= (MediaCatMoniker
*)iface
;
315 if (This
== NULL
) return E_POINTER
;
319 RegCloseKey(This
->hkey
);
325 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_GetClassID(
329 MediaCatMoniker
*This
= (MediaCatMoniker
*)iface
;
330 FIXME("(%p)->(%p)\n", This
, pClassID
);
332 if (pClassID
== NULL
)
338 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_IsDirty(LPMONIKER iface
)
345 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_Load(LPMONIKER iface
, IStream
* pStm
)
347 FIXME("(%p)\n", pStm
);
352 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_Save(LPMONIKER iface
, IStream
* pStm
, BOOL fClearDirty
)
354 FIXME("(%p, %s)\n", pStm
, fClearDirty
? "true" : "false");
356 return STG_E_CANTSAVE
;
359 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_GetSizeMax(
361 ULARGE_INTEGER
* pcbSize
)
363 FIXME("(%p)\n", pcbSize
);
365 ZeroMemory(pcbSize
, sizeof(*pcbSize
));
370 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_BindToObject(
377 IUnknown
* pObj
= NULL
;
378 IPropertyBag
* pProp
= NULL
;
381 HRESULT res
= E_FAIL
;
383 MediaCatMoniker
*This
= (MediaCatMoniker
*)iface
;
387 TRACE("(%p)->(%p, %p, %s, %p)\n", This
, pbc
, pmkToLeft
, debugstr_guid(riidResult
), ppvResult
);
393 /* first activation of this class */
395 res
=IMoniker_BindToStorage(iface
, NULL
, NULL
, &IID_IPropertyBag
, &pvptr
);
396 pProp
= (IPropertyBag
*)pvptr
;
399 V_VT(&var
) = VT_LPWSTR
;
400 res
= IPropertyBag_Read(pProp
, clsid_keyname
, &var
, NULL
);
404 res
= CLSIDFromString(V_UNION(&var
,bstrVal
), &clsID
);
405 CoTaskMemFree(V_UNION(&var
, bstrVal
));
409 res
=CoCreateInstance(&clsID
,NULL
,CLSCTX_ALL
,&IID_IUnknown
,&pvptr
);
410 pObj
= (IUnknown
*)pvptr
;
416 /* get the requested interface from the loaded class */
417 res
= IUnknown_QueryInterface(pObj
,riidResult
,ppvResult
);
422 IPropertyBag_Release(pProp
);
425 TRACE("<- 0x%lx\n", res
);
430 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_BindToStorage(
437 MediaCatMoniker
*This
= (MediaCatMoniker
*)iface
;
438 TRACE("(%p)->(%p, %p, %s, %p)\n", This
, pbc
, pmkToLeft
, debugstr_guid(riid
), ppvObj
);
442 if (pbc
|| pmkToLeft
)
443 return MK_E_NOSTORAGE
;
445 if (IsEqualGUID(riid
, &IID_IPropertyBag
))
447 RegPropBagImpl
* rpb
= CoTaskMemAlloc(sizeof(RegPropBagImpl
));
449 return E_OUTOFMEMORY
;
450 rpb
->lpVtbl
= &IPropertyBag_Vtbl
;
451 DuplicateHandle(GetCurrentProcess(), This
->hkey
, GetCurrentProcess(), (LPHANDLE
)&(rpb
->hkey
), 0, 0, DUPLICATE_SAME_ACCESS
);
453 *ppvObj
= (LPVOID
)rpb
;
457 return MK_E_NOSTORAGE
;
460 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_Reduce(
463 DWORD dwReduceHowFar
,
464 IMoniker
** ppmkToLeft
,
465 IMoniker
** ppmkReduced
)
467 TRACE("(%p, %ld, %p, %p)\n", pbc
, dwReduceHowFar
, ppmkToLeft
, ppmkReduced
);
471 *ppmkReduced
= iface
;
473 return MK_S_REDUCED_TO_SELF
;
476 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_ComposeWith(
479 BOOL fOnlyIfNotGeneric
,
480 IMoniker
** ppmkComposite
)
482 FIXME("(%p, %s, %p): stub\n", pmkRight
, fOnlyIfNotGeneric
? "true" : "false", ppmkComposite
);
484 /* FIXME: use CreateGenericComposite? */
485 *ppmkComposite
= NULL
;
490 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_Enum(
493 IEnumMoniker
** ppenumMoniker
)
495 FIXME("(%s, %p): stub\n", fForward
? "true" : "false", ppenumMoniker
);
497 *ppenumMoniker
= NULL
;
502 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_IsEqual(
504 IMoniker
* pmkOtherMoniker
)
506 FIXME("(%p)\n", pmkOtherMoniker
);
511 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_Hash(
515 TRACE("(%p)\n", pdwHash
);
522 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_IsRunning(
526 IMoniker
* pmkNewlyRunning
)
528 FIXME("(%p, %p, %p)\n", pbc
, pmkToLeft
, pmkNewlyRunning
);
533 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_GetTimeOfLastChange(
539 TRACE("(%p, %p, %p)\n", pbc
, pmkToLeft
, pFileTime
);
541 pFileTime
->dwLowDateTime
= 0xFFFFFFFF;
542 pFileTime
->dwHighDateTime
= 0x7FFFFFFF;
544 return MK_E_UNAVAILABLE
;
547 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_Inverse(
551 TRACE("(%p)\n", ppmk
);
555 return MK_E_NOINVERSE
;
558 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_CommonPrefixWith(
560 IMoniker
* pmkOtherMoniker
,
561 IMoniker
** ppmkPrefix
)
563 TRACE("(%p, %p)\n", pmkOtherMoniker
, ppmkPrefix
);
567 return MK_E_NOPREFIX
;
570 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_RelativePathTo(
573 IMoniker
** ppmkRelPath
)
575 TRACE("(%p, %p)\n", pmkOther
, ppmkRelPath
);
577 *ppmkRelPath
= pmkOther
;
582 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_GetDisplayName(
586 LPOLESTR
* ppszDisplayName
)
588 MediaCatMoniker
*This
= (MediaCatMoniker
*)iface
;
589 WCHAR wszBuffer
[MAX_PATH
];
590 static const WCHAR wszFriendlyName
[] = {'F','r','i','e','n','d','l','y','N','a','m','e',0};
591 LONG received
= sizeof(wszFriendlyName
);
593 TRACE("(%p, %p, %p)\n", pbc
, pmkToLeft
, ppszDisplayName
);
595 *ppszDisplayName
= NULL
;
597 /* FIXME: should this be the weird stuff we have to parse in IParseDisplayName? */
598 if (RegQueryValueW(This
->hkey
, wszFriendlyName
, wszBuffer
, &received
) == ERROR_SUCCESS
)
600 *ppszDisplayName
= CoTaskMemAlloc(received
);
601 strcpyW(*ppszDisplayName
, wszBuffer
);
608 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_ParseDisplayName(
612 LPOLESTR pszDisplayName
,
616 FIXME("(%p, %p, %s, %p, %p)\n", pbc
, pmkToLeft
, debugstr_w(pszDisplayName
), pchEaten
, ppmkOut
);
624 static HRESULT WINAPI
DEVENUM_IMediaCatMoniker_IsSystemMoniker(
628 TRACE("(%p)\n", pdwMksys
);
633 static IMonikerVtbl IMoniker_Vtbl
=
635 DEVENUM_IMediaCatMoniker_QueryInterface
,
636 DEVENUM_IMediaCatMoniker_AddRef
,
637 DEVENUM_IMediaCatMoniker_Release
,
638 DEVENUM_IMediaCatMoniker_GetClassID
,
639 DEVENUM_IMediaCatMoniker_IsDirty
,
640 DEVENUM_IMediaCatMoniker_Load
,
641 DEVENUM_IMediaCatMoniker_Save
,
642 DEVENUM_IMediaCatMoniker_GetSizeMax
,
643 DEVENUM_IMediaCatMoniker_BindToObject
,
644 DEVENUM_IMediaCatMoniker_BindToStorage
,
645 DEVENUM_IMediaCatMoniker_Reduce
,
646 DEVENUM_IMediaCatMoniker_ComposeWith
,
647 DEVENUM_IMediaCatMoniker_Enum
,
648 DEVENUM_IMediaCatMoniker_IsEqual
,
649 DEVENUM_IMediaCatMoniker_Hash
,
650 DEVENUM_IMediaCatMoniker_IsRunning
,
651 DEVENUM_IMediaCatMoniker_GetTimeOfLastChange
,
652 DEVENUM_IMediaCatMoniker_Inverse
,
653 DEVENUM_IMediaCatMoniker_CommonPrefixWith
,
654 DEVENUM_IMediaCatMoniker_RelativePathTo
,
655 DEVENUM_IMediaCatMoniker_GetDisplayName
,
656 DEVENUM_IMediaCatMoniker_ParseDisplayName
,
657 DEVENUM_IMediaCatMoniker_IsSystemMoniker
660 MediaCatMoniker
* DEVENUM_IMediaCatMoniker_Construct()
662 MediaCatMoniker
* pMoniker
= NULL
;
663 pMoniker
= CoTaskMemAlloc(sizeof(MediaCatMoniker
));
667 pMoniker
->lpVtbl
= &IMoniker_Vtbl
;
669 pMoniker
->hkey
= NULL
;
671 DEVENUM_IMediaCatMoniker_AddRef((LPMONIKER
)pMoniker
);
676 /**********************************************************************
677 * DEVENUM_IEnumMoniker_QueryInterface (also IUnknown)
679 static HRESULT WINAPI
DEVENUM_IEnumMoniker_QueryInterface(
684 EnumMonikerImpl
*This
= (EnumMonikerImpl
*)iface
;
685 TRACE("\n\tIID:\t%s\n",debugstr_guid(riid
));
687 if (This
== NULL
|| ppvObj
== NULL
) return E_POINTER
;
689 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
690 IsEqualGUID(riid
, &IID_IEnumMoniker
))
692 *ppvObj
= (LPVOID
)iface
;
693 DEVENUM_IEnumMoniker_AddRef(iface
);
697 FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid
));
698 return E_NOINTERFACE
;
701 /**********************************************************************
702 * DEVENUM_IEnumMoniker_AddRef (also IUnknown)
704 static ULONG WINAPI
DEVENUM_IEnumMoniker_AddRef(LPENUMMONIKER iface
)
706 EnumMonikerImpl
*This
= (EnumMonikerImpl
*)iface
;
710 if (This
== NULL
) return E_POINTER
;
712 return InterlockedIncrement(&This
->ref
);
715 /**********************************************************************
716 * DEVENUM_IEnumMoniker_Release (also IUnknown)
718 static ULONG WINAPI
DEVENUM_IEnumMoniker_Release(LPENUMMONIKER iface
)
720 EnumMonikerImpl
*This
= (EnumMonikerImpl
*)iface
;
724 if (!InterlockedDecrement(&This
->ref
))
726 RegCloseKey(This
->hkey
);
733 static HRESULT WINAPI
DEVENUM_IEnumMoniker_Next(LPENUMMONIKER iface
, ULONG celt
, IMoniker
** rgelt
, ULONG
* pceltFetched
)
735 WCHAR buffer
[MAX_PATH
+ 1];
738 MediaCatMoniker
* pMoniker
;
739 EnumMonikerImpl
*This
= (EnumMonikerImpl
*)iface
;
741 TRACE("(%ld, %p, %p)\n", celt
, rgelt
, pceltFetched
);
743 while (fetched
< celt
)
745 res
= RegEnumKeyW(This
->hkey
, This
->index
, buffer
, sizeof(buffer
) / sizeof(WCHAR
));
746 if (res
!= ERROR_SUCCESS
)
750 pMoniker
= DEVENUM_IMediaCatMoniker_Construct();
752 return E_OUTOFMEMORY
;
754 if (RegOpenKeyW(This
->hkey
, buffer
, &pMoniker
->hkey
) != ERROR_SUCCESS
)
756 DEVENUM_IMediaCatMoniker_Release((LPMONIKER
)pMoniker
);
759 rgelt
[fetched
] = (LPMONIKER
)pMoniker
;
763 This
->index
+= fetched
;
765 TRACE("-- fetched %ld\n", fetched
);
768 *pceltFetched
= fetched
;
776 static HRESULT WINAPI
DEVENUM_IEnumMoniker_Skip(LPENUMMONIKER iface
, ULONG celt
)
778 EnumMonikerImpl
*This
= (EnumMonikerImpl
*)iface
;
780 TRACE("(%ld)\n", celt
);
787 static HRESULT WINAPI
DEVENUM_IEnumMoniker_Reset(LPENUMMONIKER iface
)
789 EnumMonikerImpl
*This
= (EnumMonikerImpl
*)iface
;
798 static HRESULT WINAPI
DEVENUM_IEnumMoniker_Clone(LPENUMMONIKER iface
, IEnumMoniker
** ppenum
)
800 FIXME("(%p): stub\n", ppenum
);
805 /**********************************************************************
808 IEnumMonikerVtbl IEnumMoniker_Vtbl
=
810 DEVENUM_IEnumMoniker_QueryInterface
,
811 DEVENUM_IEnumMoniker_AddRef
,
812 DEVENUM_IEnumMoniker_Release
,
813 DEVENUM_IEnumMoniker_Next
,
814 DEVENUM_IEnumMoniker_Skip
,
815 DEVENUM_IEnumMoniker_Reset
,
816 DEVENUM_IEnumMoniker_Clone