QuickStart
Verifieer een gebruiker, in ongeveer tien regels
Start de sensor op en stel dan een van twee vragen: is dit de verwachte persoon, of wie is dit? Beide geven direct een antwoord.
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 geeft een Boolean terug en neemt een time-out in milliseconden. SessionIsOpen voorkomt dat je een tweede sessie opent op een sensor die er al een heeft. FacialRecognize geeft True terug wanneer de persoon voor de camera overeenkwam.
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;
Het verschil tussen de twee aanroepen is de vraag. FacialRecognize vraagt "is dit de verwachte persoon" en geeft een Boolean terug. FacialIdentify vraagt "wie is dit" en geeft de accountidentificatie terug als string, leeg wanneer niemand is herkend. Beide nemen een optionele time-out die standaard tien seconden is.
procedure TFRMFacial.FacialError(Sender: TObject; const aError: string;
const aCode: Integer);
begin
DoLog('Error: ' + aError + ' [' + IntToStr(aCode) + ']');
end;
De andere gebeurtenissen bevatten Windows Biometric Framework-structuren, dus hun parameterlijsten zijn langer dan bij een gewone Delphi-gebeurtenis. OnVerify heeft zes parameters en OnIdentify vier. Genereer ze vanuit de Object Inspector in plaats van ze te typen.