unit1.~pas

ZK Tester for uploading

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, zkemkeeper_TLB, StdCtrls, Buttons, ExtCtrls,
  ZKFPEngXControl_TLB;

type
  TForm1 = class(TForm)
    CZKEM1: TCZKEM;
    edtNetPort: TLabeledEdit;
    edtNetAddress: TLabeledEdit;
    btnConnect: TButton;
    Bevel1: TBevel;
    memo1: TMemo;
    Button1: TButton;
    Bevel2: TBevel;
    Button2: TButton;
    ZKFPEngX1: TZKFPEngX;
    Image1: TImage;
    procedure btnConnectClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ZKFPEngX1ImageReceived(ASender: TObject;
      var AImageValid: WordBool);
  private
    DevID: integer;
    procedure AddInfo(const s: string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AddInfo(const s: string);
begin
  memo1.Lines.Add(s);
  memo1.Refresh;
end;

procedure TForm1.btnConnectClick(Sender: TObject);
var
  ErrorCode: integer;
  c: boolean;
begin
  if btnConnect.Tag = 1 then
  begin
    CZKEM1.RefreshData(DevId);
    CZKEM1.EnableDevice(DevId, TRUE);
    CZKEM1.Disconnect;
    btnConnect.Tag := 0;
    btnConnect.Caption := 'Connect';
  end
  else
  begin
    devid:=strtoint(edtNetPort.Text);
    c:=CZKEM1.Connect_net(edtNetAddress.text, Devid);
    Devid:=1;
    if c then
    begin
      AddInfo('Equipamento conectado.');
      btnConnect.Tag := 1;
      btnConnect.Caption := 'Disconectar';
    end
    else
    begin
      CZKEM1.GetLastError(ErrorCode);
      AddInfo('Erro ao conectar com equipamento.');
    end;
      AddInfo(' ');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to 9 do
  begin
    czkem1.PlayVoiceByIndex(i);
    if MessageDlg('Ver outra voz?', mtConfirmation, [mbYes,mbNo], 0) <> mrYes then
      exit;
  end;
  czkem1.PlayVoice(30,29);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CZKEM1.SetUserInfo(1,1515,'TESTE','',1,true);



  ZKFPEngX1.InitEngine;
  ZKFPEngX1.BeginCapture;


end;

procedure TForm1.ZKFPEngX1ImageReceived(ASender: TObject;
  var AImageValid: WordBool);
var
  Template:WideString;
begin
  ZKFPEngX1.EncodeTemplate(ZKFPEngX1.GetTemplate,Template);
  memo1.Lines.Text := Template;
end;

end.