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

别人没有设备，根本就不能帮你写代码啊。自食其力

 

http://www.foxtable.com/help/topics/2417.htm

 

c#代码转vb.net代码，参考 http://codeconverter.sharpdevelop.net/SnippetConverter.aspx

 

 你都没看懂，转过来以后，你也看不懂，更不会用啊。

 没有基础，你根本就不知道怎么做。

 

 要不你就换一个读卡器，或者叫一个懂c#的人帮你做。

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))

我测试，没，问，题。

 

http://www.foxtable.com/help/topics/1842.htm

 

 那就改一下

 

<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

 

请看10楼代码

 

你的项目，只要菜单写有代码，我测试，都有效。

 本来就没问题。

 

你不要乱添加引用，把多余的引用删除掉。你的身份证读卡器，不需要添加dll引用的。

 

http://www.foxtable.com/help/topics/1936.htm

 

看10楼代码啊。