Test Program

 1unit Unit2;
 2interface
 3uses
 4  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 5  Dialogs, StdCtrls, OleCtrls, zkemkeeper_TLB;
 6type
 7  TForm2 = class(TForm)
 8    SDK: TCZKEM;
 9    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SDKAttTransaction(ASender: TObject; EnrollNumber, IsInValid,
      AttState, VerifyMethod, Year, Month, Day, Hour, Minute, Second: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
  c: Boolean;
begin
  SDK.CommPort := 1;
  c := SDK.Connect_Com(1, 1, 115200);
  if c then
    ShowMessage('连接指纹机成功！')
  else
    ShowMessage('连机失败');
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
  SDK.RefreshData(1);
  SDK.EnableDevice(1, True);
  SDK.Disconnect;
  ShowMessage('设置已断开');
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
  SDK.RegEvent(1, 1); // Register Event : AttTransaction
  if SDK.ReadRTLog(1) then
    while SDK.GetRTLog(1) do
      Application.ProcessMessages;
end;
procedure TForm2.SDKAttTransaction(ASender: TObject; EnrollNumber, IsInValid,
  AttState, VerifyMethod, Year, Month, Day, Hour, Minute, Second: Integer);
begin
  ShowMessage(Format( '用户编号:%d' + #$A#$D +
                      '是/否有记录:%d' + #$A#$D +
                      '考勤机状态：%d' +  #$A#$D +
                      '对比方式(0/1):%d' +  #$A#$D +
                      '时间：%d-%d-%d %d:%d:%d',
                      [EnrollNumber,
                      IsInValid,
                      AttState,
                      VerifyMethod,
                      Year, Month, Day, Hour, Minute, Second]));
end;
end.