- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 烦请帮忙简化一下视频拍照代码，求解！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51898)
-- 发布时间：2014/6/5 11:36:00
-- 烦请帮忙简化一下视频拍照代码，求解！
Dim c As new camera
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
c.Save("c:\\abc.bmp") \'保存文件
FileSys.CopyFile(ApplicationPath & "abc.bmp", ProjectPath & "\\Attachments\\" & r("身份证号码") & "摄像" & ".bmp",True) \'照片复制到Attachments目录
r("摄像照片") = r("身份证号码") & Date.today & "摄像" & ".bmp"
End If
期待高手帮我把这个代码简化一下 直接将这个代码改成
将摄像头拍照后的照片直接保存到表A中的摄像照片列里 保存名字为A表中身份证号码加当前时期加摄像.bmp
-- 发布时间：2014/6/5 11:37:00
--
同一个问题,请不要反复重复提问.
Dim c As new camera c.capture() \'开始照相 If c.image IsNot Nothing Then \'照相成功 dim s as string = r("身份证号码") & Date.today & "摄像" & ".bmp" c.Save(ApplicationPath & "abc.bmp", ProjectPath & "\\Attachments\\" & s) \'照片复制到Attachments目录 r("摄像照片") = s End If |
-- 发布时间：2014/6/5 11:51:00
-- BIN老师 运行出现这个错误！
BIN老师 运行出现这个错误！
此主题相关图片如下：2222.jpg
-- 发布时间：2014/6/5 11:51:00
--
Dim c As new camera
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
dim s as string = r("身份证号码") & Date.today & "摄像" & ".bmp"
c.Save(ProjectPath & "\\Attachments\\" & s) \'照片复制到Attachments目录
r("摄像照片") = s
End If
-- 发布时间：2014/6/5 14:33:00
-- 回复：（Bin）Dim c As new camerac.capture() '开始照...
感谢BIN老师