- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 华视身份阅读器新版连接不上 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137451)
-- 发布时间：2019/7/6 10:32:00
-- 华视身份阅读器新版连接不上
帮助里面的华视CVR-100U，在淘宝上买拍的，实际发货收到的是CVR-100UC，卖家说旧版已经停产了
将dll文件复制到安装目录下出错，自带单机连接正常，老师帮忙看下
此主题相关图片如下：qq图片20190706103002.png
-- 发布时间：2019/7/6 11:06:00
--
把32bit目录里面的dll复制到Foxtable安装目录，安装好驱动
-- 发布时间：2019/7/6 11:53:00
--
蓝老师，没有生成"zp.bmp"和"wz.txt文件
此主题相关图片如下：qq图片20190706114532.png
-- 发布时间：2019/7/6 13:41:00
--
建议把《身份证阅读器SDK使用手册先看一遍》。新版文件存储路径有变化。
获取临时目录：
Output.Show(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\\Temp\\chinaidcard")
-- 发布时间：2019/7/6 14:19:00
--
谢谢蓝老师，可以了，把改后内部函数代码贴出来给有需要的朋友参考
Dim Info As String
Info = FileSys.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\\Temp\\chinaidcard\\" & "wz.txt", Encoding.Default) \'读取生成的文本文件
info = info.Replace(vbcrlf,vblf) \'将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) \'将读取的信息拆分为数组
Dim r As Row = Tables("表A").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("名族") = pars(2).Trim()
r("出生日期") = pars(3).SubString(0,4) & "-" & pars(3).SubString(5,2) & "-" & pars(3).SubString(7,1)
r("住址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("签发日期") = pars(7).SubString(0,4) & "-" & pars(7).SubString(5,2) & "-" & pars(7).SubString(7,1)
r("有效日期") = pars(7).SubString(9,4) & "-" & pars(7).SubString(13,2) & "-" & pars(7).SubString(15,1)
FileSys.CopyFile(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\\Temp\\chinaidcard\\" & "zp.bmp", ProjectPath & "\\Attachments\\" & r("身份证号码") & ".bmp",True) \'照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"
[此贴子已经被作者于2019/7/6 14:20:03编辑过]