Нужна помощь по TBluetooth

[Elijah777]

Мне нужно написать приложение, отслеживающее подключение устройства по Bluetooth.

Порядок такой:

1. Получение списка Bluetooth-устройств, типа EnumBluetoothDevices.
2. Выбор и запоминание нужного устройства.
3. Слушание событий этого устройства, типа OnDeviceConnect/OnDeviceDisconnect.

Есть компонент TBluetooth, но непонятно как с ним работать. Что можете посоветовать? Заранее спасибо.

[dimagl90]

Elijah777,

unit Unit1;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls, FMX.Bluetooth, FMX.Bluetooth.Components;

type
  TForm1 = class(TForm)
    BTPanel: TBluetooth;
    DeviceListBox: TListBox;
    ConnectButton: TButton;
    DisconnectButton: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ConnectButtonClick(Sender: TObject);
    procedure DisconnectButtonClick(Sender: TObject);
    procedure BTPanelDeviceConnected(Sender: TObject; const ADevice: IBluetoothDevice);
    procedure BTPanelDeviceDisconnected(Sender: TObject; const ADevice: IBluetoothDevice);
  private
    FSelectedDevice: IBluetoothDevice;
    procedure UpdateDeviceList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  UpdateDeviceList;

  // Подписка на события
  BTPanel.OnDeviceConnected := BTPanelDeviceConnected;
  BTPanel.OnDeviceDisconnected := BTPanelDeviceDisconnected;
end;

procedure TForm1.UpdateDeviceList;
var
  Devices: TArray<IBluetoothDevice>;
  Device: IBluetoothDevice;
begin
  DeviceListBox.Clear;
  Devices := BTPanel.BluetoothDevices;

  for Device in Devices do
    DeviceListBox.Items.Add(Device.DeviceName);
end;

procedure TForm1.ConnectButtonClick(Sender: TObject);
var
  SelectedIndex: Integer;
begin
  SelectedIndex := DeviceListBox.ItemIndex;
  if SelectedIndex >= 0 then
  begin
    FSelectedDevice := BTPanel.BluetoothDevices[SelectedIndex];
    BTPanel.Connect(FSelectedDevice);
  end
  else
    ShowMessage('Выберите устройство для подключения.');
end;

procedure TForm1.DisconnectButtonClick(Sender: TObject);
begin
  if Assigned(FSelectedDevice) then
  begin
    BTPanel.Disconnect(FSelectedDevice);
    FSelectedDevice := nil; // Сбрасываем выбранное устройство
  end;
end;

procedure TForm1.BTPanelDeviceConnected(Sender: TObject; const ADevice: IBluetoothDevice);
begin
  ShowMessage('Подключено: ' + ADevice.DeviceName);
end;

procedure TForm1.BTPanelDeviceDisconnected(Sender: TObject; const ADevice: IBluetoothDevice);
begin
  ShowMessage('Отключено: ' + ADevice.DeviceName);
end;

end.