unit1.~pas

杭州中正指纹仪开发包 光学采集仪SDK20071113.zip

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, OPTFINGERLib_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OptFinger1: TOptFinger;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 function ServerMatchFinger(Tz1: pChar;Tz2: pChar;Num3:integer):Boolean;stdcall;external 'ServerVerify.dll' name 'Server_MatchFinger';
var
  Form1: TForm1;
  FTz1:array[0..1025] of char;
  FTz2:array[0..1025] of char;
  FvTz1:OleVariant;
  FvTz2:OleVariant;

implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   sTz1:string;
   sTz2:string;

begin

    // sTz:='302025810000????????????????????????????0>?00<70083008100810081008100810081008100810????054700000000000000000000051:59>3:003?4>3652;28>5572358>==33;9>>16193=<>7<5=;<8>13624<8>7=3>::6?1<3;;6>?5133432?9;';
    // StrCopy(FTz1,'302025810000????????????????????????????0>?00<70083008100810081008100810081008100810????054700000000000000000000051:59>3:003?4>3652;28>5572358>==33;9>>16193=<>7<5=;<8>13624<8>7=3>::6?1<3;;6>?5133432?9;');

    // StrCopy(FTz2,'302025810000????????????????????????????0>?00<70083008100810081008810081008100100810????054700003?4>3652;28>5572358>==33;9>>16193=<>7<5=;<8>13624<8>7=3>::6?1<3;;6>?5130000000000000000051:59>3:003432?9;');
    sTz1=vartostr(FvTz1);
    sTz2=vatToStr(FvTz2);
     if(ServerMatchFinger(pChar(sTz1),pChar(sTz2),5)) then
        ShowMessage('success')
     else
         ShowMessage('fail');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 if(OptFinger1.OpenHardware=false) then
    ShowMessage('打开设备失败');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   OptFinger1.CloseHardware
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  vImg:OleVariant;

begin
   OptFinger1.ScanFinger(vImg);
   FvTz1:=OptFinger1.GetClientFinger();

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  vImg:OleVariant;
begin
  OptFinger1.ScanFinger(vImg);
   FvTz2:=OptFinger1.GetClientFinger();
end;

end.