Vorschau PAL-Kamera

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von markusneu.

    Vorschau PAL-Kamera

    Hallo,

    ich muss für eine Facharbeit ein Programm schreiben, dass mir für eine bestimmte zeit in bestimmten Abständen Fotos macht.
    Ich habe mir (da ich eig nicht programmieren kann) aus dem Internet codeschnipsel zum anzeigen der Kamera in einem Preview-fenster (was es auch geben soll!) und zum abspeichern dieses fensters als bmp gesucht..
    Und das hat uach funktioniert, zumindestens mit der Test-Webcam.
    Als ich dir richtige Kamera geschickt bekommen hab, stellte sich heraus, dass das Bild stark flackert bzw zu 2/3 aus aussetzern besteht!
    Als ich in VLC diese Kamera geöffnet habe, ziegte sie alles ganz normal an, nachdem ich diese aber in den Einstellungen statt auf PAL auf NTSC gesetzt hatte, tauchten exakt (!!) die selben symtome auf...

    Es muss also daran liegen, dass mein code nur mit NTSC klarkommt, nicht jedoch mit PAL!!

    Hier ist der Code, vlt kann mir jemand beim lösen meines problems helfen?

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. Inherits System.Windows.Forms.Form
    6. Dim WM_CAP_DLG_VIDEOSOURCE As Integer
    9. Declare Sub Sleep Lib "kernel32" Alias "Sleep" ()
    10. Dim timeleft As Double
    11. Dim newtime As Double
    12. Friend WithEvents Text1 As System.Windows.Forms.TextBox
    13. Dim start As Boolean
    14. Dim i As Integer
    17. #Region " Windows Form Designer generated code "
    19. Public Sub New()
    20. MyBase.New()
    22. 'This call is required by the Windows Form Designer.
    23. InitializeComponent()
    25. 'Add any initialization after the InitializeComponent() call
    27. End Sub
    33. 'Form overrides dispose to clean up the component list.
    34. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    35. If disposing Then
    36. If Not (components Is Nothing) Then
    37. components.Dispose()
    38. End If
    39. End If
    40. MyBase.Dispose(disposing)
    41. End Sub
    43. 'Required by the Windows Form Designer
    44. Private components As System.ComponentModel.IContainer
    46. 'NOTE: The following procedure is required by the Windows Form Designer
    47. 'It can be modified using the Windows Form Designer.
    48. 'Do not modify it using the code editor.
    49. Friend WithEvents picCapture As System.Windows.Forms.PictureBox
    50. Friend WithEvents lstDevices As System.Windows.Forms.ListBox
    51. Friend WithEvents lblDevice As System.Windows.Forms.Label
    52. Friend WithEvents btnStart As System.Windows.Forms.Button
    53. Friend WithEvents btnSave As System.Windows.Forms.Button
    54. Friend WithEvents btnStop As System.Windows.Forms.Button
    55. Friend WithEvents Timer1 As System.Windows.Forms.Timer
    56. Friend WithEvents sfdImage As System.Windows.Forms.SaveFileDialog
    57. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    58. Me.components = New System.ComponentModel.Container()
    59. Me.picCapture = New System.Windows.Forms.PictureBox()
    60. Me.lstDevices = New System.Windows.Forms.ListBox()
    61. Me.lblDevice = New System.Windows.Forms.Label()
    62. Me.btnStart = New System.Windows.Forms.Button()
    63. Me.btnSave = New System.Windows.Forms.Button()
    64. Me.btnStop = New System.Windows.Forms.Button()
    65. Me.sfdImage = New System.Windows.Forms.SaveFileDialog()
    66. Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
    67. Me.Text1 = New System.Windows.Forms.TextBox()
    68. Me.Label1 = New System.Windows.Forms.Label()
    69. Me.Label2 = New System.Windows.Forms.Label()
    70. Me.Button1 = New System.Windows.Forms.Button()
    71. CType(Me.picCapture, System.ComponentModel.ISupportInitialize).BeginInit()
    72. Me.SuspendLayout()
    73. '
    74. 'picCapture
    75. '
    76. Me.picCapture.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    77. Me.picCapture.Location = New System.Drawing.Point(437, 116)
    78. Me.picCapture.Name = "picCapture"
    79. Me.picCapture.Size = New System.Drawing.Size(114, 85)
    80. Me.picCapture.TabIndex = 0
    81. Me.picCapture.TabStop = False
    82. '
    83. 'lstDevices
    84. '
    85. Me.lstDevices.Location = New System.Drawing.Point(8, 55)
    86. Me.lstDevices.Name = "lstDevices"
    87. Me.lstDevices.Size = New System.Drawing.Size(184, 238)
    88. Me.lstDevices.TabIndex = 1
    89. '
    90. 'lblDevice
    91. '
    92. Me.lblDevice.Location = New System.Drawing.Point(8, 32)
    93. Me.lblDevice.Name = "lblDevice"
    94. Me.lblDevice.Size = New System.Drawing.Size(184, 16)
    95. Me.lblDevice.TabIndex = 2
    96. Me.lblDevice.Text = "Video-Quellen"
    97. Me.lblDevice.TextAlign = System.Drawing.ContentAlignment.TopCenter
    98. '
    99. 'btnStart
    100. '
    101. Me.btnStart.Location = New System.Drawing.Point(20, 320)
    102. Me.btnStart.Name = "btnStart"
    103. Me.btnStart.Size = New System.Drawing.Size(112, 32)
    104. Me.btnStart.TabIndex = 3
    105. Me.btnStart.Text = "Vorschau Starten"
    106. '
    107. 'btnSave
    108. '
    109. Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    110. Me.btnSave.Location = New System.Drawing.Point(360, 320)
    111. Me.btnSave.Name = "btnSave"
    112. Me.btnSave.Size = New System.Drawing.Size(112, 32)
    113. Me.btnSave.TabIndex = 4
    114. Me.btnSave.Text = "Aufnahme Starten"
    115. '
    116. 'btnStop
    117. '
    118. Me.btnStop.Location = New System.Drawing.Point(184, 320)
    119. Me.btnStop.Name = "btnStop"
    120. Me.btnStop.Size = New System.Drawing.Size(112, 32)
    121. Me.btnStop.TabIndex = 5
    122. Me.btnStop.Text = "Vorschau Stoppen"
    123. '
    124. 'sfdImage
    125. '
    126. Me.sfdImage.FileName = "Webcam1"
    127. Me.sfdImage.Filter = "Bitmap|*.bmp"
    128. '
    129. 'Timer1
    130. '
    131. Me.Timer1.Interval = 1000
    132. '
    133. 'Text1
    134. '
    135. Me.Text1.Location = New System.Drawing.Point(637, 327)
    136. Me.Text1.Name = "Text1"
    137. Me.Text1.Size = New System.Drawing.Size(100, 20)
    138. Me.Text1.TabIndex = 6
    139. '
    140. 'Label1
    141. '
    142. Me.Label1.AutoSize = True
    143. Me.Label1.Location = New System.Drawing.Point(514, 333)
    144. Me.Label1.Name = "Label1"
    145. Me.Label1.Size = New System.Drawing.Size(106, 13)
    146. Me.Label1.TabIndex = 7
    147. Me.Label1.Text = "aufgenommen Bilder:"
    148. '
    149. 'Label2
    150. '
    151. Me.Label2.AutoSize = True
    152. Me.Label2.Location = New System.Drawing.Point(470, 100)
    153. Me.Label2.Name = "Label2"
    154. Me.Label2.Size = New System.Drawing.Size(55, 13)
    155. Me.Label2.TabIndex = 8
    156. Me.Label2.Text = "Vorschau:"
    157. '
    158. 'Button1
    159. '
    160. Me.Button1.Location = New System.Drawing.Point(686, 125)
    161. Me.Button1.Name = "Button1"
    162. Me.Button1.Size = New System.Drawing.Size(75, 23)
    163. Me.Button1.TabIndex = 9
    164. Me.Button1.Text = "Button1"
    165. Me.Button1.UseVisualStyleBackColor = True
    166. '
    167. 'Form1
    168. '
    169. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    170. Me.ClientSize = New System.Drawing.Size(819, 382)
    171. Me.Controls.Add(Me.Button1)
    172. Me.Controls.Add(Me.Label2)
    173. Me.Controls.Add(Me.Label1)
    174. Me.Controls.Add(Me.Text1)
    175. Me.Controls.Add(Me.btnStop)
    176. Me.Controls.Add(Me.btnSave)
    177. Me.Controls.Add(Me.btnStart)
    178. Me.Controls.Add(Me.lblDevice)
    179. Me.Controls.Add(Me.lstDevices)
    180. Me.Controls.Add(Me.picCapture)
    181. Me.Name = "Form1"
    182. Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    183. Me.Text = "Video Capture"
    184. CType(Me.picCapture, System.ComponentModel.ISupportInitialize).EndInit()
    185. Me.ResumeLayout(False)
    186. Me.PerformLayout()
    188. End Sub
    190. #End Region
    192. Const WM_CAP As Short = &H400S
    194. Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
    195. Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
    196. Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
    198. Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
    199. Const WM_CAP_SET_PREVIEWRATE As Integer = 25
    200. Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
    201. Const WS_CHILD As Integer = &H40000000
    202. Const WS_VISIBLE As Integer = &H10000000
    203. Const SWP_NOMOVE As Short = &H2S
    204. Const SWP_NOSIZE As Short = 1
    205. Const SWP_NOZORDER As Short = &H4S
    206. Const HWND_BOTTOM As Short = 1
    208. Dim iDevice As Integer = 1 ' Current device ID
    209. Dim hHwnd As Integer ' Handle to preview window
    211. Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    212. (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
    213. <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer
    215. Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, _
    216. ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
    217. ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
    219. Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean
    221. Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
    222. (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
    223. ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
    224. ByVal nHeight As Short, ByVal hWndParent As Integer, _
    225. ByVal nID As Integer) As Integer
    227. Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
    228. ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
    229. ByVal cbVer As Integer) As Boolean
    231. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    232. i = 1
    233. LoadDeviceList()
    234. If lstDevices.Items.Count > 0 Then
    235. btnStart.Enabled = True
    236. lstDevices.SelectedIndex = 0
    237. btnStart.Enabled = True
    238. Else
    239. lstDevices.Items.Add("No Capture Device")
    240. btnStart.Enabled = False
    241. End If
    243. btnStop.Enabled = False
    244. btnSave.Enabled = False
    245. picCapture.SizeMode = PictureBoxSizeMode.StretchImage
    246. End Sub
    248. Private Sub LoadDeviceList()
    249. Dim strName As String = Space(100)
    250. Dim strVer As String = Space(100)
    251. Dim bReturn As Boolean
    252. Dim x As Integer = 0
    254. '
    255. ' Load name of all avialable devices into the lstDevices
    256. '
    258. Do
    259. '
    260. ' Get Driver name and version
    261. '
    262. bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
    264. '
    265. ' If there was a device add device name to the list
    266. '
    267. If bReturn Then lstDevices.Items.Add(strName.Trim)
    268. x += 1
    269. Loop Until bReturn = False
    270. End Sub
    272. Private Sub OpenPreviewWindow()
    273. Dim iHeight As Integer = 352
    274. Dim iWidth As Integer = 570
    275. '
    276. ' Open Preview window in picturebox
    277. '
    278. hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 700, _
    279. 700, picCapture.Handle.ToInt32, 0)
    281. '
    282. ' Connect to device
    283. '
    284. If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
    285. '
    286. 'Set the preview scale
    287. '
    288. SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
    290. '
    291. 'Set the preview rate in milliseconds
    292. '
    293. SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 10, 0)
    295. '
    296. 'Start previewing the image from the camera
    297. '
    298. SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
    300. '
    301. ' Resize window to fit in picturebox
    302. '
    303. SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, _
    304. SWP_NOMOVE Or SWP_NOZORDER)
    306. btnSave.Enabled = True
    307. btnStop.Enabled = True
    308. btnStart.Enabled = False
    309. Else
    310. '
    311. ' Error connecting to device close window
    312. '
    313. DestroyWindow(hHwnd)
    315. btnSave.Enabled = False
    316. End If
    317. End Sub
    319. Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
    320. iDevice = lstDevices.SelectedIndex
    321. OpenPreviewWindow()
    322. End Sub
    324. Private Sub ClosePreviewWindow()
    325. '
    326. ' Disconnect from device
    327. '
    328. SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)
    330. '
    331. ' close window
    332. '
    334. DestroyWindow(hHwnd)
    335. End Sub
    337. Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
    338. ClosePreviewWindow()
    339. btnSave.Enabled = False
    340. btnStart.Enabled = True
    341. btnStop.Enabled = False
    342. End Sub
    344. Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
    348. Text1.Text = CStr(i)
    349. Timer1.Interval = 10
    350. Timer1.Enabled = True
    361. End Sub
    363. Private Sub Form_Unload(ByVal Cancel As Integer)
    364. ' Beim Beenden, Timer deaktivieren
    365. Timer1.Enabled = False
    366. End Sub
    368. Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
    369. If btnStop.Enabled Then
    370. ClosePreviewWindow()
    371. End If
    372. End Sub
    377. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    380. Dim FileName As String
    381. Dim data As IDataObject
    382. Dim bmap As Image
    385. i = i + 1
    391. ' Copy image to clipboard
    392. '
    393. SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
    395. '
    396. ' Get image from clipboard and convert it to a bitmap
    397. '
    398. data = Clipboard.GetDataObject()
    399. If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
    400. bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
    401. picCapture.Image = bmap
    402. 'ClosePreviewWindow()
    403. 'btnSave.Enabled = False
    404. 'btnStop.Enabled = False
    405. 'btnStart.Enabled = True
    407. 'If sfdImage.ShowDialog = DialogResult.OK Then
    408. 'sfdImage.FileName
    410. If i < 10 Then
    411. FileName = "0" + CStr(i)
    412. Else
    413. FileName = CStr(i)
    415. End If
    416. Text1.Text = FileName
    417. bmap.Save("C:/test" + FileName + ".bmp", Imaging.ImageFormat.Bmp)
    419. End If
    422. End Sub
    423. Friend WithEvents Label1 As System.Windows.Forms.Label
    424. Friend WithEvents Label2 As System.Windows.Forms.Label
    425. Friend WithEvents Button1 As System.Windows.Forms.Button
    427. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    428. SendMessage(hHwnd, WM_CAP_DLG_VIDEOSOURCE, 0, 0)
    431. End Sub
    435. Private Sub lstDevices_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstDevices.SelectedIndexChanged
    437. End Sub
    438. End Class


    LG und Danke schonmal :)

    Markus

    Hallo,

    danke schonmal für deine antwort, leider treten aber in diesem programm genau dieselben symptome auf!
    Es die kamera um die es geht, wird übrigens nicht als webcam erkannt, sondern als videogerät.
    ich weiß nicht in wiefern das eine rolle spielt, als dass das die kamera ja prinzipiel erkannt wird!

    LG

    markus

    Ich habe jetzt im Programm "TVideoGrabber" gesehen dass über den Button "device" ein Fenster "Prperties" aufgeht, welches exakt (!!) so aussieht wie das von VLC! Ich könnte mir vorstellen dass es sich da z.B. um einen DirectX-Dialog handeln könnte - den ich ja auch ohne weiteres öffnen können müsste!

Facebook
Telefonspende