1
unit Unit2;2
interface3
uses4
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,5
Dialogs, StdCtrls, OleCtrls, zkemkeeper_TLB;6
type7
TForm2 = class(TForm)8
SDK: TCZKEM;9
Button1: TButton;10
Button2: TButton;11
Button3: TButton;12
Button4: TButton;13
procedure Button1Click(Sender: TObject);14
procedure Button2Click(Sender: TObject);15
procedure Button3Click(Sender: TObject);16
procedure SDKAttTransaction(ASender: TObject; EnrollNumber, IsInValid,17
AttState, VerifyMethod, Year, Month, Day, Hour, Minute, Second: Integer);18
private19
{ Private declarations }20
public21
{ Public declarations }22
end;23
var24
Form2: TForm2;25
implementation26
{$R *.dfm}27
procedure TForm2.Button1Click(Sender: TObject);28
var29
c: Boolean;30
begin31
SDK.CommPort := 1;32
c := SDK.Connect_Com(1, 1, 115200);33
if c then34
ShowMessage('连接指纹机成功!')35
else36
ShowMessage('连机失败');37
end;38
procedure TForm2.Button2Click(Sender: TObject);39
begin40
SDK.RefreshData(1);41
SDK.EnableDevice(1, True);42
SDK.Disconnect;43
ShowMessage('设置已断开');44
end;45
procedure TForm2.Button3Click(Sender: TObject);46
begin47
SDK.RegEvent(1, 1); // Register Event : AttTransaction48
if SDK.ReadRTLog(1) then49
while SDK.GetRTLog(1) do50
Application.ProcessMessages;51
end;52
procedure TForm2.SDKAttTransaction(ASender: TObject; EnrollNumber, IsInValid,53
AttState, VerifyMethod, Year, Month, Day, Hour, Minute, Second: Integer);54
begin55
ShowMessage(Format( '用户编号:%d' + #$A#$D +56
'是/否有记录:%d' + #$A#$D +57
'考勤机状态:%d' + #$A#$D +58
'对比方式(0/1):%d' + #$A#$D +59
'时间:%d-%d-%d %d:%d:%d',60
[EnrollNumber,61
IsInValid,62
AttState,63
VerifyMethod,64
Year, Month, Day, Hour, Minute, Second]));65
end;66
end.67

68

浙公网安备 33010602011771号