Webcam-Liste nur "Microsoft WDM Image Capture"

  • VB.NET

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von lauwag.

    Webcam-Liste nur "Microsoft WDM Image Capture"

    Hallo Liebes Forum,

    ich habe folgendes Problem:

    Ich programmiere eine Software, mit der man eine Webcam anzeigen lassen kann.
    Deshalb habe ich folgenden Befehl:

    VB.NET-Quellcode

    1. Dim strName As String = Space(100)
    2. Dim strVer As String = Space(100)
    3. Dim bReturn As Boolean
    4. Dim x As Integer = 0
    5. Do
    6. bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
    7. If bReturn Then lstDevices.Items.Add(strName.Trim)
    9. x += 1
    10. Loop Until bReturn = False
    11. End Sub


    Jedoch sieht die Liste nur so aus,wie man es hier unten sieht, egal,
    wie viele Webcams ich anschließe,und egal, an welchem PC.

    Was ist der Fehler und wie behebe ich ihn?

    Danke

    Lauwag
    Bilder

    • Unbenannt.png

      2,89 kB, 161×149, 2.578 mal angesehen

    Ich benutze ein anderes quellcode, das webcams anzeigt, videos aufnimmt, In vielen Formaten speichert.

    projekt im Anhang!!

    Neue Date, weil die alte nicht richtig hochgeladen wurde.

    Edit by nikeee13:
    Formatierung angepasst.
    Dateien

    • Projects.zip

      (165,97 kB, 463 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „nikeee13“ ()

    Was zeigt denn das System (DeviceManager) an?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodfromGermany: Wenn du den Geräte-Manager meinst, der zeigt mir "Integrated Webcam"an, wie die Webcam auch heißt, und das Fenster sie auch so anzeigt...
    Ich gucke mir mal das Programm von @klonerk an.

    EDIT: Das Programm von klonerk zeigt das gleiche an,wie meins. auch die "Microsoft WDM Image Capture".

    EDIT: Hier mal der Ablauf meines Programmes:

    1.Ich starte mein Programm
    2.Ich öffne das Drop-Down Menü (s.Bild1)
    3. Ich klicke auf "Start Preview"
    4.Es öffnet sich das Fenster (s.Bild 2)
    5.Ich wähle ein vorhandenes Gerät aus, wie es der Treiber kennt.
    6.Ich drücke auf OK
    7.Ich drücke nochmal auf "Start Preview"
    8.Das Bild erscheint.
    Bilder

    • Bild 1.png

      2,89 kB, 161×149, 2.527 mal angesehen

    • Bild 2.png

      20,05 kB, 375×408, 244 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „lauwag“ ()

    2 Minuten googlen schrieb:

    WDM ist ein neues Windows-Versions-übergreifendes Treibermodell von Microsoft. Bei vielen Capture-fähigen Videokarten wird dieser Treiber seit ca 2000 mitinstalliert.
    Ist der angezeigte Name dein einziges Problem, oder funktioniert die Aufnahme über den WDM-Treiber nicht?

    Hallo,

    die Aufnahmefunktion eines Bildes funktioniert. Du kannst das auch selber ausprobieren:

    eyeinc.jimdo.com/unsere-programme/multicamview/

    Mein Problem ist ja, dass ich bei anderen Kamera-basierten Programmen
    wie amcap.exe , skype oder das Dienstprogramm meiner Webcam (Dell Webcam Central)
    ,Webcam Quellen wie "Integrated Webcam","Mobiola Video Source"(Warelex inc.) oder
    der Live-Videooutput wie bei einem Screenshot Programm.
    Also alles, was man z.B. bei Skype auswählen kann, wenn man live
    mit jmd. telefonieren will!

    Lauwag

    So,ich ahb jetzt mal nachgelesen.
    Das Problem ist, dass der zweite Ansatz von dem Typen bei msdn(Powmax) alle Geräte auflistet,
    und nicht nur die Webcams.
    WMI nachgeguckt, aber da gibts nur Angaben, wie man den freien Speicher berechnet usw...

    LauWag

    mit dem WMI lässt sich viel mehr im system machen, suche weiter. hier mal nur eine der gut 2 dutzend klassen: msdn.microsoft.com/en-us/libra…a394084%28v=vs.85%29.aspx

    was der "msdn-typ" ( ^^ ) meinte geht mit einer DLL sehe ich grad. kannst du die nicht mal herunterladen und in einem anderen projekt ausprobieren, ob du dort den richtigen namen erhalten kannst? wenn er in der liste auftaucht kannst du ja nachschauen, ob es möglich ist die geräte zu unterscheiden (in klassen einzuteilen)

    Wegen der WMI werd ich jetzt mal versuchen.
    Im Anhang ist das andere Programm , was mir aber nur einen Bluetooth Treiber anzeigt,
    kannst du ja mal ausprobieren :D

    LauWag

    EDIT: Ich hab jetzt mal nach der WMI geguckt, aber da gibt es nichts mit Webcam-Listen!
    Dateien

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

    OK,
    source kein Ding....
    Was bringt mir denn aber auflisten,wenn ich sie nicht anzeigen lassen kann?

    Source:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Device
    3. Private mName As String
    4. Private mManufacturer As String
    5. Private mDescription As String
    6. Private mService As String
    7. Private mDeviceID As String
    8. Private mPNPDeviceID As String
    9. Private mClassGUID As String
    11. Public Property Name() As String
    12. Get
    13. Return mName
    14. End Get
    15. Set(ByVal value As String)
    16. mName = value
    17. End Set
    18. End Property
    20. Public Property Manufacturer() As String
    21. Get
    22. Return mManufacturer
    23. End Get
    24. Set(ByVal value As String)
    25. mManufacturer = value
    26. End Set
    27. End Property
    28. Public Shared Function GetAllDevices() As List(Of Device)
    29. Dim pc As String = "." 'local
    30. Dim wmi As Object = GetObject("winmgmts:\\" & pc & "\root\cimv2")
    31. Dim allDevices As New List(Of Device)
    32. Dim devices As Object = wmi.ExecQuery("Select * from Win32_PnPEntity")
    33. Dim device As Device
    34. For Each d As Object In devices
    35. device = New Device
    36. With Device
    37. .mClassGUID = IIf(IsDBNull(d.ClassGuid), 0, d.ClassGuid)
    38. .mDescription = IIf(IsDBNull(d.Description), 0, d.Description)
    39. .DeviceID = IIf(IsDBNull(d.DeviceID), 0, d.DeviceID)
    40. .Manufacturer = IIf(IsDBNull(d.Manufacturer), 0, d.Manufacturer)
    41. .Name = IIf(IsDBNull(d.Name), 0, d.Name)
    42. .PNPDeviceID = IIf(IsDBNull(d.PNPDeviceID), 0, d.PNPDeviceID)
    43. .Service = IIf(IsDBNull(d.Service), 0, d.Service)
    44. End With
    45. allDevices.Add(device)
    46. Next
    47. Return allDevices
    48. End Function
    50. Public Shared Function GetNonWorkingDevices() As List(Of Device)
    51. Dim pc As String = "." 'local
    52. Dim wmi As Object = GetObject("winmgmts:\\" & pc & "\root\cimv2")
    53. Dim notWorking As New List(Of Device)
    54. Dim devices As Object = wmi.ExecQuery("Select * from " & _
    55. "Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
    56. Dim device As Device
    57. For Each d As Object In devices
    58. device = New Device
    59. With Device
    60. .mClassGUID = IIf(IsDBNull(d.ClassGuid), 0, d.ClassGuid)
    61. .mDescription = IIf(IsDBNull(d.Description), 0, d.Description)
    62. .DeviceID = IIf(IsDBNull(d.DeviceID), 0, d.DeviceID)
    63. .Manufacturer = IIf(IsDBNull(d.Manufacturer), 0, d.Manufacturer)
    64. .Name = IIf(IsDBNull(d.Name), 0, d.Name)
    65. .PNPDeviceID = IIf(IsDBNull(d.PNPDeviceID), 0, d.PNPDeviceID)
    66. .Service = IIf(IsDBNull(d.Service), 0, d.Service)
    67. End With
    68. notWorking.Add(device)
    69. Next
    70. Return notWorking
    71. End Function
    72. Public Property Description() As String
    73. Get
    74. Return mDescription
    75. End Get
    76. Set(ByVal value As String)
    77. mDescription = value
    78. End Set
    79. End Property
    81. Public Property Service() As String
    82. Get
    83. Return mService
    84. End Get
    85. Set(ByVal value As String)
    86. mService = value
    87. End Set
    88. End Property
    90. Public Property DeviceID() As String
    91. Get
    92. Return mDeviceID
    93. End Get
    94. Set(ByVal value As String)
    95. mDeviceID = value
    96. End Set
    97. End Property
    99. Public Property PNPDeviceID() As String
    100. Get
    101. Return mPNPDeviceID
    102. End Get
    103. Set(ByVal value As String)
    104. mPNPDeviceID = value
    105. End Set
    106. End Property
    108. Public Property ClassGUID() As String
    109. Get
    110. Return mClassGUID
    111. End Get
    112. Set(ByVal value As String)
    113. mClassGUID = value
    114. End Set
    115. End Property
    116. End Class

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

Facebook
Telefonspende