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 httpclient async异步获取网页代码

Delphi图片增加文字水印

Delphi 让label 始终在form的正中显示

Delphi调用百度语音识别服务

Delphi xe7组件tetheringmanager1发送消息

Delphi xe android 调试错误：connection closed gracefully

dbgrid导出excl表

Delphi dbnavigator1 删除时弹出确认对话框

Delphi 动态创建组件，单个创建、单个销毁

Delphi 屏幕取色

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

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