Delphi XE7でAndroidのBluetoothの権限を確認する

AndroidアプリケーションにBluetoothの権限があるかどうかを調べるコード。

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による通信の権限がありません');

  // Bluetoothの設定変更
  if HasPermission('android.permission.BLUETOOTH_ADMIN') then
    ShowMessage('Bluetoothの設定変更の権限があります')
  else
    ShowMessage('Bluetoothの設定変更の権限がありません');
end;

権限はプロジェクトのオプション画面で設定します。

bt04

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です