以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]找不到摄像头问题请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74953)
--  作者：黄训良
--  发布时间：2015/9/23 13:42:00
--  [求助]找不到摄像头问题请教
应用DirectX.Capture.dll和DShowNET.dll进行摄像头拍照，其他系统正常，但在Windows10下找不到摄像头，请大师们指点！
--  作者：大红袍
--  发布时间：2015/9/23 14:13:00
--  
没有在win10尝试过，我win8平板测试可以用。
--  作者：大红袍
--  发布时间：2015/9/23 14:16:00
--  

报错？找不到摄像头，会不会是你电脑没有摄像头？

 

http://jingyan.baidu.com/article/acf728fd2f1bfdf8e510a3b7.html

 
--  作者：黄训良
--  发布时间：2015/9/23 14:34:00
--  
用摄像头自带的软件能打开，FT做的摄像头拍照打不开！奇怪了.
--  作者：大红袍
--  发布时间：2015/9/23 14:42:00
--  

 报什么错？

 

 右键，有管理员权限运行是否可以。
--  作者：黄训良
--  发布时间：2015/9/23 15:11:00
--  
报错:找不到摄像头。摄像头列表为空。
--  作者：大红袍
--  发布时间：2015/9/23 15:47:00
--  

1、管理员权限了吗？

 

2、单独做一个项目，加入简单代码测试，看是否正确。
--  作者：黄训良
--  发布时间：2015/9/24 8:38:00
--  

用了以下方法，无果，请指点：

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
--  作者：大红袍
--  发布时间：2015/9/24 9:11:00
--  

不要try catch 看报的是什么错
--  作者：大红袍
--  发布时间：2015/9/24 9:14:00
--  

再不行，就换个方法吧。

 

http://www.cnblogs.com/blsong/archive/2010/09/10/1823248.html