100分求VB摄像头拍照代码

Question

100分求VB摄像头拍照代码,或者发到
要求在留车场系统中车进来和出去可以自动拍照怎么实现?最好给个例子.先谢谢了

Answer 1

发了一个,你可以参考一下http://download.csdn.net/source/381475

Answer 2

我也收藏了一个:http://www.m5home.com/blog2/blogview.asp?logID=360&cateID=3与很多摄像头光盘里自带的amcap.exe差不多,貌似就是仿它写的.....

Answer 3

停车场系统中车进来和出去可以自动拍照, 你必需买两张卡1.I/O卡与红外线光电感应器, 或使用电磁线圈来检测车子进出关口.2.影像捕捉卡与镜头...照像用 这个代码给你一个思路, 当然你无法运行,因为这只是片段你还需要其它宣告,更需要板卡.有需要买这些硬件的话,我可以告诉你那里买, 买了以后,检测方面的代码我可以免费送你.Private Sub Timer1_Timer()
   '*** 红外线光电开关检测
   lpDioReadPort.Port = lpDioPortMode.Port
   lpDioReadPort.Value = DRV_GetAddress(divalue)
   errcde = DRV_DioReadPortByte(DeviceHandle, lpDioReadPort)
   If divalue > 0 Then '光电开关有感应
      Call bincheck '二进制 10010110
      If sigon(0) Then '表示有车子通过
         Call catchpic '拍照并自动保存像片
         Timin = Timer
         Do
            DoEvents
            If IOCchk = False Or Frceout Then Exit Do '车子已驶离
         Loop Until Timer >= Timer + 30 '看情况定时
      End If
   End If
End SubPrivate Sub camera()
   '保存照片
   catchpic = maindisk & "catchpic\" & Trim(Labseq.Caption) + ".jpg"
   Call SDK25001.SaveImageToJpg(catchpic, 100, 1, False)
End Sub

Answer 4

这就是我本人开发的系统, 看图片你更容易理解效果图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_TOLL.jpg