Delphi 开发 Android APP 的 BLE 蓝牙的动态权限

44 篇文章 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;

到这里,APP 使用手机的 BLE 的权限问题才搞定。

奇怪的是,因为这里是使用的“定位”权限,APP 运行时,会弹出窗口询问用户,APP要使用定位权限,是否允许。用户允许后,的确可以使用 BLE 了。同样的测试手机,如果我不去做动态权限申请,直接调用 BLE 的相关功能,没有任何提示,但 BLE 的相关功能的确出不来。

难道没有单独的【蓝牙】权限?给用户一个定位权限的提示,用于打开蓝牙,有点奇怪。

Android BLE是指Android系统支持的低功耗蓝牙BLE)技术。在使用BLE技术前,需要动态申请相关权限,以保障用户的隐私和系统的安全。以下是一段常用的申请权限代码: ``` private static final int REQUEST_ENABLE_BT = 1; private static final int PERMISSION_REQUEST_COARSE_LOCATION = 2; private BluetoothAdapter mBluetoothAdapter = BluetoothAdapter.getDefaultAdapter(); //检查是否开启蓝牙,如果没开启则请求开启蓝牙 if (mBluetoothAdapter == null || !mBluetoothAdapter.isEnabled()) { Intent enableBtIntent = new Intent(BluetoothAdapter.ACTION_REQUEST_ENABLE); startActivityForResult(enableBtIntent, REQUEST_ENABLE_BT); } //检查是否具有位置信息权限,如果没有则请求位置权限 if (ContextCompat.checkSelfPermission(this, Manifest.permission.ACCESS_COARSE_LOCATION) != PackageManager.PERMISSION_GRANTED) { ActivityCompat.requestPermissions(this, new String[]{Manifest.permission.ACCESS_COARSE_LOCATION}, PERMISSION_REQUEST_COARSE_LOCATION); } //位置权限请求结果处理 @Override public void onRequestPermissionsResult(int requestCode, String permissions[], int[] grantResults) { switch (requestCode) { case PERMISSION_REQUEST_COARSE_LOCATION: { if (grantResults.length > 0 && grantResults[0] == PackageManager.PERMISSION_GRANTED) { //授权成功 } else { //授权失败 } return; } } } ``` 以上代码中,首先检查是否开启蓝牙,如果没开启则请求开启蓝牙;其次,检查是否具有位置信息权限,如果没有则请求位置权限;最后,处理位置权限请求结果。这段代码可以保证在使用BLE技术前,权限已被正确申请
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值