Speicherung von Webcam aufnahme

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Zcared.

    Speicherung von Webcam aufnahme

    Hallo Community!

    Ich habe hier einen Code gefunden, mit dem es möglich ist die Webcam in einer Picturebox anzeigen zu lassen und anscheinend auch aufzunehmen bzw zu speichern.
    Nur ist das Problem das die Speicherung der videos nicht funktioniert. aus dem Speichercode selbst werde ich persönlich nicht wirklich schlau! deswegen frage ich hier um rat.
    Es ist daher interessant für mich als das ich das Speicher Schema gerne für ein anderes Projekt übernehmen würde.

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Runtime.InteropServices
    4. Imports Microsoft.Win32
    6. Public Class Form1
    7. Inherits System.Windows.Forms.Form
    9. Const WM_CAP_START = &H400S
    10. Const WS_CHILD = &H40000000
    11. Const WS_VISIBLE = &H10000000
    12. Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
    13. Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
    14. Const WM_CAP_EDIT_COPY = WM_CAP_START + 30
    15. Const WM_CAP_SEQUENCE = WM_CAP_START + 62
    16. Const WM_CAP_FILE_SAVEAS = WM_CAP_START + 23
    17. Const WM_CAP_SET_SCALE = WM_CAP_START + 53
    18. Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
    19. Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
    20. Const SWP_NOMOVE = &H2S
    21. Const SWP_NOSIZE = 1
    22. Const SWP_NOZORDER = &H4S
    23. Const HWND_BOTTOM = 1
    24. '--The capGetDriverDescription function retrieves the version
    25. ' description of the capture driver--
    26. Declare Function capGetDriverDescriptionA Lib"avicap32.dll" _
    27. (ByVal wDriverIndex As Short, _
    28. ByVal lpszName As String, ByVal cbName As Integer, _
    29. ByVal lpszVer As String, _
    30. ByVal cbVer As Integer) As Boolean
    32. '--The capCreateCaptureWindow function creates a capture window--
    33. Declare Function capCreateCaptureWindowA Lib"avicap32.dll" _
    34. (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
    35. ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
    36. ByVal nHeight As Short, ByVal hWnd As Integer, _
    37. ByVal nID As Integer) As Integer
    39. '--This function sends the specified message to a window or windows--
    40. Declare Function SendMessage Lib"user32"Alias"SendMessageA" _
    41. (ByVal hwnd As Integer, ByVal Msg As Integer, _
    42. ByVal wParam As Integer, _
    43. <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer
    45. '--Sets the position of the window relative to the screen buffer--
    46. Declare Function SetWindowPos Lib"user32"Alias"SetWindowPos" _
    47. (ByVal hwnd As Integer, _
    48. ByVal hWndInsertAfter As Integer, ByVal x As Integer, _
    49. ByVal y As Integer, _
    50. ByVal cx As Integer, ByVal cy As Integer, _
    51. ByVal wFlags As Integer) As Integer
    53. '--This function destroys the specified window--
    54. Declare Function DestroyWindow Lib"user32" _
    55. (ByVal hndw As Integer) As Boolean
    57. '---used to identify the video source---
    58. Dim CamSource As Integer
    60. '---used as a window handle---
    61. Dim hWnd As Integer
    63. Private Sub cameraSource()
    64. Dim DriverName As String = Space(80)
    65. Dim DriverVersion As String = Space(80)
    66. For i As Integer = 0 To 9
    67. If capGetDriverDescriptionA(i, DriverName, 80, _
    68. DriverVersion, 80) Then
    69. ListBox1.Items.Add(DriverName.Trim)
    70. End If
    71. Next
    72. End Sub
    74. Private Sub previewCamera(ByVal pbCtrl As PictureBox)
    75. hWnd = capCreateCaptureWindowA(CamSource, _
    76. WS_VISIBLE Or WS_CHILD, 0, 0, 0, _
    77. 0, pbCtrl.Handle.ToInt32, 0)
    78. If SendMessage( _
    79. hWnd, WM_CAP_DRIVER_CONNECT, _
    80. CamSource, 0) Then
    81. '---set the preview scale---
    82. SendMessage(hWnd, WM_CAP_SET_SCALE, True, 0)
    83. '---set the preview rate (ms)---
    84. SendMessage(hWnd, WM_CAP_SET_PREVIEWRATE, 30, 0)
    85. '---start previewing the image---
    86. SendMessage(hWnd, WM_CAP_SET_PREVIEW, True, 0)
    87. '---resize window to fit in PictureBox control---
    88. SetWindowPos(hWnd, HWND_BOTTOM, 0, 0, _
    89. pbCtrl.Width, pbCtrl.Height, _
    90. SWP_NOMOVE Or SWP_NOZORDER)
    91. Else
    92. '--error connecting to video source---
    93. DestroyWindow(hWnd)
    94. End If
    95. End Sub
    97. Private Sub stopPreviewCamera()
    98. SendMessage(hWnd, WM_CAP_DRIVER_DISCONNECT, CamSource, 0)
    99. DestroyWindow(hWnd)
    100. End Sub
    102. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    103. cameraSource()
    104. Button4.Enabled = False
    105. Button1.Enabled = False
    106. Button2.Enabled = False
    107. Button3.Enabled = False
    108. End Sub
    110. Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
    111. Label1.Visible = False
    112. previewCamera(PictureBox1)
    113. Button1.Enabled = True
    114. Button4.Enabled = False
    115. Button2.Enabled = True
    116. End Sub
    118. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    119. CamSource = ListBox1.SelectedIndex
    120. '---preview the selected video source
    121. End Sub
    123. 'stop preview
    124. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    125. stopPreviewCamera()
    126. Button4.Enabled = True
    127. Button1.Enabled = False
    128. End Sub
    130. ' recording
    131. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    132. Button3.Enabled = True
    133. Button2.Enabled = False
    134. SendMessage(hWnd, WM_CAP_SEQUENCE, 0, 0)
    135. End Sub
    137. ' stop recording and ask to save video
    138. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    139. Dim save As Integer
    140. save = MsgBox("Do you want to save your recording video", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Recording Video")
    141. If (save = MsgBoxResult.Yes) Then
    142. Dim saveName As New SaveFileDialog
    143. saveName.Filter = "Avi file(*.avi)|*.avi"
    144. If saveName.ShowDialog = Windows.Forms.DialogResult.OK Then
    145. ' SendMessage(hWnd, WM_CAP_FILE_SAVEAS, 0, "C:\RecordedVideo.avi")
    146. SendMessage(hWnd, WM_CAP_FILE_SAVEAS, 0, saveName.FileName)
    147. End If
    148. End If
    149. Me.Cursor = System.Windows.Forms.Cursors.Default
    150. Button2.Enabled = True
    151. Button3.Enabled = False
    152. End Sub
    154. ' preview
    155. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    156. CamSource = ListBox1.SelectedIndex
    157. previewCamera(PictureBox1)
    158. Button4.Enabled = False
    159. Button1.Enabled = True
    160. End Sub
    162. End Class


    Vielen dank im voraus und Liebe Grüße

    Zcared

    @Zcared Das sieht eher nicht gut aus, denn um das nachzuvollziehen, brauchen wir nicht nur die avicap32.dll, sondern auch die (noch) unbekannte Kamera.
    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!

    Zcared schrieb:

    Also nur
    Wir haben nix außer Deinem Code, wir können also nur rumstochern.
    Was sagt das Handbuch?
    Wo ist der Code her?
    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!

    @Zcared Das sieht mir nach einer Inkompatibilität zwischen der DLL und diesem Code sowie Deiner Kamera aus, dieser Dode (DLL ggf. auch) ist nicht für Deine Kamera gemacht bzw. getuned.
    Such mal, ob Du für Deine Kamera ein entsprechendes Interface findest.
    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!

    Oh ok also liegt es an meiner kamera? bzw einfach nur das sie nicht zu dem Code past?
    weil an sich läuft das Programm ja, es ist nur so das der Save button versagt. Ich komme soweit als das ich den Speicherort
    auswählen kann, dann jedoch wird keine Datei erzeugt

    Zcared schrieb:

    Ich komme soweit als das ich den Speicherort auswählen kann, dann jedoch wird keine Datei erzeugt
    Dann bleibt noch übrig, dass die Parameterübergabe des Strings (letzter Parameter) nicht korrekt ist:

    Zcared schrieb:

    VB.NET-Quellcode

    1. Declare Function SendMessage Lib"user32"Alias"SendMessageA" _
    2. (ByVal hwnd As Integer, ByVal Msg As Integer, _
    3. ByVal wParam As Integer, _
    4. <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) _ ' dieser hier
    5. As Integer
    Du kannst hier mehrere Überladungen deklarieren, da musst Du echt probieren.
    Sieh Dir hier mal ein paar Möglichkeiten 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!