android蓝牙动态权限,安卓蓝牙动态权限-程序员宅基地

安卓蓝牙动态权限

安卓7.0及以下版本

在 IDE 的 Project - Options 菜单弹出来的窗口里面，找到左边树结构的： Application -- Uses Permissions 项目，则右边会出来一堆权限让你打勾。这里要勾选上 Bluetooth 和 Bluetooth admin 两项。

老的安卓版本，勾选这两项就可以了。

安卓8.0及以上版本，还需要运行期用代码动态申请权限。

代码里面：

首先要实现一个函数：

procedure RequestPermissionsResult(Sender: TObject; const APermissions: TArray; const AGrantResults: TArray);

这个函数是一个动态申请权限的结果的回调函数。

在启动 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; 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; const AGrantResults: TArray);

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 的相关功能的确出不来。

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

标签：RequestPermissionsResult,const,安卓,蓝牙,BLE,权限,procedure

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

本文链接：https://blog.csdn.net/weixin_29014237/article/details/117349120

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

linux下make menuconfig在什么目录,Linux kernel的 Makefile和Kconfig以及Make menuconfig的关系...-程序员宅基地

文章浏览阅读407次。熟悉内核的Makefile对开发设备驱动、理解内核代码结构都是非常重要的linux2.6内核Makefile的许多特性和2.4内核差别很大，在内核目录的documention/kbuild/makefiles.txt中有详细的说明。===1、内核Makefile概述Linux内核的Makefile分为5个部分： Makefile最顶层Makefile.config内核当前配置文件，编译时成为顶层M..._make menucofnig 要多久能安装完

CSS 游戏动画案例_css 动画游戏-程序员宅基地

文章浏览阅读318次。CSS 游戏动画图下载地址：http://www.aigei.com/s?q=%E4%BD%90&type=2d效果点击放技能<!DOCTYPE html><html> <head> <meta charset="UTF-8"> <title></title> <style type="text/css"> #d2{ width: 300px; height:_css 动画游戏

uos 序列号_统信UOS桌面操作系统 v20.1021 专业版镜像-程序员宅基地

文章浏览阅读9k次。uos来头不小，统一多方平台，整合各种资源做出来的国产系统，实际上是基于国产深度系统deepin二改的，实际上deepin也非常不错，经过这么一搞，用户量会更上一个台阶。和深度对大的区别就是，UOS系统的兼容性更好。官方介绍到，在近半年的时间里，UOS 开发团队与龙芯中科的系统软件研发团队强强联合、紧密合作，采用联合技术攻关模式，针对 Linux 内核、BIOS 固件、编译器、浏览器、图形驱动等多..._统信激活序列号

定积分分部积分典型例题_定积分证明题方法总结六篇-程序员宅基地

文章浏览阅读6.1k次，点赞2次，收藏19次。定积分证明题方法总结六篇定积分是历年数学的考查重点，其中定积分的证明是考查难点，同学们经常会感觉无从下手，小编特意为大家总结了定积分的计算方法，希望对同学们有帮助。篇一：定积分计算方法总结一、不定积分计算方法1. 凑微分法2. 裂项法3. 变量代换法1) 三角代换2) 根幂代换3) 倒代换4. 配方后积分5. 有理化6. 和差化积法7. 分部积分法(反、对、幂、指、三)8. 降幂法二、定积分的..._抽象函数分部积分练习

Spring cloud服务搭建_springcloud的搭建-程序员宅基地

文章浏览阅读604次。Spring cloud服务搭建一．如何使用Eureka注册服务1.搭建Maven父工程（1）在eclipse中新建一个maven project（2）勾选下图的框，点击下一步（3）填写父工程名称microservice-springcloud，注意packing一定要选择pom（3）完成后,在工程的pom.xml中添加Spring Cloud的版本依赖信息一定要添加以下配置，否则会报错2.搭建服务端工程（1）在父工程microservice-springcloud中，创建Mav_springcloud的搭建

2023常见Vue面试题（含答案）-程序员宅基地

文章浏览阅读4.3k次，点赞4次，收藏43次。vue是一个js的渐进式框架，简单，易用，灵活。_vue面试题