以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  摄像头代码如何加入判断,当没有摄像头时候就不拍照,当有摄像头时候才拍照!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52131)

--  作者:李孝春
--  发布时间:2014/6/9 22:22:00
--  摄像头代码如何加入判断,当没有摄像头时候就不拍照,当有摄像头时候才拍照!
摄像头代码如何加入判断,当没有摄像头时候就不拍照,当有摄像头时候才拍照!

代码如下:
Dim c As new camera
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
    c.Save("c:\\abc.bmp") \'保存文件
End If

--  作者:有点甜
--  发布时间:2014/6/9 22:27:00
--  

 判断起来很麻烦的。要另外引用一个dll文件的

 

 先参考这个地方 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41778&replyID=&skin=1

 


--  作者:kgdce
--  发布时间:2014/8/5 10:35:00
--  
以下是引用有点甜在2014-6-9 22:27:00的发言:

 判断起来很麻烦的。要另外引用一个dll文件的

 

 先参考这个地方 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41778&replyID=&skin=1

 

参考后,对其中的"摄像头拍照.rar“已清楚,此程序无法检测设备,如无设备就会报错,能有办法解决吗?请老师帮助。


--  作者:有点甜
--  发布时间:2014/8/5 10:46:00
--  
以下是引用kgdce在2014-8-5 10:35:00的发言:

参考后,对其中的"摄像头拍照.rar“已清楚,此程序无法检测设备,如无设备就会报错,能有办法解决吗?请老师帮助。

 

这样检测

 

try
    Dim cmr As New DCap.Filters()
catch ex As exception
    msgbox("没有设备")
End try