|
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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论