- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]有没有办法让狐表读取新中新的身份证阅读器呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76107)
-- 发布时间：2015/10/21 20:23:00
-- [求助]有没有办法让狐表读取新中新的身份证阅读器呢
我在论坛中看到别的牌子的阅读器，可以连接狐表。那么新中新的阅读器也可以吗？
-- 发布时间：2015/10/21 20:26:00
--
任何牌子都可以，开发差不多，但不完全相同
http://www.foxtable.com/help/topics/2417.htm
-- 发布时间：2015/11/30 11:20:00
--
老师您好！我找了很长时间，新中心的身份证阅读器并没termb.dll这个文件，这似乎是华视自己设置的
-- 发布时间：2015/11/30 12:12:00
--
去参考新中新的阅读器的例子，看人家的vb.net的例子怎么做的。
每种设备的使用方式都不一样。
-- 发布时间：2015/11/30 12:18:00
--
我用的神思和华视的读卡器，都是通用的，你可以把华视的dll改成统一的名字放着就可以了
-- 发布时间：2015/11/30 12:25:00
--
全局代码
Default
Public Declare
Function UCommand1 Lib "RdCard.dll" (ByRef pCmd As Byte, ByRef para0
As Integer, ByRef para1 As Integer, ByRef para2 As Integer) As Integer
内部函数
idload
Dim cmd As Byte
Dim
nRet,para0,para1,para2 As Integer
cmd = 65 \'0x41初始化端口
para0 = 0
para1 = 8811
para2 = 9986
nRet =
UCommand1(cmd, para0, para1, para2)
Vars("VnRet")=nRet
If nRet = 62171
Then
forms(Vars("currForm")).TimerEnabled = True
Forms(Vars("currForm")).Controls("Label22").Text
= "设备连接成功!"
Else
Forms(Vars("currForm")).TimerEnabled = False
Forms(Vars("currForm")).Controls("Label22").Text =
nRet.tostring + "身份证读卡器未连接!"
messagebox.show("设备未连接,请确保设备连接正常!")
End If
IdScan
Dim cmd As Byte
Dim
nRet,para0,para1,para2 As Integer
Dim bRun As
Boolean
Dim tbl As Table =
Tables("Person_info")
If Not bRun Then
bRun = True
Forms(Vars("currForm")).Controls("Label22").Text =
"請放置身份证..."
cmd = 67 \'0x43驗證卡
para0 = 0
para1 = 8811
para2 = 9986
nRet = UCommand1(cmd, para0, para1,
para2) \'驗證卡
If nRet = 62171 Then
Forms(Vars("currForm")).Controls("Label22").Text =
"正在讀卡..."
cmd = 68 \'0x44 讀卡內信息
para0 = 0
para1 = 8811
para2 = 9986
nRet = UCommand1(cmd, para0, para1,
para2) \'讀卡內信息
If nRet = 62171 Then
Functions.Execute("Parse")
Dim txt As String =Vars("idcard")
If txt = "" Then
Else
\'具体实现功能的代码
End If
ElseIf nRet = -5 Then
MessageBox.Show("軟件未授權","提示")
End If
End If
bRun = False
End If
parse
Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath
& "wx.txt", Encoding.Default) \'读取生成的文本文件
info =
info.Replace(vbcrlf,vblf) \'将回车换行替换为换行
Dim pars() As
String = Info.Split(vblf) \'将读取的信息拆分为数组
Vars("name")=pars(0).Trim()
Vars("sex")=pars(1).Trim()
Vars("minzu")=pars(2).Trim()
Vars("bdate")=pars(3)
Vars("address")=pars(4)
Vars("idcard")=pars(5)
Vars("issue")=pars(6)
Vars("issued_date")=pars(7)
Vars("limit_date")=pars(8)
FileSys.CopyFile(ApplicationPath
& "zp.bmp", ProjectPath & "\\Attachments\\" &
Vars("idcard") & ".bmp",True)
\'照片复制到Attachments目录
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rdcard.rar |
可以试试看