[求助]身份证读卡器连接 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

把HSCertInfo.dll、SSSE32.dll、UnPack.dll、HSCertInfo.lib复制到foxtable的安装目录里

全局代码

Public Declare Function ReadCertInfo Lib "HSCertInfo.dll" Alias "ReadCertInfo" (pBmpFile As String , pName As StringBuilder, pSex As StringBuilder, pNation As StringBuilder, pBirth As StringBuilder, pAddress As StringBuilder, pCertNo As StringBuilder, pDepartment As StringBuilder, pEffectData As StringBuilder, pExpire As StringBuilder, pErrMsg As StringBuilder) As Integer

调用

Dim pName As New StringBuilder(1024)

Dim pSex As New StringBuilder(1024)

Dim pNation As New StringBuilder(1024)

Dim pBirth As New StringBuilder(1024)

Dim pAddress As New StringBuilder(1024)

Dim pCertNo As New StringBuilder(1024)

Dim pDepartment As New StringBuilder(1024)

Dim pEffectData As New StringBuilder(1024)

Dim pExpire As New StringBuilder(1024)

Dim pErrMsg As New StringBuilder(1024)

Dim ret = CertInfoHelper.ReadCertInfo(ProjectPath & "temp.bmp", pName, pSex, pNation,pBirth,pAddress, pCertNo, pDepartment, pEffectData, pExpire, pErrMsg)

If ret = 0 Then

Output.Show("姓名.Text =" & pName.ToString())

Output.Show("性别.Text =" & pSex.ToString())

Output.Show("民族.Text =" & pNation.ToString())

Output.Show("出生日期.Text =" & pBirth.ToString())

Output.Show("家庭住址.Text =" & pAddress.ToString())

Output.Show("身份证号.Text =" & pCertNo.ToString())

Output.Show("发证机关.Text =" & pDepartment.ToString())

Output.Show("发证日期.Text =" & pEffectData.ToString())

Output.Show("有效日期.Text =" & pExpire.ToString())

Output.Show("图片路径=" & ProjectPath & "temp.bmp")

Else

MessageBox.Show(ret.ToString() + pErrMsg.ToString())

End If

c#代码转换为vb.net：https://converter.telerik.com/

[此贴子已经被作者于2020/3/30 11:43:18编辑过]

把项目复制到其他目录，注意项目所在的路径，项目的名称不能有括号等特殊字符。然后重新打开项目测试，看提示什么错误？