- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 两个摄像头拍照动作，怎么依次分开进行呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51926)
-- 发布时间：2014/6/5 17:35:00
-- 两个摄像头拍照动作，怎么依次分开进行呢？
Dim r As Row = Tables("身份证校验").AddNew
Dim c As new camera
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
Dim sf As String = r("证件号码") & ".bmp"
c.Save(ProjectPath & "\\Attachments\\" & sf) \'照片复制到Attachments目录
r("一代证件拍摄照片") = sf
If
r("一代证件拍摄照片") IsNot Nothing Then
If c.image IsNot Nothing Then \'照相成功
Dim sf1 As String = r("证件号码") & Format(Date.now, "yyyyMMddhhmmss") & "摄像" & ".bmp"
c.Save(ProjectPath & "\\Attachments\\" & sf1) \'照片复制到Attachments目录
r("一代现场拍摄照片") = sf1
End If
End If
end if
上面代码一运行就两个字段的照片为一样啦
此主题相关图片如下：123456.jpg
理想效果如下：
先完成一代证件拍摄照片 然后完成一代现场拍摄照片 判断：当这两个字段为空时候 先进行一代证件拍摄照片拍摄，然后当一代证件拍摄照片不为空的时候 运行一代现场拍摄照片
-- 发布时间：2014/6/5 17:37:00
--
再拍一张要重新执行 capture
-- 发布时间：2014/6/5 17:42:00
-- 回复：（Bin）再拍一张要重新执行?capture
感谢BIN 再次定义之后 运行正常啦
此主题相关图片如下：qq图片20140605174229.jpg
运行代码如下：
Dim r As Row = Tables("身份证校验").AddNew
Dim c As new camera
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
Dim sf As String = r("证件号码") & "摄像" & ".bmp"
c.Save(ProjectPath & "\\Attachments\\" & sf) \'照片复制到Attachments目录
r("一代证件拍摄照片") = sf
If r("一代证件拍摄照片") IsNot Nothing Then
Dim c1 As new camera
c1.capture() \'开始照相
If c1.image IsNot Nothing Then \'照相成功
Dim sf1 As String = r("证件号码") & Format(Date.now, "yyyyMMddhhmmss") & "摄像" & ".bmp"
c1.Save(ProjectPath & "\\Attachments\\" & sf1) \'照片复制到Attachments目录
r("一代现场拍摄照片") = sf1
End If
End If
End If
[此贴子已经被作者于2014-6-5 17:42:40编辑过]
-- 发布时间：2014/6/5 17:46:00
-- BIN老师
Dim r As Row = Tables("身份证校验").AddNew
这个如何定义到这个表 但是不增加行呢？
主要是便于下面的R()字段能够对应到身份证效验表中的对应字段列即可
-- 发布时间：2014/6/5 17:47:00
--
获取当前行? Tables("身份证校验").Current
-- 发布时间：2014/6/5 17:49:00
-- OK
OK 谢谢 BIN老师 辛苦啦