盒子论坛 v2.1

How to use TBioMetricAuth component FMX Android project by Emailx45

1) Needs 2 permissions involved:
.....USE_BIOMETRIC = new IDEs
.....USE_FINGERPRINT = if older (deprecated in new IDEs)

2) Project->Options:
.....Entitlement List -> Biometric Authorization Service
.....Permissions:
..........Use Biometric   (new IDE)
..........Use Fingerprint (older IDE, deprecated in new IDE)

3) TBiometricAuth component: mandatory choices:
.....BiometricAuth1.PromptDescription (mandatory)
.....BiometricAuth1.PromptTitle (mandatory)
.....BiometricAuth1.BiometricStrengths (mandatory)

4) Request/Rationale events from request permissions!
5) Biometric events if: success or failed!

on code:

var
  PermissionBiometric: TArray<string>;
//...
OnCreate Form:
----------
PermissionBiometric := ['android.permission.USE_BIOMETRIC']; // , 'android.permission.USE_FINGERPRINT'];  // NOT mandatory!!!
BiometricAuth1.PromptDescription := 'my description'; // mandatory
BiometricAuth1.PromptTitle       := 'my title'; // mandatory
BiometricAuth1.BiometricStrengths := [ TBiometricStrength.DeviceCredential  { ,  others... }]; // mandatory
//...
procedure TForm1.BiometricPermissionRequestResult(Sender: TObject; const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray);
begin
  // 2 permissions involved: USE_BIOMETRIC / USE_FINGERPRINT
  if (Length(AGrantResults) = 1 {2}) and (AGrantResults[0] = TPermissionStatus.Granted) then // and (AGrantResults[1] = TPermissionStatus.Granted) then
    BiometricAuth1.Authenticate;
  //...
end;
//...
procedure TForm1.Button1Click(Sender: TObject);
begin
  PermissionsService.RequestPermissions( { }
    PermissionBiometric,          { }
    BiometricPermissionRequestResult,    { }
    DisplayRationale);
end;
// ...
procedure TForm1.BiometricAuth1AuthenticateFail(Sender: TObject; const FailReason: TBiometricFailReason; const ResultMessage: string);
begin
  TDialogService.ShowMessage('Failed!');
end;

procedure TForm1.BiometricAuth1AuthenticateSuccess(Sender: TObject);
begin
  TDialogService.ShowMessage('Successed!');
end;
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

stacker (OOP才是王道)	★☆☆☆☆	-
	普通会员

2023/5/24 4:05:08

1楼：

See you here.
----------------------------------------------
-

作者：

bdl1 (bdl1)	▲▲▲▲▲	-
	普通会员

2023/5/24 10:49:42

2楼：

我转发了，多谢！
https://www.cnblogs.com/kinglandsoft/p/17427216.html
----------------------------------------------
-我的博客

信息

登陆以后才能回复