Delphi XE7でAndroidのBluetoothが有効か無効かを調べる

Delphi XE7でAndroidのBluetoothが有効か無効かを調べるコード。

uses
  Androidapi.JNI.Bluetooth;

procedure TForm2.Button1Click(Sender: TObject);
var
  Adapter: JBluetoothAdapter;
begin
  Adapter := TJBluetoothAdapter.JavaClass.getDefaultAdapter;
  if Adapter.isEnabled then
    ShowMessage('Bluetoothは有効です。')
  else
    ShowMessage('Bluetoothは無効です。');
end;

bt01

コメントを残す

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