用了以下方法,无果,请指点:
1、用管理员权限打开,不正确。
2、单独做一个项目,代码如下:(结果:未找到摄像头)
(1)引用
(2)全局代码
Public _Cap As DCap.Capture
Public _Cams As DCap.Filters
Public _Cam As DCap.Filter
Public _CamList As New List(Of String)
Public _CamIndex As Integer
(3)获取摄像头列表
Dim f As DCap.Filter
_CamList.Clear()
_CamList.Add("无")
Try
_Cams = New DCap.Filters()
Dim c As Integer
For c = 0 To _Cams.VideoInputDevices.Count - 1
f = _Cams.VideoInputDevices(c)
_CamList.Add(f.Name)
Next
Catch
MessageBox.Show("未找到摄像头","提示")
End Try
3、用FT内置控件,拍照窗口打开,无图像,点击”重来“20次左右,随机看到一次图像。
Dim c As new camera
c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
c.Save("d:\data\abc.jpg") ‘保存文件
End If