WebCam Bild

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von fraju.

    WebCam Bild

    Hallo Commi. :)
    Ich Programmiere derzeit ein
    Steuerungs Programm, für das Video
    ist eine einfache webCam drinne aber
    wie kann ich die an Steuern?
    den Code den ich bisher habe ist der:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim videoHandle1 As IntPtr
    6. Declare Auto Function SendMessage Lib "user32" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    7. 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
    9. Const EM_LINEFROMCHAR As Integer = &HC9
    10. Const EM_LINEINDEX As Integer = &HBB
    12. Const WS_CHILD As Integer = &H40000000
    13. Const WS_VISIBLE As Integer = &H10000000
    15. Const WM_USER As Short = &H400S
    16. Const WM_CAP_START As Short = &H400S
    17. Const WM_CAP_EDIT_COPY As Short = WM_CAP_START + 30
    18. Const WM_CAP_DRIVER_CONNECT As Short = WM_CAP_START + 10
    19. Const WM_CAP_SET_PREVIEWRATE As Short = WM_CAP_START + 52
    20. Const WM_CAP_SET_OVERLAY As Short = WM_CAP_START + 51
    21. Const WM_CAP_SET_PREVIEW As Short = WM_CAP_START + 50
    22. Const WM_CAP_DRIVER_DISCONNECT As Short = WM_CAP_START + 11
    26. Function CreateCaptureWindow(ByRef hWndParent As IntPtr, Optional ByRef x As Short = 0, Optional ByRef y As Short = 0, Optional ByRef nWidth As Short = 530, Optional ByRef nHeight As Short = 360, Optional ByRef nCameraID As Integer = 0) As IntPtr
    27. Dim previewHandle As IntPtr
    29. previewHandle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, x, y, nWidth, nHeight, hWndParent, 1)
    30. SendMessage(previewHandle, WM_CAP_DRIVER_CONNECT, nCameraID, 0)
    31. SendMessage(previewHandle, WM_CAP_SET_PREVIEWRATE, 30, 0)
    32. SendMessage(previewHandle, WM_CAP_SET_OVERLAY, 1, 0)
    33. SendMessage(previewHandle, WM_CAP_SET_PREVIEW, 1, 0)
    35. Return previewHandle
    36. End Function
    38. Public Function captureWindow(ByRef nCaptureHandle As IntPtr) As System.Drawing.Image
    39. My.Computer.Clipboard.Clear()
    40. SendMessage(nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0)
    42. Return My.Computer.Clipboard.GetImage
    43. End Function
    47. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    48. videoHandle1 = Me.CreateCaptureWindow(PictureBox1.Handle, 0, 0, 530, 360, 0)
    49. End Sub
    50. End Class

    aber es wird nur ein Schwartzes bild angezeigt
    Könnt ihr mir helfen?
    Danke im vorraus :)

Facebook
Telefonspende