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, OleCtrls, ZKFPEngXControl_TLB, ExtCtrls, ComCtrls, ExtDlgs;

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;
    btnDogRead: TButton;
    EDInfo1: TEdit;
    btnDogWrite: TButton;
    EDInfo: TEdit;
    StatusBar: TStatusBar;
    btnImage: TButton;
    OpenPictureDialog: TOpenPictureDialog;
    ZKFPEngX1: TZKFPEngX;
    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 FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnDogReadClick(Sender: TObject);
    procedure btnDogWriteClick(Sender: TObject);
    procedure ZKFPEngX1ImageReceived(Sender: TObject; var AImageValid: WordBool);
    procedure btnImageClick(Sender: TObject);
  private
    { Private declarations }
    FRegTemplate: OleVariant;
    sRegTemplate: WideString;
    FMatchType: Integer;

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

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

procedure TForm1.ZKFPEngX1Capture(Sender: TObject; ActionResult: WordBool;
  ATemplate: OleVariant);
var
  ID, I: Integer;
  Score, ProcessNum: Integer;
  bDoLearn, bChanged: WordBool;
begin
  StatusBar.Panels.Items[0].Text := '取得指纹特征';
  ZKFPEngX1.DecodeTemplate(sRegTemplate, FRegTemplate);
  if ZKFPEngX1.VerFinger(FRegTemplate, ATemplate, bDoLearn, bChanged) then
     MessageDlg('指纹比对成功！', mtInformation, [mbOK], 0)
  else
     MessageDlg('指纹比对失败！', mtInformation, [mbOK], 0)
     //if ZKFPEngX1.VerRegFingerFile('c:\fingerprint.tpl', ATemplate) then
     //   MessageDlg('文件指纹比对成功！', mtInformation, [mbOK], 0)
     //else
     //   MessageDlg('文件指纹比对失败！', mtInformation, [mbOK], 0);
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 - 1) + '次手指!';
  sTemp := sTemp + ' 指纹质量';
  if AQuality <> 0 then begin
     sTemp := sTemp + '不合格';
  end else
     sTemp := sTemp + '合格';
  StatusBar.Panels.Items[0].Text := sTemp;
end;

procedure TForm1.btnVerifyClick(Sender: TObject);
begin
  ZKFPEngX1.BeginCapture;
  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);
begin
  if not ActionResult then
     MessageDlg('指纹登记失败！', mtWarning, [mbOK], 0)
  else begin
     MessageDlg('指纹登记成功！', mtWarning, [mbOK], 0);
     FRegTemplate := null;
     //FRegTemplate := ATemplate;
     ZKFPEngX1.EncodeTemplate(ATemplate, sRegTemplate);
     ZKFPEngX1.SaveTemplate('c:\fingerprint.tpl', ATemplate);
  end;
end;

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

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FFingerName.Free;
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.ZKFPEngX1ImageReceived(Sender: TObject; var AImageValid: WordBool);
begin
  with ZKFPEngX1 do
    PrintImageAt(Self.Canvas.Handle, 0, 0, ImageWidth, ImageHeight);
end;

procedure TForm1.btnImageClick(Sender: TObject);
begin
  //if OpenPictureDialog.Execute then
  //   ZKFPEngX1.AddImageFile(OpenPictureDialog.FileName, 450);
end;

end.