请开发过中控考勤机的大神帮忙看下

[我是_怪胎]

自已想开发一个工具，自动下载中控考勤机考勤数据，
定义如下：
Function boolean Connect_Net(string ip,ref long interface) Library "zkemkeeper.dll"
但调用时总是报下面的错误：
bad runtime function refenrence这个错误，
中控的zkemkeeper.dll文件已经注册过了，实再无法搞定，请有经验的大神帮我诊断下

[我是_怪胎]

自己顶下，希望有大神可以帮到我

[qq_1919561306]

用delphi重新封闭dll，再给pb调用。

[我是_怪胎]

DELPHI我不会用，非要重新封装么

[WorldMobile]

引用 楼主 wxqbhscl 的回复:

自已想开发一个工具，自动下载中控考勤机考勤数据， 定义如下： Function boolean Connect_Net(string ip,ref long interface) Library "zkemkeeper.dll" 但调用时总是报下面的错误： bad runtime function refenrence这个错误， 中控的zkemkeeper.dll文件已经注册过了，实再无法搞定，请有经验的大神帮我诊断下

Function boolean Connect_Net(string ip,ref long interface) Library "zkemkeeper.dll" alias for "Connect_Net;Ansi" 这样声明试试

[A啦Dbit]

以前用过中控的 是OCX的那种 insert olecontrol 楼主没用错吧

[做梦的猫]

4 楼说的没错，须要直接插入一个 OLE 控件才能用的，具体调用看看中控自带的 pb 示例代码，不同型号有区别。。 // 连接机子

boolean bConn

if zkem.object.SetCommPassword(is_pass) then
   if zkem.object.connect_net(is_ip, is_port) then
//		bConn=true
		MachineNum =1
	 else
		MessageBox("错误", "连接失败！")
   end if
end if

// 下载数据

machineNum=1
if w_kqj.ZKEM.object.ReadGeneralLogData(machineNum) then
do while w_kqj.ZKEM.object.SSR_GetGeneralLogData(machineNum,ref dwEnrollNumber,ref dwVerifyMode,ref  dwInOutMode,ref dwYear,ref dwMonth,ref dwDay,ref dwHour,ref dwMinute, ref dwSecond, ref dwWorkcode)
		dw_1.insertrow(0) // ...
loop
end if

[DD]

插入一个OLE控件来做， 代码 string ls_machineno,ls_empno,ls_qdfs,ls_kqzt long ll_empno,ll_qdfs,ll_kqzt,ll_currow,ll_year,ll_month,ll_day,ll_hour,ll_minute,ll_second date ld_qdrq time lt_qdsj string ls_ipaddress,ls_ljfs,ls_pinpai,ls_qdsj long ll_ipport,ll_comport,ll_boudrate int i,j,k boolean lb_connect datetime ldt_downtime ldt_downtime = datetime(today(),now()) cleargdata = true for i = 1 to dw_kqjinfo_list.rowcount() ll_machineno = dw_kqjinfo_list.getitemnumber(i,'machinenumber') ls_ljfs = dw_kqjinfo_list.getitemstring(i,'ljfs') ls_ipaddress = dw_kqjinfo_list.getitemstring(i,'ipadress') // messagebox(ls_ljfs,ls_ipaddress) ll_ipport = 4370 ll_comport = dw_kqjinfo_list.getitemnumber(i,'comport') ll_boudrate = dw_kqjinfo_list.getitemnumber(i,'boudrate') ls_pinpai = dw_kqjinfo_list.getitemstring(i,'pinpai') choose case ls_ljfs case 'TCP/IP' st_1.text = '正在连接考勤机，请稍后...' czkem.object.setcommpassword(123456) lb_connect = czkem.object.connect_net(ls_ipaddress,ll_ipport) if lb_connect then st_1.text = '连接成功，开始下载数据' if czkem.object.readallglogdata(ll_machineno) then czkem.object.EnableDevice(ll_machineno,false) do while czkem.object.GetGeneralLogData(ll_machineno,ref ll_machineno,ref ll_empno,ref ll_machineno,ref ll_qdfs,ref ll_kqzt,ref ll_year,ref ll_month,ref ll_day,ref ll_hour,ref ll_minute) ls_machineno = string(ll_machineno,'0') ls_empno = string(ll_empno,'00000') ls_qdfs = string(ll_qdfs) ld_qdrq = date(string(ll_year,'0000') + '-' +string(ll_month,'00') + '-' + string(ll_day,'00')) lt_qdsj = time(string(ll_hour) + ':' + string(ll_minute)) ll_currow = dw_kqjrec.insertrow(0) dw_kqjrec.setitem(ll_currow,'sbbh',ls_machineno) dw_kqjrec.setitem(ll_currow,'empno',ls_empno) dw_kqjrec.setitem(ll_currow,'qdfs',ls_qdfs) dw_kqjrec.setitem(ll_currow,'qdrq',ld_qdrq) dw_kqjrec.setitem(ll_currow,'qdsj',datetime(ld_qdrq,lt_qdsj)) loop dw_1.retrieve(string(i),ldt_downtime) for k = 1 to dw_1.rowcount() ll_currow = dw_kqjrec.insertrow(0) dw_kqjrec.setitem(ll_currow,'sbbh',dw_1.getitemstring(k,'sbbh')) dw_kqjrec.setitem(ll_currow,'empno',dw_1.getitemstring(k,'empno')) dw_kqjrec.setitem(ll_currow,'qdfs',dw_1.getitemstring(k,'qdfs')) dw_kqjrec.setitem(ll_currow,'qdrq',dw_1.getitemdatetime(k,'qdrq')) dw_kqjrec.setitem(ll_currow,'qdsj',dw_1.getitemdatetime(k,'qdsj')) dw_1.setitem(k,'stat','1') next czkem.object.EnableDevice(ll_machineno,true) st_1.text = string(ll_machineno) + '号考勤机数据下载完毕！' triggerevent('ue_save') else st_1.text = string(ll_machineno) + '号考勤机无考勤数据!' end if else st_1.text = string(ll_machineno) + '号考勤机连接失败,请检查考勤机配置!' end if case 'RS232/RS485' // if j = i then // end if end choose next

[hovoy]

用C#调用一下试试。我遇到过pb调不了但c#能调。