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两个取字串长度的函数strlen,length

Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名

Delphi有关asqlite控件支持中文路径的解决方案

Delphi 使控件变成圆角的方法

Delphi tstringlist stringlist的特殊用法

Delphi if pos 多条件判断用法交流

Delphi datasanp的控制老大-dsserver

Delphi 如何按下esc键退出程序

Delphi d10.x安卓app开发中简单使用原生toast

Delphi 通过注册表获取系统版本和cpu型号

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...