[Source] Webcam verbunden check

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von chris_2091.

      [Source] Webcam verbunden check

      Hallo,

      Mich hat es nun förmlich dazu gezwungen das hier zu posten da ich das Problem selber mal hatte:
      Prüfen ob eine Webcam vorhanden ist.

      So gehts:

      VB.NET-Quellcode

      1. Public Class Form1
      2. Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As Boolean
      4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      5. LoadDeviceList()
      6. If ListBox1.Items.Count >= 1 Then
      7. MsgBox("Webcam available")
      8. Else
      9. MsgBox("No Webcam Available")
      10. End If
      11. End Sub
      13. Private Sub LoadDeviceList()
      14. Dim strName As String = Space(100)
      15. Dim strVer As String = Space(100)
      16. Dim bReturn As Boolean
      17. Dim x As Integer = 0
      18. Do
      19. bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
      20. If bReturn Then ListBox1.Items.Add(strName.Trim)
      21. x += 1
      22. Loop Until bReturn = False
      23. End Sub
      24. End Class


      Sieht dann so aus:

      C# Developer
      Learning C++

      Mich würde auch mal interessieren, ob man das noch sauberer lösen könnte.
      (Auch wenn der Thread alt ist).

      Habe momentan Folgendes:


      VB.NET-Quellcode

      1. Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (wDriver As Short, lpszName As String, cbName As Integer, lpszVer As String, cbVer As Integer) As Boolean
      3. Private Function GetWebCamDevices() As List(Of String)
      4. Dim Li As New List(Of String)
      5. Dim DriverName As String = String.Empty.PadLeft(100)
      6. Dim DriverVersion As String = String.Empty.PadLeft(100)
      7. For i As Integer = 0 To 9
      8. If capGetDriverDescriptionA(CShort(i), DriverName, 100, DriverVersion, 100) Then
      9. Li.Add(DriverName.Trim)
      10. End If
      11. Next
      12. Return Li
      13. End Function


      -DllImport anstatt Declare Function hat nicht funktioniert
      -Keine Ahnung wie ich die Schleife mit Linq ersetzen könnte (Enumerable.Range.ToList.ForEach(Sub(x) hat auch nicht funktioniert).

      VB.NET-Quellcode

      1. Private Function GetWebCamDevices() As List(Of String)
      2. Dim Li As New List(Of String)
      3. Dim DriverName As String = String.Empty.PadLeft(100)
      4. Dim DriverVersion As String = String.Empty.PadLeft(100)
      5. For i As Short = 0 To Short.MaxValue
      6. If Not capGetDriverDescriptionA(i, DriverName, 100, DriverVersion, 100) Then Exit For
      7. Li.Add(DriverName.Trim)
      8. Next
      9. Return Li
      10. End Function

      ich hab das nicht nachgelesen.
      Ich dachte, den Zähler lassen wir unendlich laufen, bis die Api False zurückgibt - dann werden wir wohl alle erwischt haben.
      Und das unendlichste von Short ist halt Short.Maxvalue.

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

      Hallo zusammen,

      ich habe den Code von @ErfinderDesRades genommen und in mein Programm eingebaut, allerdings liefert die Liste unabhängig ob eine Webcam angeschlossen ist oder nicht, den Wert 1.
      Weiss jemand woran es liegen könnte?

      Der String in der Liste gibt in beiden Fällen Die Liste hat: 1 Einträge
      Der Eintrag der Webcam Liste: Microsoft WDM Image Capture (Win32) wieder.

      Hier mein Code für den Fall:
      Spoiler anzeigen
      ​

      VB.NET-Quellcode

      1. ​ 'Webcam-Anbindung
      2. '***********************************************************************************************************
      3. Dim webcamListe = GetWebCamDevices()
      5. If webcamListe.Count > 1 Then 'mind. eine Webcam vorhanden
      6. 'Video starten'
      7. videoHandle = Me.CreateCaptureWindow(PictureBoxWebcam.Handle)
      8. Else 'keine Webcam vorhanden -> Webcam Bereich wird ausgeblendet
      9. PictureBoxWebcam.Visible = False
      10. End If
      12. Console.WriteLine("Die Liste hat: " + webcamListe.Count.ToString + " Einträge")
      13. Console.WriteLine("Der Eintrag der Webcam Liste: " + webcamListe.Item(0).ToString)