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 菜单d出来的窗口里面,找到左边树结构的: 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; 总结以上是内存溢出为你收集整理的DELPHI安卓动态权限申请全部内容,希望文章能够帮你解决DELPHI安卓动态权限申请所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)