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 xe10 创建匿名线程

Delphi多线程学习：多线程数据库查询（ado）

Delphi获取外部程序菜单并模拟点击菜单

Delphi中如何用一个按钮控制开与关两个状态

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi 防止程序重复打开运行

Delphi随机字符(密码生成)函数

Delphi 除法 "/" 与 div 的不同

Delphi systemparametersinfo 用法

Delphi中用拼音首字符序列来实现检索功能

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

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