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

把测试过的给我发回来好吗？

出现“未知编译错误”，菜单无动作，怎么回事

 

袍兄，我找到一个问题，FOXBABLE引用的一个DLL错误导致菜单不可用，现在改过来了，就是检测读卡器的代码现在还不对，希望你能给看一下

这段代码是华视的（按钮“手动读取”的事件），能不能帮改下

Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
If CVR_Authenticate= 1 Then '如果身份证验证通过
    Dim readContent As Integer = CVR_Read_Content(4) '读取身份证信息,注意读取模式设置为4.
    If readContent = 1 Then
        lb1.Text = "读身份证信息成功!"
        Functions.Execute("parse")
    Else
        lb1.Text = "读身份证信息失败!"
    End If
Else
    lb1.Text = "没有检测到有效身份证!"
End If

10楼的读卡操作代码确实没看懂，能不能给解释下！高手一定要帮帮忙啊！！

Try Dim lb1 As WinForm.Label = e.Form.Controls("Label13") Dim iRetUSB As Integer For iPort As Integer = 1001 To 1016 '遍历端口号 'iRetUSB = CVR_InitComm(iPort) 'If iRetUSB = 1 Then 'Exit For 'End If Next If iRetUSB = 1 Then lb1.Text = "设备连接成功" e.Form.TimerEnabled = True Else lb1.Text = "设备未成功连接!" e.Form.TimerEnabled = False '停止计时器,使得自动读取功能失效 e.Form.Controls("Button1").Enabled = False '禁用读卡按钮 e.Form.Controls("CheckBox1").Enabled = False '禁用自动读取复选框 End If Catch ex As Exception MessageBox.Show(ex.ToString) End Try 我怎么把华视的这句iRetUSB = CVR_InitComm(iPort) 改成华旭的呢，我就是没找到华旭的在这句该怎么写

SDT_ClosePort  关闭端口这句该怎么写？  下面的怎么改？

 

int SDT_ClosePort (

int             iPort

);

 

参数说明：

 

iPort

[in] 整数，表示端口号。

返回值：

0x90    关闭端口成功。

0x01    端口号不合法

10楼的

2、调用代码 是写在哪里的？（内部函数）吗？