以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  摄像头问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54701)

--  作者:kgdce
--  发布时间:2014/8/2 16:45:00
--  摄像头问题

看过摄像头拍照的文件,也试过,无摄像头就会出现错误提示,无设备,请问如何改代码,才能不出错,也就是没摄像头就无此功能,如何办到。


--  作者:有点甜
--  发布时间:2014/8/3 10:29:00
--  
以下是引用kgdce在2014-8-2 16:45:00的发言:

看过摄像头拍照的文件,也试过,无摄像头就会出现错误提示,无设备,请问如何改代码,才能不出错,也就是没摄像头就无此功能,如何办到。

 

你用哪一个例子?官方自带的如下。

 

Dim c As new camera
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
  c.Save("d:\\test.jjpg")
End If


--  作者:kgdce
--  发布时间:2014/8/5 20:47:00
--  

用的是分享的带有两个引用dll的文件,官方的功能太弱,想用分享的,就是没设备时出错。

如果能屏蔽错误继续运行也行。有没有这种办法,或者有检测设备的方法。

 


--  作者:有点甜
--  发布时间:2014/8/5 20:51:00
--  
try
    Dim cmr As New DCap.Filters()
catch ex As exception
    msgbox("没有设备")
End try

--  作者:L88919138
--  发布时间:2015/4/23 17:27:00
--  
这个代码写在哪里?
--  作者:Bin
--  发布时间:2015/4/23 17:28:00
--  
你可以用TRY 把你运行的代码包起来.
--  作者:Bin
--  发布时间:2015/4/23 17:28:00
--  
http://www.foxtable.com/help/topics/2070.htm
--  作者:L88919138
--  发布时间:2015/4/23 17:33:00
--  

好谢谢

图片点击可在新窗口打开查看