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;
 

相关阅读 >>

Delphi idhttp post json 上传 php 接收

Delphi 修改快捷方式

Delphi 四舍五入取整函数

Delphi 动态添加资源文件

Delphi中让图片大小随timage控件大小变化

Delphi什么是thttpclient？

incyear：将一个tdatetime变量加减一定数量的年数

Delphi7 写过卡巴主动防御服务端

Delphi开发ie右键菜单扩展

Delphi 获取打开文件的pid

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

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