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;
権限はプロジェクトのオプション画面で設定します。