unit1.pas

中控指纹识别软件开发包Biokey SDK 3.0 PRO 提供1:1 和1:3000的指纹比对 目前应用范围广 这是一前做项目的时候花了1W银子买来的噢

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, OleCtrls, ZKFPEngXControl_TLB, ComCtrls;

type
  TForm1 = class(TForm)
    pnlCommand: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    btnInit: TButton;
    EDSensorNum: TEdit;
    EDSensorIndex: TEdit;
    EDSensorSN: TEdit;
    RGFormat: TRadioGroup;
    btnSaveImage: TButton;
    btnReg: TButton;
    EDFingerName: TEdit;
    btnVerify: TButton;
    Button1: TButton;
    ZKFPEngX1: TZKFPEngX;
    StatusBar: TStatusBar;
    btnDogRead: TButton;
    EDInfo1: TEdit;
    btnDogWrite: TButton;
    EDInfo: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    ZKFPEngX2: TZKFPEngX;
    Button5: TButton;
    procedure btnInitClick(Sender: TObject);
    procedure ZKFPEngX1Capture(Sender: TObject; ActionResult: WordBool;
      ATemplate: OleVariant);
    procedure btnSaveImageClick(Sender: TObject);
    procedure btnRegClick(Sender: TObject);
    procedure ZKFPEngX1FeatureInfo(Sender: TObject; AQuality: Integer);
    procedure btnVerifyClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ZKFPEngX1Enroll(Sender: TObject; ActionResult: WordBool;
      ATemplate: OleVariant);
    procedure ZKFPEngX1ImageReceived(Sender: TObject;
      var AImageValid: WordBool);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnDogReadClick(Sender: TObject);
    procedure btnDogWriteClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ZKFPEngX2ImageReceived(Sender: TObject;
      var AImageValid: WordBool);
  private
    { Private declarations }
    FRegTemplate: OleVariant;
    FMatchType: Integer;
    sRegTemplate: WideString;

    FID: Integer;
    FFingerName: TStringList;
    fpcHandle: Integer;
    iOld: DWORD;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnInitClick(Sender: TObject);
begin
  if ZKFPEngX1.InitEngine = 0 then begin
     MessageDlg('初始化成功！', mtInformation, [mbOK], 0);
     ClientWidth := ZKFPEngX1.ImageWidth + pnlCommand.Width;
     ClientHeight := ZKFPEngX1.ImageHeight;
     btnInit.Enabled := False;
     FMatchType := 0;
     StatusBar.Panels.Items[0].Text := '指纹仪连接';
     EDSensorNum.Text := IntToStr(ZKFPEngX1.SensorCount);
     EDSensorIndex.Text := IntToStr(ZKFPEngX1.SensorIndex);
     EDSensorSN.Text := ZKFPEngX1.SensorSN;
  end;
end;

procedure TForm1.ZKFPEngX1Capture(Sender: TObject; ActionResult: WordBool;
  ATemplate: OleVariant);
var
  ID, I: Integer;
  Score, ProcessNum: Integer;
  RegChange: WordBool;
  iNew: Integer;
  sTemp: string;
begin
  StatusBar.Panels.Items[0].Text := '取得指纹特征';
  if FMatchType = 1 then begin //1:1
     //测试Encode and Decode
     sTemp := ZKFPEngX1.EncodeTemplate1(ATemplate);
     ATemplate := ZKFPEngX1.DecodeTemplate1(sTemp);

     ZKFPEngX1.DecodeTemplate(sRegTemplate, FRegTemplate);

     if ZKFPEngX1.VerFinger(FRegTemplate, ATemplate, True, regChange) then
        MessageDlg('指纹比对成功！', mtInformation, [mbOK], 0)
     else
        MessageDlg('指纹比对失败！', mtInformation, [mbOK], 0);
     //if ZKFPEngX1.VerRegFingerFile('c:\fingerprint.tpl', ATemplate, False, regChange) then
     //   MessageDlg('文件指纹比对成功！', mtInformation, [mbOK], 0)
     //else
     //   MessageDlg('文件指纹比对失败！', mtInformation, [mbOK], 0);
  end else if FMatchType = 2 then begin //1:N
     Score := 8;
     ID := ZKFPEngX1.IdentificationInFPCacheDB(fpcHandle, ATemplate, Score, ProcessNum);
     iNew := GetTickCount - iOld;
     if ID = -1 then
        MessageDlg('指纹比对失败！Score = ' + IntToStr(Score) + ' Processed Number = ' + IntToStr(ProcessNum), mtInformation, [mbOK], 0)
     else begin
        for I := 0 to FFingerName.Count - 1 do
          if ID = Integer(FFingerName.Objects[I]) then
             MessageDlg(Format('指纹比对成功！Name= %s Score = %d Processed Number = %d time = %d',
                [FFingerName.Strings[I], Score, ProcessNum, iNew]), mtInformation, [mbOK], 0)
     end;
  end;
end;

procedure TForm1.btnSaveImageClick(Sender: TObject);
const
  sFileName = 'C:\Fingerprint';
begin
  if RGFormat.ItemIndex = 0 then
     ZKFPEngX1.SaveBitmap(sFileName + '.bmp')
  else if RGFormat.ItemIndex = 1 then
     ZKFPEngX1.SaveJPG(sFileName + '.jpg');
  MessageDlg('文件保存成功(' + sFileName + ')!', mtConfirmation, [mbOK], 0);
end;

procedure TForm1.btnRegClick(Sender: TObject);
begin
  if EDFingerName.Text = '' then begin
     MessageDlg('请输入指纹名称标识!', mtInformation, [mbOK], 0);
     Exit;
  end;
  ZKFPEngX1.BeginEnroll;
  StatusBar.Panels.Items[0].Text := '开始登记';
end;

procedure TForm1.ZKFPEngX1FeatureInfo(Sender: TObject; AQuality: Integer);
var
  sTemp: string;
begin
  sTemp := '';
  if ZKFPEngX1.IsRegister then
     sTemp := '登记状态: 还需要按压' + IntToStr(ZKFPEngX1.EnrollIndex) + '次手指!';
  sTemp := sTemp + ' 指纹质量';
  if AQuality <> 0 then
     sTemp := sTemp + '不合格'
  else
     sTemp := sTemp + '合格';
  StatusBar.Panels.Items[0].Text := sTemp;
end;

procedure TForm1.btnVerifyClick(Sender: TObject);
begin
  if ZKFPEngX1.IsRegister then ZKFPEngX1.CancelEnroll;
  StatusBar.Panels.Items[0].Text := '开始比对(1:1)';
  FMatchType := 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ZKFPEngX1.IsRegister then ZKFPEngX1.CancelEnroll;
  StatusBar.Panels.Items[0].Text := '开始比对(1:N)';
  FMatchType := 2;
end;

procedure TForm1.ZKFPEngX1Enroll(Sender: TObject; ActionResult: WordBool;
  ATemplate: OleVariant);
var
  i: Integer;
begin
  if not ActionResult then
     MessageDlg('指纹登记失败！', mtWarning, [mbOK], 0)
  else begin
     MessageDlg('指纹登记成功！', mtWarning, [mbOK], 0);
     //ZKFPEngX1.ModifyTemplate(ATemplate, True);
     FRegTemplate := null;
     //FRegTemplate := ATemplate;
     ZKFPEngX1.EncodeTemplate(ATemplate, sRegTemplate);
     i := Length(sRegTemplate);
     ZKFPEngX1.SaveTemplate('c:\fingerprint.tpl', ATemplate);
     if FID mod 2 = 1 then
        ZKFPEngX1.AddRegTemplateToFPCacheDB(fpcHandle, FID, ATemplate)
     else
        ZKFPEngX1.AddRegTemplateFileToFPCacheDB(fpcHandle, FID, 'c:\fingerprint.tpl');

     ZKFPEngX1.RemoveRegTemplateFromFPCacheDB(fpcHandle, FID);
     ZKFPEngX1.AddRegTemplateToFPCacheDB(fpcHandle, FID, ATemplate);

     FFingerName.AddObject(EDFingerName.Text, TObject(FID));
     Inc(FID);
  end;
end;

procedure TForm1.ZKFPEngX1ImageReceived(Sender: TObject;
  var AImageValid: WordBool);
begin
  iOld := GetTickCount;
  with ZKFPEngX1 do
    PrintImageAt(Self.Canvas.Handle, 0, 0, ImageWidth, ImageHeight);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FID := 1;
  FFingerName := TStringList.Create;
  fpcHandle := ZKFPEngX1.CreateFPCacheDB;
  FRegTemplate := null;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FFingerName.Free;
  ZKFPEngX1.FreeFPCacheDB(fpcHandle);
end;

procedure TForm1.btnDogReadClick(Sender: TObject);
var
  p1, p2: Integer;
  v: OleVariant;
  p: array [0..23] of Char;
  ap: Pointer;
begin
  p1 := 0;
  p2 := 23;
  ZKFPEngX1.DongleMemRead(p1, p2, v);
  ap := VarArrayLock(v);
  CopyMemory(@p[0], ap, p2);
  p[23] := #0;
  EDInfo1.Text := p;
end;

procedure TForm1.btnDogWriteClick(Sender: TObject);
var
  p1, p2: Integer;
  v: OleVariant;
  i: Integer;
  s: string;
begin
  p1 := 0;
  p2 := Length(EDInfo.Text);
  s := EDInfo.Text;
  v := VarArrayCreate([0, p2 - 1], varByte);
  for i := 0 to Length(EDInfo.Text) - 1 do
    v[i] := Ord(s[i + 1]);
  ZKFPEngX1.DongleMemWrite(p1, p2, v);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ZKFPEngX1.CancelCapture;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ZKFPEngX1.BeginCapture;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ZKFPEngX1.EndEngine;
  btnInit.Enabled := True;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if ZKFPEngX2.InitEngine = 0 then begin
     MessageDlg('初始化成功！', mtInformation, [mbOK], 0);
     ClientWidth := ZKFPEngX2.ImageWidth + pnlCommand.Width;
     ClientHeight := ZKFPEngX2.ImageHeight;
     btnInit.Enabled := False;
     FMatchType := 0;
     StatusBar.Panels.Items[0].Text := '指纹仪连接';
     EDSensorNum.Text := IntToStr(ZKFPEngX2.SensorCount);
     EDSensorIndex.Text := IntToStr(ZKFPEngX2.SensorIndex);
     EDSensorSN.Text := ZKFPEngX2.SensorSN;
  end;
end;

procedure TForm1.ZKFPEngX2ImageReceived(Sender: TObject;
  var AImageValid: WordBool);
begin
  iOld := GetTickCount;
  with ZKFPEngX2 do
    PrintImageAt(Self.Canvas.Handle, 0, 0, ImageWidth, ImageHeight);
end;

end.