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

Delphi XE7でAndroidのBluetoothを有効にするように促すコード。

uses
  Androidapi.JNI.Bluetooth,
  Androidapi.Helpers,
  Androidapi.JNI.GraphicsContentViewText;

procedure TForm2.Button4Click(Sender: TObject);
var
  Intent: JIntent;
begin
  Intent := TJIntent.Create;
  Intent.setAction(TJBluetoothAdapter.JavaClass.ACTION_REQUEST_ENABLE);
  SharedActivity.startActivity(Intent);
end;

bt03

コメントを残す

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