Foxtable(狐表)用户栏目专家坐堂 → [求助]与中控考勤机连接的问题


  共有4483人关注过本帖树形打印复制链接

主题:[求助]与中控考勤机连接的问题

帅哥哟,离线,有人找我吗?
HappyFt
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1916 积分:17140 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2019/5/16 15:34:00 [显示全部帖子]

请教一下,我已引用这个dll,IP都可以ping,端口也是正确的,而且将另外一个sdK下面的全部dll文件都手工复制到c:\windows\system32下面了,为什么还是显示1楼那个错误?
照抄人家vb.net的代码即可?是指用VS打开将里面的代码全部复制到全局代码吗?

谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1916 积分:17140 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2019/5/16 16:26:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:zk.jpg
图片点击可在新窗口打开查看

VS没怎么用过,这些控件的代码在VS中要如何打开修改呢,现在关键是考勤机连接有一个密码,在这个连接按钮的的代码中要如何加上这个密码,应该就可以了?

 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1916 积分:17140 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2019/5/16 16:56:00 [显示全部帖子]

 连接按钮的代码如下:
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        If txtIP.Text.Trim() = "" Or txtPort.Text.Trim() = "" Then
            MsgBox("IP and Port cannot be null", MsgBoxStyle.Exclamation, "Error")
            Return
        End If
        Dim idwErrorCode As Integer
        Cursor = Cursors.WaitCursor
        If btnConnect.Text = "Disconnect" Then
            AxCZKEM1.Disconnect()
            bIsConnected = False
            btnConnect.Text = "Connect"
            lblState.Text = "Current State:Disconnected"
            Cursor = Cursors.Default
            Return
        End If

        bIsConnected = axCZKEM1.Connect_Net(txtIP.Text.Trim(), Convert.ToInt32(txtPort.Text.Trim()))
        If bIsConnected = True Then
            btnConnect.Text = "Disconnect"
            btnConnect.Refresh()
            lblState.Text = "Current State:Connected"
            iMachineNumber = 1 'In fact,when you are using the tcp/ip communication,this parameter will be ignored,that is any integer will all right.Here we use 1.
            AxCZKEM1.RegEvent(iMachineNumber, 65535) 'Here you can register the realtime events that you want to be triggered(the parameters 65535 means registering all)
        Else
            AxCZKEM1.GetLastError(idwErrorCode)
            MsgBox("Unable to connect the device,ErrorCode=" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
        End If
        Cursor = Cursors.Default
   End Sub

我的IP及端口都是正确的,密码是123456应该加在哪里?不然在VS中启动运行代码会出现下面的错误提示:
Unable to connect the device,ErrorCode=-6



 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1916 积分:17140 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2019/5/16 19:17:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:zk.jpg
图片点击可在新窗口打开查看

通过同台电脑的考勤软件打开时是可以连接考勤机的,是在如下设置中有人为输入了正确的密码(密码不正确时就连接不了)

图片点击可在新窗口打开查看此主题相关图片如下:zk2.jpg
图片点击可在新窗口打开查看

但在VS中直接启动运行连接就出现了如下错误 ,查了一下网上,错误号-6 也就是IP,端口或者密码不正确,现在密码也知道,就不不知道怎么将密码加在连接字符里面
这句怎么加都出错
bIsConnected = axCZKEM1.Connect_Net(txtIP.Text.Trim()/"123456",Convert.ToInt32(txtPort.Text.Trim()))


图片点击可在新窗口打开查看此主题相关图片如下:zk3.jpg
图片点击可在新窗口打开查看
难道在连接字符这里不用密码,而应该是在其他调用的代码中再设置密码?




 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1916 积分:17140 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2019/5/16 20:52:00 [显示全部帖子]

把开发文档从头看了一遍,总算找到了,在前面加一句
axCZKEM1.SetCommPassword("123456") '设置通讯密码
 bIsConnected = axCZKEM1.Connect_Net(txtIP.Text.Trim(), Convert.ToInt32(txtPort.Text.Trim()))
 现在VS中已经能连接上了,但是同样的代码加在ft里面那个例子里面还是会出错,为什么?


图片点击可在新窗口打开查看此主题相关图片如下:zk.jpg
图片点击可在新窗口打开查看

ft例子的全局代码里面就只有一句
Public Declare Function AxCZKEM1 Lib "zkemkeeper.dll" Alias "CZKEM" () As Object
这句应该是要的吧,不然也会出错

 回到顶部