关于vb捕获摄像头 WM_CAP_DRIVER_CONNECT

yuseqing 2010-02-26 09:32:53

程序中适通过这句发送的 SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, nCameraID, 0
我的两个u口连着两个摄像头我改成SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 0, 0 程序捕捉的是默认的，但是我改成SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 1, 0 程序却捕捉不到另一个设备，不知道是设备号不对，还是我的程序有问题呢？

...全文

180 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

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) Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Preview_Handle As Long Public Function CreateCaptureWindow( _ hWndParent As Long, _ Optional x As Long = 0, _ Optional y As Long = 0, _ Optional nWidth As Long = 320, _ Optional nHeight As Long = 240, _ Optional ncameraid As Long = 0) As Long Preview_Handle = capCreateCaptureWindow("Video", _ WS_CHILD + WS_VISIBLE, x, y, _ nWidth, nHeight, hWndParent, 1) SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, ncameraid, 0 SendMessage Preview_Handle, WM_CAP_SET_PREVIEWRATE, 30, 0 SendMessage Preview_Handle, WM_CAP_SET_OVERLAY, 1, 0 SendMessage Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0 CreateCaptureWindow = Preview_Handle End Function Public Function CapturePicture(ncapturehandle As Long) As StdPicture Clipboard.Clear SendMessage ncapturehandle, WM_CAP_EDIT_COPY, 0, 0 Set CapturePicture = Clipboard.GetData End Function Public Sub Disconnect(ncapturehandle As Long, _ Optional ncameraid = 0) SendMessage ncapturehandle, WM_CAP_DRIVER_DISCONNECT, _ ncameraid, 0 End Sub Dim video_handle As Long Private Sub form_load() Me.Top = 840 Me.Left = 11240 Me.Width = 4800 Me.Height = 4380 On Error Resume Next video_handle = CreateCaptureWindow(Form1.hWnd) End Sub Private Sub Command1_Click() 员工信息.Enabled = True On Error Resume Next If Dir$("D:\kkk.jpg") "" Then Kill "D:\kkk.jpg" End If Dim x As StdPicture Set x = CapturePicture(video_handle) SavePicture x, "D:\kkk.jpg" Disconnect (video_handle) video_handle = 0 Unload Form1 员工信息.SetFocus If Dir$("D:\kkk.jpg") = "" Then MsgBox "请先采集照片！" Command1.SetFocus Else Set 员工信息.Image1.Picture = LoadPicture("D:\kkk.jpg") Text1.Text = "" Clipboard.Clear End If Unload Me End Sub

掌握本文章内API的实用方法，可直接调用摄像头，还有实例，具体可以自己试试，全面掌握需要多做实验

用VB写的打开摄像头程序，可以做动目标检测，也可以做安防视频监控类。非常值得下载参考。

抓视频瞬间保存为图片应网友要求,重新整理了此源码,没有的抓紧下载啊,

808

社区成员

8,274

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章