• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

DELPHI安卓动态权限申请

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

DELPHI安卓动态权限申请

安卓8.0以前的版本,只需要给静态权限就可以了,但安卓8.0及以后的版本,还需要运行期用代码动态申请权限。

下面以《蓝牙权限》为例,其他权限类似。

Delphi 10.3 社区版,提供的 Sample 里面有一个例子程序在:
C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\Bluetooth\BLEScanner
这个例子程序提供了打开 BLE 的时候的动态权限验证的例子代码。
首先,在 IDE 的 Project - Options 菜单弹出来的窗口里面,找到左边树结构的: Application -- Uses Permissions 项目,则右边会出来一堆权限让你打勾。这里要勾选上 Bluetooth 和 Bluetooth admin 两项。
老的安卓版本,勾选这两项就可以了。
新的安卓版本,还需要运行期用代码动态申请权限。
代码里面:
首先要实现一个函数:
procedure RequestPermissionsResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
这个函数是一个动态申请权限的结果的回调函数。
在启动 BLE 的时候,通过以下代码申请权限:
PermissionsService.RequestPermissions([FLocationPermission], RequestPermissionsResult, DisplayRationale);
上述的代码的 PermissionsService 是声明在 System.Permissions 里面的。
上述代码里面的 RequestPermissionsResult 就是前面的那个回调函数。它在这里被调用,而且还被填入参数。
上述代码里面的 FLocationPermission: string; 它来自:
procedure TForm6.FormCreate(Sender: TObject);
begin
{$IFDEF ANDROID} 
FLocationPermission := JStringToString(TJManifest_permission.JavaClass.ACCESS_COARSE_LOCATION);
{$ENDIF}
end;
上述代码里面用到的 JStringToString 要 Uses Androidapi.Helpers;
 
上述代码中还有一个 DisplayRationale 也是一个函数:
procedure TForm6.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
begin 
TDialogService.ShowMessage('We need to be given permission to discover BLE devices',   
procedure(const AResult: TModalResult)   
begin     
APostRationaleProc;   
end)
end;
 
在 RequestPermissionsResult 这个函数里面,判断是否通过权限,如果通过,才去调用蓝牙的方法。
procedure TForm6.RequestPermissionsResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin 
// 1 permissions involved: ACCESS_COARSE_LOCATION 
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then   
StartBLEDiscovery 
else   
TDialogService.ShowMessage('Cannot start BLE scan as the permission has not been granted');
end;


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
MATLAB 配置 Micro-Manager发布时间:2022-07-18
下一篇:
matlab的poly()函数发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap