QuickStart
Bir kullanıcıyı yaklaşık on satırda doğrulayın
Sensörü çalıştırın, ardından iki sorudan birini sorun: bu beklenen kişi mi, yoksa bu kim? İkisi de doğrudan bir yanıt döndürür.
uses
SysUtils, Classes,
sgcBiometrics, sgcBiometrics_WinBio_Client,
sgcBiometrics_WinBio_Client_Facial;
procedure TFRMFacial.btnFacialRecognizeClick(Sender: TObject);
begin
if not Facial.SessionIsOpen then
begin
if Facial.InitializeSensors(10000) then
begin
if Facial.FacialRecognize then
DoLog('#Recognized');
end;
end
else
begin
if Facial.FacialRecognize then
DoLog('#Recognized');
end;
end;
InitializeSensors bir Boolean döndürür ve milisaniye cinsinden bir zaman aşımı alır. SessionIsOpen, zaten oturumu olan bir sensörde ikinci bir oturum açmanızı engeller. FacialRecognize, kameranın önündeki kişi eşleştiğinde True döndürür.
procedure TFRMFacial.btnFacialIdentifyClick(Sender: TObject);
begin
if not Facial.SessionIsOpen then
begin
if Facial.InitializeSensors(10000) then
DoLog('#Identified: ' + Facial.FacialIdentify)
end
else
DoLog('#Identified: ' + Facial.FacialIdentify);
end;
İki çağrı arasındaki fark sorudur. FacialRecognize "bu beklenen kişi mi" diye sorar ve bir Boolean döndürür. FacialIdentify "bu kim" diye sorar ve hesap tanımlayıcısını bir string olarak döndürür; kimse tanınmadığında boştur. İkisi de varsayılanı on saniye olan isteğe bağlı bir zaman aşımı alır.
procedure TFRMFacial.FacialError(Sender: TObject; const aError: string;
const aCode: Integer);
begin
DoLog('Error: ' + aError + ' [' + IntToStr(aCode) + ']');
end;
Diğer olaylar Windows Biometric Framework yapılarını taşır; bu nedenle parametre listeleri tipik bir Delphi olayından daha uzundur. OnVerify altı, OnIdentify dört parametre alır. Bunları yazmak yerine Object Inspector üzerinden oluşturun.
Üç sekmenin hepsi, ne olduğunu görmenizi sağlayan günlük çağrıları korunmuş olarak paketle gelen Demos\Facial\FFacial.pas demosundan alınmıştır. İkinci bir demo olan Demos\FingerPrint, kayıt, şablon yönetimi ve özel sensör havuzunu kapsar.