主题：[求助]身份证读卡器相关

检测设备是否连接正常，关闭设备，和找卡、验证的提示代码呢？

无语，看10楼啊，不可能报错啊。

 

看懂人家的帮助文档，看懂人家给的例子啊。

用厂家的读卡程序得到的文本文件格式是这样的

“身份证号”

“姓名”

“性别”

“民族”

“住址”

“最新住址”

“出生日期”

“签发日期”

“有效日期”

 

日的格式：YYYY/M/D   2016/7/7

 

 

 看10楼，先得到信息啊。

没看懂啊，不知道出现这个提示时怎么去声明    

 

&H90  和&H9f  怎么回事，也没看明白

 

我是太菜了，没有编码基础。

看39楼弹出什么啊。只要连接正确，就肯定能读取啊。

出现的一个小窗口中只有一个：    2

你QQ多少号？在这上面你和我说话也挺累的，在QQ上好一点，或者还可以远程帮我一下

红色代码改成你的端口位置，蓝色查找对比原来的代码

 

 

Dim portflag As Integer = 0

'变量声明
Dim CardPUCIIN As Byte() = New Byte(254) {}
Dim pucManaMsg As Byte() = New Byte(254) {}
Dim pucCHMsg As Byte() = New Byte(254) {}
Dim pucPHMsg As Byte() = New Byte(3023) {}
Dim puiCHMsgLen As UInt32 = 0
Dim puiPHMsgLen As UInt32 = 0
Dim st As Integer = 0
'读卡操作
st = SDT_StartFindIDCard(portflag, CardPUCIIN, 1)

msgbox(st)
If st <> &H9f Then
 Return
End If
st = SDT_SelectIDCard(portflag, pucManaMsg, 1)

msgbox(st)
If st <> &H90 Then
 Return
End If
st = SDT_ReadBaseMsg(portflag, pucCHMsg, puiCHMsgLen, pucPHMsg, puiPHMsgLen, 1)

msgbox(st)
If st <> &H90 Then
 Return
End If
'显示结果

msgbox(System.Text.ASCIIEncoding.Unicode.GetString(pucCHMsg))

 

对照这段代码，改成自己的就行啊

 

下载信息  [文件大小：7.5 KB  下载次数：3]

点击浏览该文件:读卡部分代码.txt