FingerPrint.OnIdentify := DoIdentify;
FingerPrint.Identify;
procedure TForm1.DoIdentify(Sender: TObject;
const aUnitId: Integer;
const aIdentity: WINBIO_IDENTITY;
const aSubFactor: WINBIO_BIOMETRIC_SUBTYPE;
const aRejectDetail: WINBIO_REJECT_DETAIL);
begin
case aIdentity._Type of
WINBIO_ID_TYPE_SID:
vId := aIdentity.AccountSid.Data;
WINBIO_ID_TYPE_GUID:
vId := aIdentity.TemplateGuid.Guid;
end;
end;
uses
sgcBiometrics;
FingerPrint.OnEnrollCommit := DoEnrollCommit;
FingerPrint.EnrollBiometric(
WINBIO_ANSI_381_POS_RH_INDEX_FINGER);
procedure TForm1.DoEnrollCommit(Sender: TObject;
const aIdentity: WINBIO_IDENTITY;
aIsNewTemplate: Boolean);
begin
if aIsNewTemplate then
DoLog('New template committed.')
else
DoLog('Template updated.');
end;
uses
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
if Facial.FacialRecognize then
DoLog('#Recognized');
end
else if Facial.FacialRecognize then
DoLog('#Recognized');
end;
procedure TFRMFacial.FacialError(Sender: TObject;
const aError: string; const aCode: Integer);
begin
DoLog('Error: ' + aError + ' [' + IntToStr(aCode) + ']');
end;