delphi 读取蓝牙数据

在 Delphi 中读取蓝牙数据，可以使用 BluetoothLE 或 BluetoothSerial 组件。这里以 BluetoothSerial 组件为例，下面是一个简单的示例：

首先，在 Delphi 中创建一个新项目，然后将一个 TButton 控件和一个 TBluetoothSerial 组件添加到窗体中。

在 TButton 控件的 OnClick 事件中添加以下代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  BluetoothSerial1.Enabled := True; // 启用蓝牙串口功能
  BluetoothSerial1.DiscoverDevices; // 查找附近的蓝牙设备
end;

接下来，在 TBluetoothSerial 组件的 OnDeviceDiscovered 事件中添加以下代码：

procedure TForm1.BluetoothSerial1DeviceDiscovered(const Sender: TObject;
  const ADevice: TBluetoothDevice);
begin
  if ADevice.DeviceName = '你要连接的设备名称' then // 替换成你要连接的设备名称
  begin
    BluetoothSerial1.Connect(ADevice); // 连接蓝牙设备
  end;
end;

在 TBluetoothSerial 组件的 OnConnect 事件中添加以下代码：

procedure TForm1.BluetoothSerial1Connect(const Sender: TObject;
  const ADevice: TBluetoothDevice);
begin
  BluetoothSerial1.SendText('Hello, world!'); // 发送数据到蓝牙设备
end;

最后，在 TBluetoothSerial 组件的 OnDataReceived 事件中添加以下代码：

procedure TForm1.BluetoothSerial1DataReceived(const Sender: TObject;
  const AData: TArray<Byte>);
var
  S: string;
begin
  SetLength(S, Length(AData));
  Move(AData[0], S[1], Length(AData));
  Memo1.Lines.Add(S); // 在 Memo 控件中显示收到的数据
end;

至此，你就可以通过 Delphi 读取蓝牙数据了。当你点击按钮后，程序会查找附近的蓝牙设备，如果找到了你要连接的设备，则会自动连接并发送一条数据给设备。当设备发送数据过来时，程序会自动接收并在 Memo 控件中显示。