Delphi XE7上启用Android蓝牙

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

cnpack sqlite tool 2.04

Delphi 通过http获取软件版本

Delphi xe 下打开内存泄漏调试功能

Delphi 如何屏蔽alt+f4

Delphi 解析json生成json

Delphi编写提取exe文件的ico图标

Delphi psafearray与tbytes类型转换

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

Delphi 获取所有窗口标题

Delphi idhttp 设置cookie 和访问后读取cookie 值

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE7上启用Android蓝牙