DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: maxding
今日帖子: 36
在线用户: 6
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 emailx45 (emailx45) ▲▲▲▲△ -
普通会员
2023/5/23 23:59:36
标题:
How to use TBioMetricAuth component FMX in Android project by Emailx45 浏览:790
加入我的收藏
楼主: 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
----------------------------------------------
-我的博客
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行62.5毫秒 RSS