主题：[求助]身份证读卡器连接

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