Webcam name

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Rikudo.

    Webcam name

    Hallo Leute,

    Ich würde gerne den Namen meiner Webcam auslesen, und zwar den richtigen namen.
    Das hat ein freund in Delphi programmiert: *schnipp*
    Hier wird mir der richtige Webcamname angezeigt:


    Bei allen VB Lösungen die ich im Internet gefunden habe, wird mir immer nur Microsoft WDM Image Capture ausgespuckt...

    Gibt es eine möglichkeit über WMI o.ä. den richtigen Webcamnamen auszulesen?

    Keine Programmdownloads außerhalb des Showrooms! Editiert. ~fufu
    C# Developer
    Learning C++

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „fufu“ ()

    Wenn du uns die Source von dem Projekt deines Freundes geben könntest oder zumindest den Teil, der für das Auslesen des Namen zuständig ist, können wir dir warscheinlich besser helfen :).

    Ok, hier ist der Delphi code:

    Quellcode

    1. {$APPTYPE CONSOLE}
    3. uses
    4. SysUtils,
    5. Windows,
    6. ActiveX,
    7. DirectShow9,
    8. ComObj;
    10. procedure EnumerateVideoInputDevices;
    11. const
    12. IID_IPropertyBag : TGUID = '{55272A00-42CB-11CE-8135-00AA004BB851}';
    13. var
    14. LDevEnum : ICreateDevEnum;
    15. ppEnumMoniker : IEnumMoniker;
    16. pceltFetched : ULONG;
    17. Moniker : IMoniker;
    18. PropBag : IPropertyBag;
    19. pvar : olevariant;
    20. hr : HRESULT;
    21. i : integer;
    22. begin
    23. CocreateInstance(CLSID_SystemDeviceEnum, nil, CLSCTX_INPROC, IID_ICreateDevEnum, LDevEnum);
    24. hr := LDevEnum.CreateClassEnumerator(CLSID_VideoInputDeviceCategory, ppEnumMoniker, 0);
    25. if (hr = S_OK) then
    26. begin
    27. while(ppEnumMoniker.Next(1, Moniker, @pceltFetched) = S_OK) do
    28. begin
    29. Moniker.BindToStorage(nil, nil, IID_IPropertyBag, PropBag);
    31. if PropBag.Read('FriendlyName', pvar, nil) = S_OK then
    32. Writeln(Format('Webcam: %s',[String(pvar)]));
    34. PropBag := nil;
    35. Moniker := nil;
    36. end;
    37. end;
    38. ppEnumMoniker :=nil;
    39. LDevEnum :=nil;
    40. end;
    44. begin
    45. try
    46. CoInitialize(nil);
    47. try
    48. EnumerateVideoInputDevices;
    49. finally
    50. CoUninitialize;
    51. end;
    52. except
    53. on E:EOleException do
    54. Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
    55. on E:Exception do
    56. Writeln(E.Classname, ':', E.Message);
    57. end;
    58. Readln;
    59. end.
    C# Developer
    Learning C++

Facebook
Telefonspende