Delphi XE7中蓝牙 Bluetooth例子的使用

打算用xe7写个简单的蓝牙程序，作为遥控，但是delphi xe7中自带的程序安装到手机后并没有办法正常使用，例程位于目录‘\Embarcadero\Studio\15.0\Samples\Object Pascal\Mobile Samples\Device Sensors and Services\Bluetooth\Classic Bluetooth Basic app’。

如果直接安装到手机会出现如下报错：...socket might closed or timeout...

此时需要修改两个部分：1.将下图中的蓝牙部分设置为true；

2.将程序部分的UUID改为：ServiceGUI = '{00001101-0000-1000-8000-00805F9B34FB}'；//这是蓝牙串口的UUID

原来是:ServiceGUI = ‘{B62C4E8D-62CC-404B-BBBF-BF3E3BBB1378}'; //此UUID需要修改