舒特考勤机动态库函数说明

考勤机动态库函数说明表
动态库配置文件KQDLL.ini
[PARAM]
--动态库版本
DLLVERSION=5.0-20070808
--卡号长度(新主板硬件此项无效, 旧主板硬件必须设置和硬件一致) CARDLEN=6
--适用IP机型(新主板硬件此项无效), =1表示机号用01表示, =0表示机号用IP后两位
IPNOTYPE=1
--生成的刷卡记录文本是否覆盖存在的文件,=1表示覆盖,=0表示追加到存在的文件后
ISOVERFILE=1
--下载成功是否删除硬件中数据(新主板硬件此项无效)
ISDELERECORD=1
--生成的刷卡记录文本存放的路径,只有ISUSESELFPATH=1才有效,默认是当前路径
KQTXTPATH=E:\NewKQDLL\Bin\W_Kqrec( 新 )\
--是否使用自定义的路径,=1表示是,=0表示否
ISUSESELFPATH=0
--是否显示下载窗口, =1表示是,=0表示否
ISSHOWFORM=1
--是否记录下载通讯日志,=1表示是,=0表示否
ISRECLOG=0
{=============================================================================
注意:
1、新考勤机已经不能采用以前的的下传卡号,下传姓名函数SendCardName/LanSendCardName。

2、同时下传编号在新机器已取消，由机器内部自动编号。

3、新考勤下传卡号、卡号+姓名，必需由三个函数组合完成
打开端口(_LANBEGINTRAN)
下传卡号/下传卡号+姓名(_LANTRANCARD / _LANTRANCARDNAME)
结束下传并关闭端口(_LANENDTRAN)
4、485机器与IP机器使用方法一样，只有函数名不同。

=============================================================================}
//下传卡号过程
procedure TFMHard.pdTranCard(aIsOver: Integer = 0; bComLan: Boolean; Address, Port: string); var
hcomm: THandle;
hsock: Integer;
i,li_ACK,li_count: integer;
li_Try: Integer;
begin
i := 0;
if not bComLan then Address := Port;
if StringGrid1.cells[1,1] = '' then Exit;
try
if bComLan then //485机器
begin
//先返回打开的端口地址
i := _BEGINTRAN(StrToInt(Address), StrToInt(Port), 2, aIsOver); // 覆盖
if i <= 0 then
begin
pdMsgOK(sOpenFail);
Exit;
end else
hcomm := i;
end else //Ip机器
begin
//先返回打开的端口地址
i := _LANBEGINTRAN(PChar(Address), 2, aIsOver);
if i <= 0 then
begin
pdMsgOK(sOpenFail);
Exit;
end else
hsock := i;
end;
pdShowProgress(Format(sProcessTitle, [Address]), StringGrid1.RowCount - 1, sProcessmsg); for i := 1 to StringGrid1.RowCount - 1 do
begin
Application.ProcessMessages;
pdUpdateProgress(i);
for li_Try := 1 to 3 do
begin
if bComLan then
//这里的hcomm,hsock为返回的地址
li_ACK := _TRANCARD(hcomm, strtoint64(StringGrid1.Cells[1,i]))
else
li_ACK := _LANTRANCARD(hsock, strtoint64(StringGrid1.Cells[1,i]));
if (li_ACK < 0) or (li_ACK = 1) then
begin
Sleep(1000);
Continue;
end else
Break;
end;
if li_Try > 3 then break;
pdHideProgress;
//记得结束后,需要传入结束指令
if bComLan then
_ENDTRAN(hcomm, 2)
else
_LANENDTRAN(hsock, 2);
pdShowAck(Address, li_ACK);
end;
end;
procedure TFMHard.pdTranCardName(aIsOver: Integer; bComLan: Boolean; Address, Port: string);
var
i,li_count : integer;
hcomm : THandle;
hsock : Integer;
li_ACK : integer; // ACK状态
ls_Name: string; // 姓名
li_Try : Integer; // 重发次数
begin
i := 0;
if not bComLan then Address := Port;
if StringGrid1.cells[1,1] = '' then Exit;
try
if bComLan then
begin
i := _BEGINTRAN(StrToInt(Address), StrToInt(Port), 1, aIsOver); if i <= 0 then
begin
pdMsgOK(sOpenFail);
Exit;
end else
hcomm := i;
i := _LANBEGINTRAN(PChar(Address), 1, aIsOver);
if i <= 0 then
begin
pdMsgOK(sOpenFail);
Exit;
end else
hsock := i;
end;
pdShowProgress(Format(sProcessTitle, [Address]), StringGrid1.RowCount - 1, sProcessmsg);
for i := 1 to StringGrid1.RowCount - 1 do
begin
Application.ProcessMessages;
pdUpdateProgress(i);
ls_Name := Trim(stringgrid1.Cells[3, i]);
if Length(ls_Name) > 8 then ls_Name := Copy(ls_Name,1,8);
for li_Try := 1 to 3 do
begin
if bComLan then
li_ACK := _TRANCARDNAME(hcomm, strtoint64(Trim(stringgrid1.Cells[1, i])), PChar(ls_Name))
else
li_ACK := _LANTRANCARDNAME(hsock, strtoint64(Trim(stringgrid1.Cells[1, i])), PChar(ls_Name)); if (li_ACK < 0) or (li_ACK = 1) then
begin
Sleep(1000);
Continue; // 发送失败 // 超时错误
end else
Break;
end;
if li_Try > 3 then Break;
end;
finally
pdHideProgress;
if bComLan then
_ENDTRAN(hcomm, 1)
_LANENDTRAN(hsock, 1);
pdShowAck(Address, li_ACK); end;
end;。