a76c7bebfb280b1c6bab4628bf77335b36965a26
[reactos.git] / dll / directx / wine / devenum / mediacatenum.c
1 /*
2 * IEnumMoniker implementation for DEVENUM.dll
3 *
4 * Copyright (C) 2002 Robert Shearman
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 * NOTES ON THIS FILE:
21 * - Implements IEnumMoniker interface which enumerates through moniker
22 * objects created from HKEY_CLASSES/CLSID/{DEVICE_CLSID}/Instance
23 */
24
25 #include "devenum_private.h"
26 #include "oleauto.h"
27 #include "ocidl.h"
28
29 #include "wine/debug.h"
30
31 WINE_DEFAULT_DEBUG_CHANNEL(devenum);
32
33 typedef struct
34 {
35 IEnumMoniker IEnumMoniker_iface;
36 CLSID class;
37 LONG ref;
38 HKEY sw_key;
39 DWORD sw_index;
40 HKEY cm_key;
41 DWORD cm_index;
42 } EnumMonikerImpl;
43
44 typedef struct
45 {
46 IPropertyBag IPropertyBag_iface;
47 LONG ref;
48 enum device_type type;
49 WCHAR path[MAX_PATH];
50 } RegPropBagImpl;
51
52
53 static inline RegPropBagImpl *impl_from_IPropertyBag(IPropertyBag *iface)
54 {
55 return CONTAINING_RECORD(iface, RegPropBagImpl, IPropertyBag_iface);
56 }
57
58 static HRESULT WINAPI DEVENUM_IPropertyBag_QueryInterface(
59 LPPROPERTYBAG iface,
60 REFIID riid,
61 LPVOID *ppvObj)
62 {
63 RegPropBagImpl *This = impl_from_IPropertyBag(iface);
64
65 TRACE("(%p)->(%s, %p)\n", iface, debugstr_guid(riid), ppvObj);
66
67 if (This == NULL || ppvObj == NULL) return E_POINTER;
68
69 if (IsEqualGUID(riid, &IID_IUnknown) ||
70 IsEqualGUID(riid, &IID_IPropertyBag))
71 {
72 *ppvObj = iface;
73 IPropertyBag_AddRef(iface);
74 return S_OK;
75 }
76
77 FIXME("- no interface IID: %s\n", debugstr_guid(riid));
78 return E_NOINTERFACE;
79 }
80
81 /**********************************************************************
82 * DEVENUM_IPropertyBag_AddRef (also IUnknown)
83 */
84 static ULONG WINAPI DEVENUM_IPropertyBag_AddRef(LPPROPERTYBAG iface)
85 {
86 RegPropBagImpl *This = impl_from_IPropertyBag(iface);
87
88 TRACE("(%p)->() AddRef from %d\n", iface, This->ref);
89
90 return InterlockedIncrement(&This->ref);
91 }
92
93 /**********************************************************************
94 * DEVENUM_IPropertyBag_Release (also IUnknown)
95 */
96 static ULONG WINAPI DEVENUM_IPropertyBag_Release(LPPROPERTYBAG iface)
97 {
98 RegPropBagImpl *This = impl_from_IPropertyBag(iface);
99 ULONG ref;
100
101 TRACE("(%p)->() ReleaseThis->ref from %d\n", iface, This->ref);
102
103 ref = InterlockedDecrement(&This->ref);
104 if (ref == 0) {
105 CoTaskMemFree(This);
106 DEVENUM_UnlockModule();
107 }
108 return ref;
109 }
110
111 static HRESULT WINAPI DEVENUM_IPropertyBag_Read(
112 LPPROPERTYBAG iface,
113 LPCOLESTR pszPropName,
114 VARIANT* pVar,
115 IErrorLog* pErrorLog)
116 {
117 LPVOID pData = NULL;
118 DWORD received;
119 DWORD type = 0;
120 RegPropBagImpl *This = impl_from_IPropertyBag(iface);
121 HRESULT res = S_OK;
122 LONG reswin32 = ERROR_SUCCESS;
123 HKEY hkey;
124
125 TRACE("(%p)->(%s, %p, %p)\n", This, debugstr_w(pszPropName), pVar, pErrorLog);
126
127 if (!pszPropName || !pVar)
128 return E_POINTER;
129
130 if (This->type == DEVICE_FILTER)
131 reswin32 = RegOpenKeyW(HKEY_CLASSES_ROOT, This->path, &hkey);
132 else if (This->type == DEVICE_CODEC)
133 reswin32 = RegOpenKeyW(HKEY_CURRENT_USER, This->path, &hkey);
134 res = HRESULT_FROM_WIN32(reswin32);
135
136 if (SUCCEEDED(res))
137 {
138 reswin32 = RegQueryValueExW(hkey, pszPropName, NULL, NULL, NULL, &received);
139 res = HRESULT_FROM_WIN32(reswin32);
140 }
141
142 if (SUCCEEDED(res))
143 {
144 pData = HeapAlloc(GetProcessHeap(), 0, received);
145
146 /* work around a GCC bug that occurs here unless we use the reswin32 variable as well */
147 reswin32 = RegQueryValueExW(hkey, pszPropName, NULL, &type, pData, &received);
148 res = HRESULT_FROM_WIN32(reswin32);
149 }
150
151 if (SUCCEEDED(res))
152 {
153 res = E_INVALIDARG; /* assume we cannot coerce into right type */
154
155 TRACE("Read %d bytes (%s)\n", received, type == REG_SZ ? debugstr_w(pData) : "binary data");
156
157 switch (type)
158 {
159 case REG_SZ:
160 switch (V_VT(pVar))
161 {
162 case VT_LPWSTR:
163 V_BSTR(pVar) = CoTaskMemAlloc(received);
164 memcpy(V_BSTR(pVar), pData, received);
165 res = S_OK;
166 break;
167 case VT_EMPTY:
168 V_VT(pVar) = VT_BSTR;
169 /* fall through */
170 case VT_BSTR:
171 V_BSTR(pVar) = SysAllocStringLen(pData, received/sizeof(WCHAR) - 1);
172 res = S_OK;
173 break;
174 }
175 break;
176 case REG_DWORD:
177 TRACE("REG_DWORD: %x\n", *(DWORD *)pData);
178 switch (V_VT(pVar))
179 {
180 case VT_EMPTY:
181 V_VT(pVar) = VT_I4;
182 /* fall through */
183 case VT_I4:
184 case VT_UI4:
185 V_I4(pVar) = *(DWORD *)pData;
186 res = S_OK;
187 break;
188 }
189 break;
190 case REG_BINARY:
191 {
192 SAFEARRAYBOUND bound;
193 void * pArrayElements;
194 bound.lLbound = 0;
195 bound.cElements = received;
196 TRACE("REG_BINARY: len = %d\n", received);
197 switch (V_VT(pVar))
198 {
199 case VT_EMPTY:
200 V_VT(pVar) = VT_ARRAY | VT_UI1;
201 /* fall through */
202 case VT_ARRAY | VT_UI1:
203 if (!(V_ARRAY(pVar) = SafeArrayCreate(VT_UI1, 1, &bound)))
204 res = E_OUTOFMEMORY;
205 else
206 res = S_OK;
207 break;
208 }
209
210 if (res == E_INVALIDARG)
211 break;
212
213 res = SafeArrayAccessData(V_ARRAY(pVar), &pArrayElements);
214 if (FAILED(res))
215 break;
216
217 CopyMemory(pArrayElements, pData, received);
218 res = SafeArrayUnaccessData(V_ARRAY(pVar));
219 break;
220 }
221 }
222 if (res == E_INVALIDARG)
223 FIXME("Variant type %x not supported for regtype %x\n", V_VT(pVar), type);
224 }
225
226 HeapFree(GetProcessHeap(), 0, pData);
227
228 RegCloseKey(hkey);
229
230 TRACE("<- %x\n", res);
231 return res;
232 }
233
234 static HRESULT WINAPI DEVENUM_IPropertyBag_Write(
235 LPPROPERTYBAG iface,
236 LPCOLESTR pszPropName,
237 VARIANT* pVar)
238 {
239 RegPropBagImpl *This = impl_from_IPropertyBag(iface);
240 LPVOID lpData = NULL;
241 DWORD cbData = 0;
242 DWORD dwType = 0;
243 HRESULT res = S_OK;
244 LONG lres = ERROR_SUCCESS;
245 HKEY hkey;
246
247 TRACE("(%p)->(%s, %p)\n", This, debugstr_w(pszPropName), pVar);
248
249 switch (V_VT(pVar))
250 {
251 case VT_BSTR:
252 case VT_LPWSTR:
253 TRACE("writing %s\n", debugstr_w(V_BSTR(pVar)));
254 lpData = V_BSTR(pVar);
255 dwType = REG_SZ;
256 cbData = (lstrlenW(V_BSTR(pVar)) + 1) * sizeof(WCHAR);
257 break;
258 case VT_I4:
259 case VT_UI4:
260 TRACE("writing %u\n", V_UI4(pVar));
261 lpData = &V_UI4(pVar);
262 dwType = REG_DWORD;
263 cbData = sizeof(DWORD);
264 break;
265 case VT_ARRAY | VT_UI1:
266 {
267 LONG lUbound = 0;
268 LONG lLbound = 0;
269 dwType = REG_BINARY;
270 res = SafeArrayGetLBound(V_ARRAY(pVar), 1, &lLbound);
271 res = SafeArrayGetUBound(V_ARRAY(pVar), 1, &lUbound);
272 cbData = (lUbound - lLbound + 1) /* * sizeof(BYTE)*/;
273 TRACE("cbData: %d\n", cbData);
274 res = SafeArrayAccessData(V_ARRAY(pVar), &lpData);
275 break;
276 }
277 default:
278 FIXME("Variant type %d not handled\n", V_VT(pVar));
279 return E_FAIL;
280 }
281
282 if (This->type == DEVICE_FILTER)
283 lres = RegCreateKeyW(HKEY_CLASSES_ROOT, This->path, &hkey);
284 else if (This->type == DEVICE_CODEC)
285 lres = RegCreateKeyW(HKEY_CURRENT_USER, This->path, &hkey);
286 res = HRESULT_FROM_WIN32(lres);
287
288 if (SUCCEEDED(res))
289 {
290 lres = RegSetValueExW(hkey, pszPropName, 0, dwType, lpData, cbData);
291 res = HRESULT_FROM_WIN32(lres);
292 RegCloseKey(hkey);
293 }
294
295 if (V_VT(pVar) & VT_ARRAY)
296 res = SafeArrayUnaccessData(V_ARRAY(pVar));
297
298 return res;
299 }
300
301 static const IPropertyBagVtbl IPropertyBag_Vtbl =
302 {
303 DEVENUM_IPropertyBag_QueryInterface,
304 DEVENUM_IPropertyBag_AddRef,
305 DEVENUM_IPropertyBag_Release,
306 DEVENUM_IPropertyBag_Read,
307 DEVENUM_IPropertyBag_Write
308 };
309
310 static HRESULT create_PropertyBag(MediaCatMoniker *mon, IPropertyBag **ppBag)
311 {
312 RegPropBagImpl * rpb = CoTaskMemAlloc(sizeof(RegPropBagImpl));
313 if (!rpb)
314 return E_OUTOFMEMORY;
315 rpb->IPropertyBag_iface.lpVtbl = &IPropertyBag_Vtbl;
316 rpb->ref = 1;
317 rpb->type = mon->type;
318
319 if (rpb->type == DEVICE_FILTER)
320 strcpyW(rpb->path, clsidW);
321 else if (rpb->type == DEVICE_CODEC)
322 strcpyW(rpb->path, wszActiveMovieKey);
323 if (mon->has_class)
324 {
325 StringFromGUID2(&mon->class, rpb->path + strlenW(rpb->path), CHARS_IN_GUID);
326 if (rpb->type == DEVICE_FILTER)
327 strcatW(rpb->path, instanceW);
328 strcatW(rpb->path, backslashW);
329 }
330 strcatW(rpb->path, mon->name);
331
332 *ppBag = &rpb->IPropertyBag_iface;
333 DEVENUM_LockModule();
334 return S_OK;
335 }
336
337
338 static inline MediaCatMoniker *impl_from_IMoniker(IMoniker *iface)
339 {
340 return CONTAINING_RECORD(iface, MediaCatMoniker, IMoniker_iface);
341 }
342
343 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_QueryInterface(IMoniker *iface, REFIID riid,
344 void **ppv)
345 {
346 TRACE("\n\tIID:\t%s\n",debugstr_guid(riid));
347
348 if (!ppv)
349 return E_POINTER;
350
351 if (IsEqualGUID(riid, &IID_IUnknown) ||
352 IsEqualGUID(riid, &IID_IPersist) ||
353 IsEqualGUID(riid, &IID_IPersistStream) ||
354 IsEqualGUID(riid, &IID_IMoniker))
355 {
356 *ppv = iface;
357 IMoniker_AddRef(iface);
358 return S_OK;
359 }
360
361 FIXME("- no interface IID: %s\n", debugstr_guid(riid));
362 *ppv = NULL;
363 return E_NOINTERFACE;
364 }
365
366 static ULONG WINAPI DEVENUM_IMediaCatMoniker_AddRef(IMoniker *iface)
367 {
368 MediaCatMoniker *This = impl_from_IMoniker(iface);
369 ULONG ref = InterlockedIncrement(&This->ref);
370
371 TRACE("(%p) ref=%d\n", This, ref);
372
373 return ref;
374 }
375
376 static ULONG WINAPI DEVENUM_IMediaCatMoniker_Release(IMoniker *iface)
377 {
378 MediaCatMoniker *This = impl_from_IMoniker(iface);
379 ULONG ref = InterlockedDecrement(&This->ref);
380
381 TRACE("(%p) ref=%d\n", This, ref);
382
383 if (ref == 0) {
384 CoTaskMemFree(This->name);
385 CoTaskMemFree(This);
386 DEVENUM_UnlockModule();
387 }
388 return ref;
389 }
390
391 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_GetClassID(IMoniker *iface, CLSID *pClassID)
392 {
393 MediaCatMoniker *This = impl_from_IMoniker(iface);
394
395 TRACE("(%p)->(%p)\n", This, pClassID);
396
397 if (pClassID == NULL)
398 return E_INVALIDARG;
399
400 *pClassID = CLSID_CDeviceMoniker;
401
402 return S_OK;
403 }
404
405 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_IsDirty(IMoniker *iface)
406 {
407 FIXME("(%p)->(): stub\n", iface);
408
409 return S_FALSE;
410 }
411
412 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_Load(IMoniker *iface, IStream *pStm)
413 {
414 FIXME("(%p)->(%p): stub\n", iface, pStm);
415
416 return E_NOTIMPL;
417 }
418
419 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_Save(IMoniker *iface, IStream *pStm, BOOL fClearDirty)
420 {
421 FIXME("(%p)->(%p, %s): stub\n", iface, pStm, fClearDirty ? "true" : "false");
422
423 return STG_E_CANTSAVE;
424 }
425
426 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_GetSizeMax(IMoniker *iface, ULARGE_INTEGER *pcbSize)
427 {
428 FIXME("(%p)->(%p): stub\n", iface, pcbSize);
429
430 ZeroMemory(pcbSize, sizeof(*pcbSize));
431
432 return S_OK;
433 }
434
435 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_BindToObject(IMoniker *iface, IBindCtx *pbc,
436 IMoniker *pmkToLeft, REFIID riidResult, void **ppvResult)
437 {
438 MediaCatMoniker *This = impl_from_IMoniker(iface);
439 IUnknown * pObj = NULL;
440 IPropertyBag * pProp = NULL;
441 CLSID clsID;
442 VARIANT var;
443 HRESULT res = E_FAIL;
444
445 TRACE("(%p)->(%p, %p, %s, %p)\n", This, pbc, pmkToLeft, debugstr_guid(riidResult), ppvResult);
446
447 if (!ppvResult)
448 return E_POINTER;
449
450 VariantInit(&var);
451 *ppvResult = NULL;
452
453 if(pmkToLeft==NULL)
454 {
455 /* first activation of this class */
456 LPVOID pvptr;
457 res=IMoniker_BindToStorage(iface, NULL, NULL, &IID_IPropertyBag, &pvptr);
458 pProp = pvptr;
459 if (SUCCEEDED(res))
460 {
461 V_VT(&var) = VT_LPWSTR;
462 res = IPropertyBag_Read(pProp, clsid_keyname, &var, NULL);
463 }
464 if (SUCCEEDED(res))
465 {
466 res = CLSIDFromString(V_BSTR(&var), &clsID);
467 CoTaskMemFree(V_BSTR(&var));
468 }
469 if (SUCCEEDED(res))
470 {
471 res=CoCreateInstance(&clsID,NULL,CLSCTX_ALL,&IID_IUnknown,&pvptr);
472 pObj = pvptr;
473 }
474 }
475
476 if (pObj!=NULL)
477 {
478 /* get the requested interface from the loaded class */
479 res = S_OK;
480 if (pProp) {
481 HRESULT res2;
482 LPVOID ppv = NULL;
483 res2 = IUnknown_QueryInterface(pObj, &IID_IPersistPropertyBag, &ppv);
484 if (SUCCEEDED(res2)) {
485 res = IPersistPropertyBag_Load((IPersistPropertyBag *) ppv, pProp, NULL);
486 IPersistPropertyBag_Release((IPersistPropertyBag *) ppv);
487 }
488 }
489 if (SUCCEEDED(res))
490 res= IUnknown_QueryInterface(pObj,riidResult,ppvResult);
491 IUnknown_Release(pObj);
492 }
493
494 if (pProp)
495 {
496 IPropertyBag_Release(pProp);
497 }
498
499 TRACE("<- 0x%x\n", res);
500
501 return res;
502 }
503
504 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_BindToStorage(IMoniker *iface, IBindCtx *pbc,
505 IMoniker *pmkToLeft, REFIID riid, void **ppvObj)
506 {
507 MediaCatMoniker *This = impl_from_IMoniker(iface);
508
509 TRACE("(%p)->(%p, %p, %s, %p)\n", This, pbc, pmkToLeft, debugstr_guid(riid), ppvObj);
510
511 *ppvObj = NULL;
512
513 if (pmkToLeft)
514 return MK_E_NOSTORAGE;
515
516 if (pbc != NULL)
517 {
518 static DWORD reported;
519 if (!reported)
520 {
521 FIXME("ignoring IBindCtx %p\n", pbc);
522 reported++;
523 }
524 }
525
526 if (IsEqualGUID(riid, &IID_IPropertyBag))
527 {
528 return create_PropertyBag(This, (IPropertyBag**)ppvObj);
529 }
530
531 return MK_E_NOSTORAGE;
532 }
533
534 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_Reduce(IMoniker *iface, IBindCtx *pbc,
535 DWORD dwReduceHowFar, IMoniker **ppmkToLeft, IMoniker **ppmkReduced)
536 {
537 TRACE("(%p)->(%p, %d, %p, %p)\n", iface, pbc, dwReduceHowFar, ppmkToLeft, ppmkReduced);
538
539 if (ppmkToLeft)
540 *ppmkToLeft = NULL;
541 *ppmkReduced = iface;
542
543 return MK_S_REDUCED_TO_SELF;
544 }
545
546 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_ComposeWith(IMoniker *iface, IMoniker *pmkRight,
547 BOOL fOnlyIfNotGeneric, IMoniker **ppmkComposite)
548 {
549 FIXME("(%p)->(%p, %s, %p): stub\n", iface, pmkRight, fOnlyIfNotGeneric ? "true" : "false", ppmkComposite);
550
551 /* FIXME: use CreateGenericComposite? */
552 *ppmkComposite = NULL;
553
554 return E_NOTIMPL;
555 }
556
557 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_Enum(IMoniker *iface, BOOL fForward,
558 IEnumMoniker **ppenumMoniker)
559 {
560 FIXME("(%p)->(%s, %p): stub\n", iface, fForward ? "true" : "false", ppenumMoniker);
561
562 *ppenumMoniker = NULL;
563
564 return S_OK;
565 }
566
567 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_IsEqual(IMoniker *iface, IMoniker *pmkOtherMoniker)
568 {
569 CLSID clsid;
570 LPOLESTR this_name, other_name;
571 IBindCtx *bind;
572 HRESULT res;
573
574 TRACE("(%p)->(%p)\n", iface, pmkOtherMoniker);
575
576 if (!pmkOtherMoniker)
577 return E_INVALIDARG;
578
579 IMoniker_GetClassID(pmkOtherMoniker, &clsid);
580 if (!IsEqualCLSID(&clsid, &CLSID_CDeviceMoniker))
581 return S_FALSE;
582
583 res = CreateBindCtx(0, &bind);
584 if (FAILED(res))
585 return res;
586
587 res = S_FALSE;
588 if (SUCCEEDED(IMoniker_GetDisplayName(iface, bind, NULL, &this_name)) &&
589 SUCCEEDED(IMoniker_GetDisplayName(pmkOtherMoniker, bind, NULL, &other_name)))
590 {
591 int result = lstrcmpiW(this_name, other_name);
592 CoTaskMemFree(this_name);
593 CoTaskMemFree(other_name);
594 if (!result)
595 res = S_OK;
596 }
597 IBindCtx_Release(bind);
598 return res;
599 }
600
601 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_Hash(IMoniker *iface, DWORD *pdwHash)
602 {
603 TRACE("(%p)->(%p)\n", iface, pdwHash);
604
605 *pdwHash = 0;
606
607 return S_OK;
608 }
609
610 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_IsRunning(IMoniker *iface, IBindCtx *pbc,
611 IMoniker *pmkToLeft, IMoniker *pmkNewlyRunning)
612 {
613 FIXME("(%p)->(%p, %p, %p): stub\n", iface, pbc, pmkToLeft, pmkNewlyRunning);
614
615 return S_FALSE;
616 }
617
618 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_GetTimeOfLastChange(IMoniker *iface, IBindCtx *pbc,
619 IMoniker *pmkToLeft, FILETIME *pFileTime)
620 {
621 TRACE("(%p)->(%p, %p, %p)\n", iface, pbc, pmkToLeft, pFileTime);
622
623 pFileTime->dwLowDateTime = 0xFFFFFFFF;
624 pFileTime->dwHighDateTime = 0x7FFFFFFF;
625
626 return MK_E_UNAVAILABLE;
627 }
628
629 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_Inverse(IMoniker *iface, IMoniker **ppmk)
630 {
631 TRACE("(%p)->(%p)\n", iface, ppmk);
632
633 *ppmk = NULL;
634
635 return MK_E_NOINVERSE;
636 }
637
638 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_CommonPrefixWith(IMoniker *iface,
639 IMoniker *pmkOtherMoniker, IMoniker **ppmkPrefix)
640 {
641 TRACE("(%p)->(%p, %p)\n", iface, pmkOtherMoniker, ppmkPrefix);
642
643 *ppmkPrefix = NULL;
644
645 return MK_E_NOPREFIX;
646 }
647
648 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_RelativePathTo(IMoniker *iface, IMoniker *pmkOther,
649 IMoniker **ppmkRelPath)
650 {
651 TRACE("(%p)->(%p, %p)\n", iface, pmkOther, ppmkRelPath);
652
653 *ppmkRelPath = pmkOther;
654
655 return MK_S_HIM;
656 }
657
658 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_GetDisplayName(IMoniker *iface, IBindCtx *pbc,
659 IMoniker *pmkToLeft, LPOLESTR *ppszDisplayName)
660 {
661 static const WCHAR swW[] = {'s','w',':',0};
662 static const WCHAR cmW[] = {'c','m',':',0};
663 MediaCatMoniker *This = impl_from_IMoniker(iface);
664 WCHAR *buffer;
665
666 TRACE("(%p)->(%p, %p, %p)\n", iface, pbc, pmkToLeft, ppszDisplayName);
667
668 *ppszDisplayName = NULL;
669
670 buffer = CoTaskMemAlloc((strlenW(deviceW) + 4 + (This->has_class ? CHARS_IN_GUID : 0)
671 + strlenW(This->name) + 1) * sizeof(WCHAR));
672 if (!buffer)
673 return E_OUTOFMEMORY;
674
675 strcpyW(buffer, deviceW);
676 if (This->type == DEVICE_FILTER)
677 strcatW(buffer, swW);
678 else if (This->type == DEVICE_CODEC)
679 strcatW(buffer, cmW);
680
681 if (This->has_class)
682 {
683 StringFromGUID2(&This->class, buffer + strlenW(buffer), CHARS_IN_GUID);
684 strcatW(buffer, backslashW);
685 }
686 strcatW(buffer, This->name);
687
688 *ppszDisplayName = buffer;
689 return S_OK;
690 }
691
692 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_ParseDisplayName(IMoniker *iface, IBindCtx *pbc,
693 IMoniker *pmkToLeft, LPOLESTR pszDisplayName, ULONG *pchEaten, IMoniker **ppmkOut)
694 {
695 FIXME("(%p)->(%p, %p, %s, %p, %p)\n", iface, pbc, pmkToLeft, debugstr_w(pszDisplayName), pchEaten, ppmkOut);
696
697 *pchEaten = 0;
698 *ppmkOut = NULL;
699
700 return MK_E_SYNTAX;
701 }
702
703 static HRESULT WINAPI DEVENUM_IMediaCatMoniker_IsSystemMoniker(IMoniker *iface, DWORD *pdwMksys)
704 {
705 TRACE("(%p)->(%p)\n", iface, pdwMksys);
706
707 return S_FALSE;
708 }
709
710 static const IMonikerVtbl IMoniker_Vtbl =
711 {
712 DEVENUM_IMediaCatMoniker_QueryInterface,
713 DEVENUM_IMediaCatMoniker_AddRef,
714 DEVENUM_IMediaCatMoniker_Release,
715 DEVENUM_IMediaCatMoniker_GetClassID,
716 DEVENUM_IMediaCatMoniker_IsDirty,
717 DEVENUM_IMediaCatMoniker_Load,
718 DEVENUM_IMediaCatMoniker_Save,
719 DEVENUM_IMediaCatMoniker_GetSizeMax,
720 DEVENUM_IMediaCatMoniker_BindToObject,
721 DEVENUM_IMediaCatMoniker_BindToStorage,
722 DEVENUM_IMediaCatMoniker_Reduce,
723 DEVENUM_IMediaCatMoniker_ComposeWith,
724 DEVENUM_IMediaCatMoniker_Enum,
725 DEVENUM_IMediaCatMoniker_IsEqual,
726 DEVENUM_IMediaCatMoniker_Hash,
727 DEVENUM_IMediaCatMoniker_IsRunning,
728 DEVENUM_IMediaCatMoniker_GetTimeOfLastChange,
729 DEVENUM_IMediaCatMoniker_Inverse,
730 DEVENUM_IMediaCatMoniker_CommonPrefixWith,
731 DEVENUM_IMediaCatMoniker_RelativePathTo,
732 DEVENUM_IMediaCatMoniker_GetDisplayName,
733 DEVENUM_IMediaCatMoniker_ParseDisplayName,
734 DEVENUM_IMediaCatMoniker_IsSystemMoniker
735 };
736
737 MediaCatMoniker * DEVENUM_IMediaCatMoniker_Construct(void)
738 {
739 MediaCatMoniker * pMoniker = NULL;
740 pMoniker = CoTaskMemAlloc(sizeof(MediaCatMoniker));
741 if (!pMoniker)
742 return NULL;
743
744 pMoniker->IMoniker_iface.lpVtbl = &IMoniker_Vtbl;
745 pMoniker->ref = 0;
746 pMoniker->has_class = FALSE;
747 pMoniker->name = NULL;
748
749 DEVENUM_IMediaCatMoniker_AddRef(&pMoniker->IMoniker_iface);
750
751 DEVENUM_LockModule();
752
753 return pMoniker;
754 }
755
756 static inline EnumMonikerImpl *impl_from_IEnumMoniker(IEnumMoniker *iface)
757 {
758 return CONTAINING_RECORD(iface, EnumMonikerImpl, IEnumMoniker_iface);
759 }
760
761 static HRESULT WINAPI DEVENUM_IEnumMoniker_QueryInterface(IEnumMoniker *iface, REFIID riid,
762 void **ppv)
763 {
764 TRACE("(%p)->(%s, %p)\n", iface, debugstr_guid(riid), ppv);
765
766 if (!ppv)
767 return E_POINTER;
768
769 if (IsEqualGUID(riid, &IID_IUnknown) ||
770 IsEqualGUID(riid, &IID_IEnumMoniker))
771 {
772 *ppv = iface;
773 IEnumMoniker_AddRef(iface);
774 return S_OK;
775 }
776
777 FIXME("- no interface IID: %s\n", debugstr_guid(riid));
778 *ppv = NULL;
779 return E_NOINTERFACE;
780 }
781
782 static ULONG WINAPI DEVENUM_IEnumMoniker_AddRef(IEnumMoniker *iface)
783 {
784 EnumMonikerImpl *This = impl_from_IEnumMoniker(iface);
785 ULONG ref = InterlockedIncrement(&This->ref);
786
787 TRACE("(%p) ref=%d\n", This, ref);
788
789 return ref;
790 }
791
792 static ULONG WINAPI DEVENUM_IEnumMoniker_Release(IEnumMoniker *iface)
793 {
794 EnumMonikerImpl *This = impl_from_IEnumMoniker(iface);
795 ULONG ref = InterlockedDecrement(&This->ref);
796
797 TRACE("(%p) ref=%d\n", This, ref);
798
799 if (!ref)
800 {
801 RegCloseKey(This->sw_key);
802 RegCloseKey(This->cm_key);
803 CoTaskMemFree(This);
804 DEVENUM_UnlockModule();
805 return 0;
806 }
807 return ref;
808 }
809
810 static HRESULT WINAPI DEVENUM_IEnumMoniker_Next(IEnumMoniker *iface, ULONG celt, IMoniker **rgelt,
811 ULONG *pceltFetched)
812 {
813 EnumMonikerImpl *This = impl_from_IEnumMoniker(iface);
814 WCHAR buffer[MAX_PATH + 1];
815 LONG res;
816 ULONG fetched = 0;
817 MediaCatMoniker * pMoniker;
818 HKEY hkey;
819
820 TRACE("(%p)->(%d, %p, %p)\n", iface, celt, rgelt, pceltFetched);
821
822 while (fetched < celt)
823 {
824 /* FIXME: try PNP devices and DMOs first */
825
826 /* try DirectShow filters */
827 if (!(res = RegEnumKeyW(This->sw_key, This->sw_index, buffer, sizeof(buffer)/sizeof(WCHAR))))
828 {
829 This->sw_index++;
830 if ((res = RegOpenKeyExW(This->sw_key, buffer, 0, KEY_QUERY_VALUE, &hkey)))
831 break;
832
833 if (!(pMoniker = DEVENUM_IMediaCatMoniker_Construct()))
834 return E_OUTOFMEMORY;
835
836 pMoniker->type = DEVICE_FILTER;
837 }
838 /* then try codecs */
839 else if (!(res = RegEnumKeyW(This->cm_key, This->cm_index, buffer, sizeof(buffer)/sizeof(WCHAR))))
840 {
841 This->cm_index++;
842
843 if ((res = RegOpenKeyExW(This->cm_key, buffer, 0, KEY_QUERY_VALUE, &hkey)))
844 break;
845
846 if (!(pMoniker = DEVENUM_IMediaCatMoniker_Construct()))
847 return E_OUTOFMEMORY;
848
849 pMoniker->type = DEVICE_CODEC;
850 }
851 else
852 break;
853
854 if (!(pMoniker->name = CoTaskMemAlloc((strlenW(buffer) + 1) * sizeof(WCHAR))))
855 {
856 IMoniker_Release(&pMoniker->IMoniker_iface);
857 return E_OUTOFMEMORY;
858 }
859 strcpyW(pMoniker->name, buffer);
860 pMoniker->has_class = TRUE;
861 pMoniker->class = This->class;
862
863 rgelt[fetched] = &pMoniker->IMoniker_iface;
864 fetched++;
865 }
866
867 TRACE("-- fetched %d\n", fetched);
868
869 if (pceltFetched)
870 *pceltFetched = fetched;
871
872 if (fetched != celt)
873 return S_FALSE;
874 else
875 return S_OK;
876 }
877
878 static HRESULT WINAPI DEVENUM_IEnumMoniker_Skip(IEnumMoniker *iface, ULONG celt)
879 {
880 EnumMonikerImpl *This = impl_from_IEnumMoniker(iface);
881
882 TRACE("(%p)->(%d)\n", iface, celt);
883
884 while (celt--)
885 {
886 /* FIXME: try PNP devices and DMOs first */
887
888 /* try DirectShow filters */
889 if (RegEnumKeyW(This->sw_key, This->sw_index, NULL, 0) != ERROR_NO_MORE_ITEMS)
890 {
891 This->sw_index++;
892 }
893 /* then try codecs */
894 else if (RegEnumKeyW(This->cm_key, This->cm_index, NULL, 0) != ERROR_NO_MORE_ITEMS)
895 {
896 This->cm_index++;
897 }
898 else
899 return S_FALSE;
900 }
901
902 return S_OK;
903 }
904
905 static HRESULT WINAPI DEVENUM_IEnumMoniker_Reset(IEnumMoniker *iface)
906 {
907 EnumMonikerImpl *This = impl_from_IEnumMoniker(iface);
908
909 TRACE("(%p)->()\n", iface);
910
911 This->sw_index = 0;
912 This->cm_index = 0;
913
914 return S_OK;
915 }
916
917 static HRESULT WINAPI DEVENUM_IEnumMoniker_Clone(IEnumMoniker *iface, IEnumMoniker **ppenum)
918 {
919 FIXME("(%p)->(%p): stub\n", iface, ppenum);
920
921 return E_NOTIMPL;
922 }
923
924 /**********************************************************************
925 * IEnumMoniker_Vtbl
926 */
927 static const IEnumMonikerVtbl IEnumMoniker_Vtbl =
928 {
929 DEVENUM_IEnumMoniker_QueryInterface,
930 DEVENUM_IEnumMoniker_AddRef,
931 DEVENUM_IEnumMoniker_Release,
932 DEVENUM_IEnumMoniker_Next,
933 DEVENUM_IEnumMoniker_Skip,
934 DEVENUM_IEnumMoniker_Reset,
935 DEVENUM_IEnumMoniker_Clone
936 };
937
938 HRESULT create_EnumMoniker(REFCLSID class, IEnumMoniker **ppEnumMoniker)
939 {
940 EnumMonikerImpl * pEnumMoniker = CoTaskMemAlloc(sizeof(EnumMonikerImpl));
941 WCHAR buffer[78];
942
943 if (!pEnumMoniker)
944 return E_OUTOFMEMORY;
945
946 pEnumMoniker->IEnumMoniker_iface.lpVtbl = &IEnumMoniker_Vtbl;
947 pEnumMoniker->ref = 1;
948 pEnumMoniker->sw_index = 0;
949 pEnumMoniker->cm_index = 0;
950 pEnumMoniker->class = *class;
951
952 strcpyW(buffer, clsidW);
953 StringFromGUID2(class, buffer + strlenW(buffer), CHARS_IN_GUID);
954 strcatW(buffer, instanceW);
955 if (RegOpenKeyExW(HKEY_CLASSES_ROOT, buffer, 0, KEY_ENUMERATE_SUB_KEYS, &pEnumMoniker->sw_key))
956 pEnumMoniker->sw_key = NULL;
957
958 strcpyW(buffer, wszActiveMovieKey);
959 StringFromGUID2(class, buffer + strlenW(buffer), CHARS_IN_GUID);
960 if (RegOpenKeyExW(HKEY_CURRENT_USER, buffer, 0, KEY_ENUMERATE_SUB_KEYS, &pEnumMoniker->cm_key))
961 pEnumMoniker->cm_key = NULL;
962
963 *ppEnumMoniker = &pEnumMoniker->IEnumMoniker_iface;
964
965 DEVENUM_LockModule();
966
967 return S_OK;
968 }