Delphi XE7Android应用启用蓝牙

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi midstr 返回指定范围内的字符串

Delphi之声音资源(*.res)的编译方法

Delphi 内存修改的实现

Delphi 判断文件是否被使用

indy10下的tidhttp控件获取源码乱码的解决方法

Delphi combobox 只读 text属性可用的方法

Delphi 如何通过进程句柄判断该进程是否已退出？

Delphi 单元文件结构

webbrowser点击没有id和name的按钮或链接

firemonkey使用android的路径信息

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

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