0

我现在不知所措。我到处寻找使用 Digital Persona SDK(One Touch) 和 Delphi 10 在我的 MySQL 数据库中验证捕获的指纹的方法。我可以将指纹作为 longblob 保存在我的数据库中，但我无法从我的数据库。希望这里有人能够帮助我。阅读器是 U.Are.U 4500。

下面是我用来保存指纹的代码，但是当我需要再次验证指纹时，我不知道如何查询数据库。

procedure TForm1.FPCaptureComplete(ASender: TObject;
const ReaderSerNum: WideString; const pSample: IDispatch);
var
    l_interface : IDispatch;
    outFile : File;
    vt : integer ;
    vtByteBuf : PByteArray;   
    aryLow : integer;
    aryHigh : integer;
    rawDataSize: integer;
    loopIndex : integer;

begin

l_interface := FPGetImage.ConvertToPicture(pSample);
lblInfo.Caption:='Sample Captured';
SetOlePicture(pbPrint.Picture,IPictureDisp(l_interface));  //display print
if breginprogress=true then begin
if index > 4 then index:=1;     //reset index if beyond 4 presses

if index=1 then
begin
lbl1.Font.Color:=clGreen;
lbl2.Font.Color:=clYellow;
 end;

 if index=2 then
begin
lbl2.Font.Color:=clGreen;
lbl3.Font.Color:=clYellow;
 end;

  if index=3 then
begin
lbl3.Font.Color:=clGreen;
lbl4.Font.Color:=clYellow;
end;

if index=4 then lbl4.Font.Color:=clGreen;

index := index + 1;

//Create registration\enrollment featureset from sample captured
       try
 FPExtraction.CreateFeatureSet(pSample,DataPurposeEnrollment);
       except
            on E: Exception do  begin
            showmessage('Exception inside CreateFeatureSet');
            showmessage(E.Message);
            FPregister.Clear;
            ResetLabels;
            index:=1;
            exit;
             end;

       end;
if FPExtraction.FeatureSet <> nil then
 //Add features to registration object
 FPRegister.AddFeatures(FPExtraction.FeatureSet)
 else begin
 Showmessage('Could not create featureset, poor press');
 FPRegister.Clear;
 ResetLabels;
 index:=1;
 exit;  //return
 end;
 //If 4 successful features added, status should be 'Ready'
 if FPRegister.TemplateStatus=TemplateStatusTemplateReady then  begin
    lblResult.Caption:='User Enrolled - Press Finger for Verification';
    lbl1.Visible:=false; lbl2.Visible:=false; lbl3.Visible:=false;       lbl4.Visible:=false;
    FPTemplate:=FPRegister.Template as DPFPShrXLib_TLB.DPFPTemplate;
    breginprogress:=false;  //stop registration process, enable verification

    //Before saving data to database you will need to get the raw data    (variant)
    try
    vrnt:=FPTemplate.Serialize;  //raw data is now stored in this variant


    aryLow:=VarArrayLowBound(vrnt,1);
    aryHigh:=varArrayHighBound(vrnt,1);
    aryHigh:=aryHigh-aryLow;

    vtByteBuf:=VarArrayLock(vrnt);  //lock down the array

    for loopIndex := 0 to aryHigh - 1 do
           fpData[loopIndex]:=vtByteBuf[loopIndex];

    VarArrayUnlock(vrnt);
    //Save fpData to database here
    //Database logic is not provided here.  Plenty examples on web on
    //How to save a byte array (binary data) to database.
    SaveFP;
    except
    on E: Exception do showmessage('Trouble saving data');

    end;
end;
end;
end;

//This is the pysical save
procedure TForm1.SaveFP;
var
tptStream: TMemoryStream;
p: Pointer;
begin
MemberTbl.Insert;
MemberTbl.FieldByName('MemberName').AsString := NameEdit.Text;

tptStream := TMemoryStream.Create();
tptStream.Position := 0;
p := VarArrayLock(vrnt);
tptStream.Write(p^, VarArrayHighBound(vrnt, 1));
VarArrayUnlock(vrnt);
(MemberTbl.FieldByName('MemberFP') as  BlobField).LoadFromStream(tptStream);
MemberTbl.Post;
tptStream.Free();
end;
4

1 回答 1

1

我为 DigitalPersona One Touch for Windows SDK 版本 1.6.1（2010 年 8 月）创建了一个组件包装器

我已经使用 DigitalPersona U.are.U 4000B 阅读器对其进行了测试，但根据文档，它也应该与 DigitalPersona U.are.U 4500 阅读器一起使用

您可以在这里查看并下载组件

然后你可以在OnCaptured事件处理程序上添加这样的代码：

procedure TForm1.DPFingerPrintReader1Captured(Reader: TDPFingerPrintReader; FingerComparer: IFingerComparer);
var
  LFingerPrintField: TField;
begin
    LFingerPrintField := YourDataSet.FieldByName('FingerPrintField');
    while not YourDataSet.Eof do
    begin
      if FingerComparer.CompareTo(LFingerPrintField.AsString) then
      begin
        ShowMessage('Found');
        Exit;
      end;
      YourDataSet.Next;
    end;    
    ShowMessage('NOT Found');
end;
于 2016-03-05T16:30:21.877 回答