问题描述
我正在尝试从连接到USB驱动器的网络摄像头捕获提要。我已经测试过网络摄像头,并且该网络摄像头可以在其他软件中运行,但是无法在我的vb代码中使用。
我不确定如何获取代码以显示所有相关的WebCam设备,因为我已将2连接到系统。在我设法生成的所有设备列表中,是Microsoft WDM Image Capture(Win32),并且我的pictureBox1对象中没有网络摄像头。
这是我到目前为止的代码...
Private Sub LoadDeviceList()
Dim strName As String = Space(100)
Dim strVer As String = Space(100)
Dim bReturn As Boolean
Dim x As Integer = 0
Do
bReturn = capGetDriverDescriptionA(x,strName,100,strVer,100)
lstDevices.Items.Add(strName.Trim)
x += 1
Loop Until bReturn = False
End Sub
Private Sub OpenPreviewWindow()
Dim iHeight As Integer = picCapture.Height
Dim iWidth As Integer = picCapture.Width
hHwnd = capCreateCaptureWindowA(iDevice,WS_VISIBLE Or WS_CHILD,640,480,picCapture.Handle.ToInt32,0)
If SendMessage(hHwnd,WM_CAP_DRIVER_CONNECT,0) Then
SendMessage(hHwnd,WM_CAP_SET_SCALE,True,0)
SendMessage(hHwnd,WM_CAP_SET_PREVIEWRATE,66,WM_CAP_SET_PREVIEW,0)
SetwindowPos(hHwnd,HWND_BottOM,picCapture.Width,picCapture.Height,SWP_NOMOVE Or SWP_NOZORDER)
btnSave.Enabled = True
btnStop.Enabled = True
btnStart.Enabled = False
Else
DestroyWindow(hHwnd)
btnSave.Enabled = False
End If
End Sub
任何帮助将不胜感激...
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)