Merkwürdiges Webcam Problem

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von dr. Nick.

    Merkwürdiges Webcam Problem

    Hallo!

    Ich versuche gerade eine Webcam in vb.net zum laufen zu bringen, 1 PictureBox, 1 Button und dieser Code:

    VB.NET-Quellcode

    1. Class ShowWebcam
    2. Dim videoHandle As IntPtr
    3. Declare Auto Function SendMessage Lib "user32" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    4. Declare Auto Function capCreateCaptureWindow Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Short, ByVal y As Integer, ByVal nWidth As Short, ByVal nHeight As Short, ByVal hWndParent As IntPtr, ByVal nID As Byte) As IntPtr
    6. Const EM_LINEFROMCHAR As Integer = &HC9
    7. Const EM_LINEINDEX As Integer = &HBB
    9. Const WS_CHILD As Integer = &H40000000
    10. Const WS_VISIBLE As Integer = &H10000000
    12. Const WM_USER As Short = &H400S
    13. Const WM_CAP_START As Short = &H400S
    14. Const WM_CAP_EDIT_COPY As Short = WM_CAP_START + 30
    15. Const WM_CAP_DRIVER_CONNECT As Short = WM_CAP_START + 10
    16. Const WM_CAP_SET_PREVIEWRATE As Short = WM_CAP_START + 52
    17. Const WM_CAP_SET_OVERLAY As Short = WM_CAP_START + 51
    18. Const WM_CAP_SET_PREVIEW As Short = WM_CAP_START + 50
    19. Const WM_CAP_DRIVER_DISCONNECT As Short = WM_CAP_START + 11
    21. Function CreateCaptureWindow(ByRef hWndParent As IntPtr, Optional ByRef x As Short = 0, Optional ByRef y As Short = 0, Optional ByRef nWidth As Short = 640, Optional ByRef nHeight As Short = 420, Optional ByRef nCameraID As Integer = 0) As IntPtr
    22. Dim previewHandle As IntPtr
    24. previewHandle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, x, y, nWidth, nHeight, hWndParent, 1)
    25. SendMessage(previewHandle, WM_CAP_DRIVER_CONNECT, nCameraID, 0)
    26. SendMessage(previewHandle, WM_CAP_SET_PREVIEWRATE, 30, 0)
    27. SendMessage(previewHandle, WM_CAP_SET_OVERLAY, 1, 0)
    28. SendMessage(previewHandle, WM_CAP_SET_PREVIEW, 1, 0)
    30. Return previewHandle
    31. End Function
    33. Sub Disconnect(ByRef nCaptureHandle As IntPtr, Optional ByRef nCameraID As Integer = 0)
    34. SendMessage(nCaptureHandle, WM_CAP_DRIVER_DISCONNECT, nCameraID, 0)
    35. End Sub
    37. Sub Form1_FormClosing() Handles Me.FormClosing
    38. Me.Disconnect(videoHandle)
    39. End Sub
    41. Sub Button1_Click() Handles Button1.Click
    42. videoHandle = Me.CreateCaptureWindow(PictureBox1.Handle)
    43. End Sub
    44. End Class



    So das ganze Problem ist jetzt, es funktioniert genau 1 mal. Sobald ich das Fenster schließe und öffne klappt es nicht mehr. Wenn ich jetzt den PC Neu Starte. Klappt es wieder, 1 mal.

    Witzigerweise beim 1. mal klicke ich auf Button1 und es läuft los

    Beim 2. mal klicke ich auf Button1 dann kommt das Videoquellen auswahlfenster -> Übernehmen, OK und dann bleibt das Fenster schwarz


    PC Daten:
    Intel Core i5
    NVidia GeForce GT610
    Windows 10 x64


    ich hoffe es kann mir jemand helfen

    *Topic verschoben, Code-BBCode korrigiert*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Leider kann ich dir nicht helfen, da ich keine Webcam besitze. Dennoch bin ich auf folgende Library gestoßen welche den Umgang mit Webcams vereinfachen soll:
    easywebcam.codeplex.com/
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

Facebook
Telefonspende