怎么用VB把摄像头中的内容保存为视频

来源:百度知道 编辑:UC知道 时间:2024/06/06 07:56:41
我已经在VB中使用摄像头,能正常显示,现在要把摄像头中的内容保存,也就是要录像,请问该怎么弄???

我的程序

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
Alias "capCreateCaptureWindowA" ( _
ByVal lpszWindowName As String, _
ByVal dwStyle As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hWndParent As Long, _
ByVal nID As Long) As Long

Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const WM_USER = &H400
Private Const WM_CAP_START = &H400
Private Const WM_CAP_EDIT_COPY = (WM_CAP_START + 30)
Private Const WM_CAP_DRIVER_CONNECT = (WM_CAP_START + 10)
Private Const WM_CAP_SET_PREVIEWRATE = (WM_CAP_START + 52)
Private Const WM_CAP_SET_OVERLAY = (WM_CAP_START + 51)
Private Const WM_CAP_SET_PREVIEW = (WM_CAP_START + 50)
Private Const WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11

我给你上传了把摄像头中的内容保存为视频的完整源代码例子,请下载研究:
http://www.fileurls.com/download.ashx?id=ajakcs

Const WM_CAP_FILE_SAVEAS As Long = WM_CAP_START + 23
FilePath="c:\1.avi"
capFileSaveAs = SendMessage(Preview_Handle, WM_CAP_FILE_SAVEAS, 0&, FilePath)