c# 调用摄像头抓图（转）

 1  Imports System
  2  Imports System.Runtime.InteropServices
  3  Imports System.Drawing
  4  Imports System.Drawing.Imaging
  5  
  6  Public Class CamClass Cam
  7  
  8      Private Const WM_USER As Integer  =   & H400
  9      Private Const WS_CHILD As Integer  =   & H40000000
 10      Private Const WS_VISIBLE As Integer  =   & H10000000
 11      Private Const WM_CAP_START As Integer  =  WM_USER
 12      Private Const WM_CAP_STOP As Integer  =  WM_CAP_START  +   68
 13      Private Const WM_CAP_DRIVER_CONNECT As Integer  =  WM_CAP_START  +   10
 14      Private Const WM_CAP_DRIVER_DISCONNECT As Integer  =  WM_CAP_START  +   11
 15      Private Const WM_CAP_SAVEDIB As Integer  =  WM_CAP_START  +   25
 16      Private Const WM_CAP_GRAB_FRAME As Integer  =  WM_CAP_START  +   60
 17      Private Const WM_CAP_SEQUENCE As Integer  =  WM_CAP_START  +   62
 18      Private Const WM_CAP_FILE_SET_CAPTURE_FILEA As Integer  =  WM_CAP_START  +   20
 19      Private Const WM_CAP_SEQUENCE_NOFILE As Integer  =  WM_CAP_START  +   63
 20      Private Const WM_CAP_SET_OVERLAY As Integer  =  WM_CAP_START  +   51
 21      Private Const WM_CAP_SET_PREVIEW As Integer  =  WM_CAP_START  +   50
 22      Private Const WM_CAP_SET_CALLBACK_VIDEOSTREAM As Integer  =  WM_CAP_START  +   6
 23      Private Const WM_CAP_SET_CALLBACK_ERROR As Integer  =  WM_CAP_START  +   2
 24      Private Const WM_CAP_SET_CALLBACK_STATUSA As Integer  =  WM_CAP_START  +   3
 25      Private Const WM_CAP_SET_CALLBACK_FRAME As Integer  =  WM_CAP_START  +   5
 26      Private Const WM_CAP_SET_SCALE As Integer  =  WM_CAP_START  +   53
 27      Private Const WM_CAP_SET_PREVIEWRATE As Integer  =  WM_CAP_START  +   52
 28  
 29      Public Const WM_CAP_GET_CAPSTREAMPTR  =  WM_CAP_START  +   1
 30  
 31      Public Const WM_CAP_SET_CALLBACK_STATUS  =  WM_CAP_START  +   3
 32      Public Const WM_CAP_SET_CALLBACK_YIELD  =  WM_CAP_START  +   4
 33      Public Const WM_CAP_SET_CALLBACK_WAVESTREAM  =  WM_CAP_START  +   7
 34      Public Const WM_CAP_GET_USER_DATA  =  WM_CAP_START  +   8
 35      Public Const WM_CAP_SET_USER_DATA  =  WM_CAP_START  +   9
 36  
 37      Public Const WM_CAP_DRIVER_GET_NAME  =  WM_CAP_START  +   12
 38      Public Const WM_CAP_DRIVER_GET_VERSION  =  WM_CAP_START  +   13
 39      Public Const WM_CAP_DRIVER_GET_CAPS  =  WM_CAP_START  +   14
 40  
 41      Public Const WM_CAP_FILE_SET_CAPTURE_FILE  =  WM_CAP_START  +   20
 42      Public Const WM_CAP_FILE_GET_CAPTURE_FILE  =  WM_CAP_START  +   21
 43      Public Const WM_CAP_FILE_ALLOCATE  =  WM_CAP_START  +   22
 44      Public Const WM_CAP_FILE_SAVEAS  =  WM_CAP_START  +   23
 45      Public Const WM_CAP_FILE_SET_INFOCHUNK  =  WM_CAP_START  +   24
 46      Public Const WM_CAP_FILE_SAVEDIB  =  WM_CAP_START  +   25
 47  
 48      Public Const WM_CAP_EDIT_COPY  =  WM_CAP_START  +   30
 49  
 50      Public Const WM_CAP_SET_AUDIOFORMAT  =  WM_CAP_START  +   35
 51      Public Const WM_CAP_GET_AUDIOFORMAT  =  WM_CAP_START  +   36
 52  
 53      Public Const WM_CAP_DLG_VIDEOFORMAT  =  WM_CAP_START  +   41
 54      Public Const WM_CAP_DLG_VIDEOSOURCE  =  WM_CAP_START  +   42
 55      Public Const WM_CAP_DLG_VIDEODISPLAY  =  WM_CAP_START  +   43
 56      Public Const WM_CAP_GET_VIDEOFORMAT  =  WM_CAP_START  +   44
 57      Public Const WM_CAP_SET_VIDEOFORMAT  =  WM_CAP_START  +   45
 58      Public Const WM_CAP_DLG_VIDEOCOMPRESSION  =  WM_CAP_START  +   46
 59  
 60      Public Const WM_CAP_GET_STATUS  =  WM_CAP_START  +   54
 61      Public Const WM_CAP_SET_SCROLL  =  WM_CAP_START  +   55
 62  
 63      Public Const WM_CAP_GRAB_FRAME_NOSTOP  =  WM_CAP_START  +   61
 64  
 65      Public Const WM_CAP_SET_SEQUENCE_SETUP  =  WM_CAP_START  +   64
 66      Public Const WM_CAP_GET_SEQUENCE_SETUP  =  WM_CAP_START  +   65
 67      Public Const WM_CAP_SET_MCI_DEVICE  =  WM_CAP_START  +   66
 68      Public Const WM_CAP_GET_MCI_DEVICE  =  WM_CAP_START  +   67
 69      Public Const WM_CAP_ABORT  =  WM_CAP_START  +   69
 70  
 71      Public Const WM_CAP_SINGLE_FRAME_OPEN  =  WM_CAP_START  +   70
 72      Public Const WM_CAP_SINGLE_FRAME_CLOSE  =  WM_CAP_START  +   71
 73      Public Const WM_CAP_SINGLE_FRAME  =  WM_CAP_START  +   72
 74  
 75      Public Const WM_CAP_PAL_OPEN  =  WM_CAP_START  +   80
 76      Public Const WM_CAP_PAL_SAVE  =  WM_CAP_START  +   81
 77      Public Const WM_CAP_PAL_PASTE  =  WM_CAP_START  +   82
 78      Public Const WM_CAP_PAL_AUTOCREATE  =  WM_CAP_START  +   83
 79      Public Const WM_CAP_PAL_MANUALCREATE  =  WM_CAP_START  +   84
 80  
 81       ' // Following added post VFW 1.1
 82      Public Const WM_CAP_SET_CALLBACK_CAPCONTROL  =  WM_CAP_START  +   85
 83  
 84       ' // Defines end of the message range
 85      Public Const WM_CAP_END  =  WM_CAP_SET_CALLBACK_CAPCONTROL
 86  
 87      Private hWndC As IntPtr
 88      Private bStat As Boolean  =  False
 89  
 90      Private mControlPtr As IntPtr
 91      Private mWidth As Integer
 92      Private mHeight As Integer
 93      Private mLeft As Integer
 94      Private mTop As Integer
 95  
 96       < DllImport( " avicap32.dll " ) >  _
 97      Private Shared Function capCreateCaptureWindowA()Function capCreateCaptureWindowA(ByVal lpszWindowName() As Byte, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hWndParent As IntPtr, ByVal nID As Integer) As IntPtr
 98      End Function
 99  
100       < DllImport( " avicap32.dll " ) >  _
101      Private Shared Function capGetVideoFormat()Function capGetVideoFormat(ByVal hWnd As IntPtr, ByVal psVideoFormat As IntPtr, ByVal wSize As Integer) As Integer
102      End Function
103  
104       < DllImport( " User32.dll " ) >  _
105      Private Shared Function SendMessage()Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Boolean
106      End Function
107  
108      Function capDlgVideoFormat()Function capDlgVideoFormat() As Boolean
109          capDlgVideoFormat  =  SendMessage(hWndC, WM_CAP_DLG_VIDEOFORMAT,  0 ,  0 )
110      End Function
111      Function capDlgVideoSource()Function capDlgVideoSource() As Boolean
112          capDlgVideoSource  =  SendMessage(hWndC, WM_CAP_DLG_VIDEOSOURCE,  0 ,  0 )
113      End Function
114      Function capDlgVideoDisplay()Function capDlgVideoDisplay() As Boolean
115          capDlgVideoDisplay  =  SendMessage(hWndC, WM_CAP_DLG_VIDEODISPLAY,  0 ,  0 )
116      End Function
117      Function capDlgVideoCompression()Function capDlgVideoCompression() As Boolean
118          capDlgVideoCompression  =  SendMessage(hWndC, WM_CAP_DLG_VIDEOCOMPRESSION,  0 ,  0 )
119      End Function
120  
121  ' 接上节
122  
123       ' /// <summary>
124       ' /// 初始化摄像头
125       ' /// </summary>
126       ' /// <param name="handle">控件的句柄</param>
127       ' /// <param name="left">开始显示的左边距</param>
128       ' /// <param name="top">开始显示的上边距</param>
129       ' /// <param name="width">要显示的宽度</param>
130       ' /// <param name="height">要显示的长度</param>
131      Public Sub New()Sub New(ByVal handle As IntPtr, ByVal left As Integer, ByVal top As Integer, ByVal width As Integer, ByVal height As Integer)
132          mControlPtr  =  handle
133          mWidth  =  width
134          mHeight  =  height
135          mLeft  =  left
136          mTop  =  top
137      End Sub
138  
139       ' /// <summary>
140       ' /// 开始显示图像
141       ' /// </summary>
142      Public Sub Start()Sub Start()
143          If bStat Then
144              Return
145          End If
146          bStat  =  True
147          Dim lpszName( 99 ) As Byte
148  
149          hWndC  =  capCreateCaptureWindowA(lpszName, WS_CHILD Or WS_VISIBLE, mLeft, mTop, mWidth, mHeight, mControlPtr,  0 )
150  
151          If hWndC.ToInt32()  <>   0  Then
152              SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM,  0 ,  0 )
153              SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR,  0 ,  0 )
154              SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA,  0 ,  0 )
155              SendMessage(hWndC, WM_CAP_DRIVER_CONNECT,  0 ,  0 )
156              SendMessage(hWndC, WM_CAP_SET_SCALE,  1 ,  0 )
157              SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE,  66 ,  0 )
158              SendMessage(hWndC, WM_CAP_SET_OVERLAY,  1 ,  0 )
159              SendMessage(hWndC, WM_CAP_SET_PREVIEW,  1 ,  0 )
160          End If
161  
162          Return
163      End Sub
164  
165       ' /// <summary>
166       ' /// 停止显示
167       ' /// </summary>
168      Public Sub [()Sub [Stop]()
169          SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT,  0 ,  0 )
170          bStat  =  False
171      End Sub
172  
173       ' /// <summary>
174       ' /// 抓图
175       ' /// </summary>
176       ' /// <param name="path">要保存bmp文件的路径</param>
177      Public Sub GrabImage()Sub GrabImage(ByVal path As String)
178          Dim hBmp As IntPtr  =  Marshal.StringToHGlobalAnsi(path)
179          SendMessage(hWndC, WM_CAP_SAVEDIB,  0 , hBmp.ToInt64())
180      End Sub
181  
182       ' /// <summary>
183       ' /// 录像
184       ' /// </summary>
185       ' /// <param name="path">要保存avi文件的路径</param>
186      Public Sub Kinescope()Sub Kinescope(ByVal path As String)
187          Dim hBmp As IntPtr  =  Marshal.StringToHGlobalAnsi(path)
188          SendMessage(hWndC, WM_CAP_FILE_SET_CAPTURE_FILEA,  0 , hBmp.ToInt64())
189          SendMessage(hWndC, WM_CAP_SEQUENCE,  0 ,  0 )
190      End Sub
191  
192       ' /// <summary>
193       ' /// 停止录像
194       ' /// </summary>
195      Public Sub StopKinescope()Sub StopKinescope()
196          SendMessage(hWndC, WM_CAP_STOP,  0 ,  0 )
197      End Sub
198  End Class
199  
200  下面这个是测试窗体Form1.vb:
201  
202  Public Class Form1Class Form1
203      Inherits System.Windows.Forms.Form
204  
205      Private cccap As Cam
206  Windows 窗体设计器生成的代码#Region  "  Windows 窗体设计器生成的代码  "
207  
208      Public Sub New()Sub New()
209          MyBase.New()
210  
211           ' 该调用是 Windows 窗体设计器所必需的。
212          InitializeComponent()
213  
214           ' 在 InitializeComponent() 调用之后添加任何初始化
215  
216      End Sub
217  
218       ' 窗体重写 dispose 以清理组件列表。
219      Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
220          If disposing Then
221              If Not (components Is Nothing) Then
222                  components.Dispose()
223              End If
224          End If
225          MyBase.Dispose(disposing)
226      End Sub
227  
228       ' Windows 窗体设计器所必需的
229      Private components As System.ComponentModel.IContainer
230  
231       ' 注意: 以下过程是 Windows 窗体设计器所必需的
232       ' 可以使用 Windows 窗体设计器修改此过程。
233       ' 不要使用代码编辑器修改它。
234      Friend WithEvents Button1 As System.Windows.Forms.Button
235      Friend WithEvents picView As System.Windows.Forms.PictureBox
236      Friend WithEvents Button2 As System.Windows.Forms.Button
237      Friend WithEvents Button3 As System.Windows.Forms.Button
238      Friend WithEvents Button4 As System.Windows.Forms.Button
239      Friend WithEvents Button5 As System.Windows.Forms.Button
240       < System.Diagnostics.DebuggerStepThrough() >  Private Sub InitializeComponent()Sub InitializeComponent()
241          Me.picView  =  New System.Windows.Forms.PictureBox
242          Me.Button1  =  New System.Windows.Forms.Button
243          Me.Button2  =  New System.Windows.Forms.Button
244          Me.Button3  =  New System.Windows.Forms.Button
245          Me.Button4  =  New System.Windows.Forms.Button
246          Me.Button5  =  New System.Windows.Forms.Button
247          Me.SuspendLayout()
248           '
249           ' picView
250           '
251          Me.picView.Anchor  =  CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
252                      Or System.Windows.Forms.AnchorStyles.Left) _
253                      Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
254          Me.picView.Location  =  New System.Drawing.Point( 16 ,  16 )
255          Me.picView.Name  =   " picView "
256          Me.picView.Size  =  New System.Drawing.Size( 640 ,  480 )
257          Me.picView.TabIndex  =   0
258          Me.picView.TabStop  =  False
259           '
260           ' Button1
261           '
262          Me.Button1.Anchor  =  CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
263          Me.Button1.Location  =  New System.Drawing.Point( 244 ,  540 )
264          Me.Button1.Name  =   " Button1 "
265          Me.Button1.Size  =  New System.Drawing.Size( 56 ,  24 )
266          Me.Button1.TabIndex  =   1
267          Me.Button1.Text  =   " start "
268           '
269           ' Button2
270           '
271          Me.Button2.Anchor  =  CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
272          Me.Button2.Location  =  New System.Drawing.Point( 304 ,  540 )
273          Me.Button2.Name  =   " Button2 "
274          Me.Button2.Size  =  New System.Drawing.Size( 56 ,  24 )
275          Me.Button2.TabIndex  =   1
276          Me.Button2.Text  =   " stop "
277           '
278           ' Button3
279           '
280          Me.Button3.Anchor  =  CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
281          Me.Button3.Location  =  New System.Drawing.Point( 380 ,  540 )
282          Me.Button3.Name  =   " Button3 "
283          Me.Button3.Size  =  New System.Drawing.Size( 56 ,  24 )
284          Me.Button3.TabIndex  =   1
285          Me.Button3.Text  =   " cap "
286           '
287           ' Button4
288           '
289          Me.Button4.Anchor  =  CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
290          Me.Button4.Location  =  New System.Drawing.Point( 352 ,  508 )
291          Me.Button4.Name  =   " Button4 "
292          Me.Button4.Size  =  New System.Drawing.Size( 124 ,  24 )
293          Me.Button4.TabIndex  =   1
294          Me.Button4.Text  =   " 色彩校正 "
295           '
296           ' Button5
297           '
298          Me.Button5.Anchor  =  CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
299          Me.Button5.Location  =  New System.Drawing.Point( 164 ,  512 )
300          Me.Button5.Name  =   " Button5 "
301          Me.Button5.Size  =  New System.Drawing.Size( 124 ,  24 )
302          Me.Button5.TabIndex  =   1
303          Me.Button5.Text  =   " 画面大小 "
304           '
305           ' Form1
306           '
307          Me.AutoScaleBaseSize  =  New System.Drawing.Size( 6 ,  14 )
308          Me.ClientSize  =  New System.Drawing.Size( 792 ,  573 )
309          Me.Controls.Add(Me.Button1)
310          Me.Controls.Add(Me.picView)
311          Me.Controls.Add(Me.Button2)
312          Me.Controls.Add(Me.Button3)
313          Me.Controls.Add(Me.Button4)
314          Me.Controls.Add(Me.Button5)
315          Me.Name  =   " Form1 "
316          Me.Text  =   " Form1 "
317          Me.ResumeLayout(False)
318  
319      End Sub
320  
321  #End Region
322  
323      Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
324          cccap  =  New Cam(picView.Handle,  0 ,  0 , picView.Width, picView.Height)
325      End Sub
326  
327      Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
328          cccap.Start()
329      End Sub
330  
331      Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
332          cccap.Stop()
333      End Sub
334  
335      Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
336          cccap.GrabImage( " c:/test.bmp " )
337      End Sub
338  
339      Private Sub Form1_Closed()Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
340          cccap  =  Nothing
341      End Sub
342  
343      Private Sub Button4_Click()Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
344          cccap.capDlgVideoSource()
345      End Sub
346  
347      Private Sub Button5_Click()Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
348          cccap.capDlgVideoFormat()
349      End Sub
350  End Class
351