- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 应用发布后:启动读指纹卡钟程序报错； (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145267)
-- 发布时间：2020/1/14 13:27:00
-- 应用发布后:启动读指纹卡钟程序报错；
此主题相关图片如下：刷卡报错.jpg
我的开发平台：windows 10 64位
在会议管理软件中设置了会议前刷指纹钟签到，用开发电脑在现场测试无问题，用户在中控指纹钟刷卡，软件能响应出当前用户信息
现象：
但发布后，在另外一台 widows10 64 位的用户电脑上能正常启动刷卡功能；
但在别人的 Windows7 64位系统中运行，一启动刷卡功能就直接报告上图错误。
启动连接卡钟的事件代码如下：
Tables(e.Form.name & "_Table1").AllowEdit=False
Dim bst As WinForm.Button = e.Form.Controls("card_confim")
Dim dr As Row=Tables("dev_info").Current
Dim iMachineNumber As String=dr("dev_no")
If Vars("d_Key01")=0 Then \'未启动刷卡
bIsConnected = axCZKEM1.Connect_Net(dr("dev_ip"), dr("dev_port")) \'连接到IP地址所指的卡上
If bIsConnected=True Then
AxCZKEM1.ClearGLog(iMachineNumber) \'先清除里面所有考勤记录
End If
Vars("d_Key01")=1
If bIsConnected=False Then \'如果已经连接好,就把它断开
Else
If bIsConnected Then
e.Form.TimerEnabled=True \'启动时时刷指纹
e.Form.TimerInterval=100
Tables(e.Form.name & "_Table1").AllowEdit=False
bst.text="...连机成功,正在签到中..."
bst.BackColor=Color.Lime
Else
bst.BackColor=Color.red
bst.text="设备连接失败"
messagebox.show("连接指纹器失败,请查相关设备连接状态!")
End If
End If
Else
Dim axCZKEM1 As New zkemkeeper.CZKEM
bst.text="签到结束"
Tables(e.Form.name & "_Table1").AllowEdit=True
bst.BackColor=Color.red
e.Form.TimerEnabled=False
Vars("d_Key01")=0
End If
[此贴子已经被作者于2020/1/14 13:35:56编辑过]
-- 发布时间：2020/1/14 13:33:00
--
这台电脑没有安装驱动，或者是没有注册组件吧