Delphi XE7检查Android蓝牙权限

本文整理自网络，侵删。

 
uses
  Androidapi.Helpers,
  Androidapi.JNI.GraphicsContentViewText;

procedure TForm2.Button3Click(Sender: TObject);
  function HasPermission(const Permission: string): Boolean;
  begin
    Result := SharedActivityContext.checkCallingOrSelfPermission(StringToJString(Permission)) = TJPackageManager.JavaClass.PERMISSION_GRANTED
  end;

begin
  // Bluetooth蓝牙通讯
  if HasPermission('android.permission.BLUETOOTH') then
    ShowMessage('有Bluetooth的通信使用权限')
  else
    ShowMessage('没有使用蓝牙的通信权限');

  // Bluetooth?O定?涓?
  if HasPermission('android.permission.BLUETOOTH_ADMIN') then
    ShowMessage('有变更蓝牙设定的权限')
  else
    ShowMessage('没有修改蓝牙设置的权限');
end;

记得给蓝牙权限。

 

相关阅读 >>

Delphi firemonkey应用程序取得控制的位置(坐标)的话

Delphi中判断一个字符串是否为数字

Delphi 打包文件到apk安装包中

Delphi 用内存流文件流资源生成客户端

Delphi动态创建一个ipedit控件

Delphi xe7 取得进程占用内存的两个函数

Delphi 日期相减 比较大小 过期时间函数

Delphi getfilesize 获取文件大小 2

Delphi adoquery添加用户及密码

Delphi 安卓添加资源图片并读取

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE7检查Android蓝牙权限