Delphi XE7でAndroidのBluetoothを有効にする

Delphi XE7でAndroidのBluetoothが有効にするコード。

uses
  Androidapi.JNI.Bluetooth;

procedure TForm2.Button2Click(Sender: TObject);
var
  Adapter: JBluetoothAdapter;
begin
  Adapter := TJBluetoothAdapter.JavaClass.getDefaultAdapter;
  if Adapter.enable then
    ShowMessage('Bluetoothを有効にしました')
  else
    ShowMessage('有効にできませんでした');
end;

bt02

コメントを残す

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