- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]身份证读卡器相关 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86848)
-- 发布时间：2016/6/27 17:55:00
-- [求助]身份证读卡器相关
[求助]谁帮俺弄一下身份证阅读的相关代码？华旭金卡的阅读机具。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:二次开发包.zip |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:身份证读卡器范例.zip |
-- 发布时间：2016/6/27 18:18:00
--
顶一下，别沉了呀
-- 发布时间：2016/6/27 18:22:00
--
别人没有设备，根本就不能帮你写代码啊。自食其力
http://www.foxtable.com/help/topics/2417.htm
c#代码转vb.net代码，参考 http://codeconverter.sharpdevelop.net/SnippetConverter.aspx
-- 发布时间：2016/6/28 7:28:00
--
不是要偷懒，确实不知道怎么写啊，在线转码就像死机了一样，一个多小时都没有结果，自己下了个转码工具，总是运行失败。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:c#代码转换为vb.net代码的工具.rar |
-- 发布时间：2016/6/28 8:42:00
--
网站转换有时会卡，不要一次转换太多代码。
-- 发布时间：2016/6/28 12:14:00
--
网站转换有时会卡，不要一次转换太多代码。
能不能帮转下码？
-- 发布时间：2016/6/28 12:16:00
--
你都没看懂，转过来以后，你也看不懂，更不会用啊。
-- 发布时间：2016/6/28 12:17:00
--
别人没有设备，根本就不能帮你写代码啊。自食其力
http://www.foxtable.com/help/topics/2417.htm
c#代码转vb.net代码，参考 http://codeconverter.sharpdevelop.net/SnippetConverter.aspx
在一楼的示例项目中换成现在的读卡器，连全局代码都不知道该怎么写了。
-- 发布时间：2016/6/28 12:19:00
--
没有基础，你根本就不知道怎么做。
要不你就换一个读卡器，或者叫一个懂c#的人帮你做。
-- 发布时间：2016/6/28 12:25:00
--
1、全局代码
<DllImport("sdtapi.dll", CallingConvention := CallingConvention.StdCall)> _
public Function SDT_StartFindIDCard(iPort As Integer, pucManaInfo As Byte(), iIfOpen As Integer) As Integer
End Function
<DllImport("sdtapi.dll", CallingConvention := CallingConvention.StdCall)> _
public Function SDT_SelectIDCard(iPort As Integer, pucManaMsg As Byte(), iIfOpen As Integer) As Integer
End Function
<DllImport("sdtapi.dll", CallingConvention := CallingConvention.StdCall)> _
public Function SDT_ReadBaseMsg(iPort As Integer, pucCHMsg As Byte(), ByRef puiCHMsgLen As UInt32, pucPHMsg As Byte(), ByRef puiPHMsgLen As UInt32, iIfOpen As Integer) As Integer
End Function
2、调用代码
\'变量声明
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(1, CardPUCIIN, 1)
If st <> &H9f Then
Return
End If
st = SDT_SelectIDCard(1, pucManaMsg, 1)
If st <> &H90 Then
Return
End If
st = SDT_ReadBaseMsg(1, pucCHMsg, puiCHMsgLen, pucPHMsg, puiPHMsgLen, 1)
If st <> &H90 Then
Return
End If
\'显示结果
msgbox(System.Text.ASCIIEncoding.Unicode.GetString(pucCHMsg))