用DELPHI XE10写个手机蓝牙代码

以下是一个简单的Delphi XE10程序，用于连接和通信与手机蓝牙设备。该程序使用了FMX组件，因此可以在Windows和Android平台上运行。

unit MainForm;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.ListBox, System.Bluetooth, FMX.Edit;

type
  TForm1 = class(TForm)
    ButtonScan: TButton;
    ButtonConnect: TButton;
    ButtonSend: TButton;
    ListBoxDevices: TListBox;
    Layout1: TLayout;
    EditMessage: TEdit;
    procedure ButtonScanClick(Sender: TObject);
    procedure ButtonConnectClick(Sender: TObject);
    procedure ButtonSendClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FAdapter: TBluetoothAdapter;
    FSocket: TBluetoothSocket;
    FDevice: TBluetoothDevice;
    FBuffer: TBytes;
    procedure DoBluetoothDiscoveryEnd(const Sender: TObject; const ADeviceList: TBluetoothDeviceList);
    procedure DoBluetoothSocketReceiveData(const Sender: TObject; const AData: TBytes);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FAdapter := TBluetoothAdapter.Create(nil);
  FBuffer := TBytes.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FBuffer := nil;
  FDevice := nil;
  FSocket.Free;
  FAdapter.Free;
end;

procedure TForm1.ButtonScanClick(Sender: TObject);
var
  LDevice: TBluetoothDevice;
begin
  ListBoxDevices.Clear;
  FAdapter.CancelDiscovery;
  FAdapter.StartDiscovery(1000);
  while FAdapter.CurrentDiscoveryState <> TBluetoothAdapterDiscoveryState.dsEnded do
    Application.ProcessMessages;
  for LDevice in FAdapter.PairedDevices do
    ListBoxDevices.Items.AddObject(LDevice.DeviceName, LDevice);
  for LDevice in FAdapter.LastDiscoveredDevices do
    ListBoxDevices.Items.AddObject(LDevice.DeviceName, LDevice);
end;

procedure TForm1.ButtonConnectClick(Sender: TObject);
begin
  if ListBoxDevices.ItemIndex >= 0 then
  begin
    FDevice := TBluetoothDevice(ListBoxDevices.Items.Objects[ListBoxDevices.ItemIndex]);
    FSocket := FDevice.CreateClientSocket('{00001101-0000-1000-8000-00805F9B34FB}', False);
    FSocket.OnReceiveData := DoBluetoothSocketReceiveData;
    FSocket.Connect;
    ButtonConnect.Enabled := False;
  end
  else
    ShowMessage('Please select a device to connect to.');
end;

procedure TForm1.ButtonSendClick(Sender: TObject);
begin
  if FSocket <> nil then
  begin
    FBuffer := TEncoding.UTF8.GetBytes(EditMessage.Text);
    FSocket.SendData(FBuffer);
  end;
end;

procedure TForm1.DoBluetoothDiscoveryEnd(const Sender: TObject; const ADeviceList: TBluetoothDeviceList);
begin
  ListBoxDevices.Clear;
end;

procedure TForm1.DoBluetoothSocketReceiveData(const Sender: TObject; const AData: TBytes);
begin
  FBuffer := FBuffer + AData;
  EditMessage.Text := TEncoding.UTF8.GetString(FBuffer);
end;

end.

这个程序使用了`TBluetoothAdapter`和`TBluetoothDevice`组件来扫描蓝牙设备并与之连接。`TBluetoothSocket`组件用于在蓝牙设备之间进行通信。在这个例子中，我们使用了RFCOMM协议（`{00001101-0000-1000-8000-00805F9B34FB}`）建立连接。

您可以使用`TEncoding`类将文本转换为字节数组，并使用`TBluetoothSocket.SendData`方法发送数据。在接收数据时，我们可以使用`TBluetoothSocket.OnReceiveData`事件处理程序来处理接收到的数据。

请注意，此程序仅用于演示目的。在实际应用程序中，您需要添加错误处理和异常处理代码，以确保您的应用程序在处理蓝牙设备时具有较高的可靠性和健壮性。