频道分类

delphi 安卓蓝牙动态权限

作者:admin 来源: 日期:2020/3/6 0:12:43 人气: 标签:

 
安卓蓝牙动态权限

安卓7.0及以下版本

在 IDE 的 Project - Options 菜单弹出来的窗口里面,找到左边树结构的: Application -- Uses Permissions 项目,则右边会出来一堆权限让你打勾。这里要勾选上 Bluetooth 和 Bluetooth admin 两项。
老的安卓版本,勾选这两项就可以了。
安卓8.0及以上版本,还需要运行期用代码动态申请权限。
代码里面:
首先要实现一个函数:
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;
  

到这里,APP 使用手机的 BLE 的权限问题才搞定。
奇怪的是,因为这里是使用的“定位”权限,APP 运行时,会弹出窗口询问用户,APP要使用定位权限,是否允许。用户允许后,的确可以使用 BLE 了。同样的测试手机,如果我不去做动态权限申请,直接调用 BLE 的相关功能,没有任何提示,但 BLE 的相关功能的确出不来。
难道没有单独的【蓝牙】权限?给用户一个定位权限的提示,用于打开蓝牙,有点奇怪。

来源:https://www.cnblogs.com/hnxxcxg/p/12114403.html

上一篇:delphi bintohex和hextobin下一篇:没有资料