BluetoothLE - не проходит событие "OnCharacteristicRead"

https://forum.fgx-native.com/tickets/opened/%D0%BE%D1%88%D0%B8%D0%B1%D0%BA%D0%B8/bluetoothle-%D0%BD%D0%B5-%D0%BF%D1%80%D0%BE%D1%85%D0%BE%D0%B4%D0%B8%D1%82-%D1%81%D0%BE%D0%B1%D1%8B%D1%82%D0%B8%D0%B5-oncharacteristicread-r438/

Followers

Message added by Viktor Akselrod, April 10Apr 10

Please be aware that these comments were copied here from another source and that the date and time shown for each comment may not be accurate.

Status: Fixed
Priority: Normal
Resolution: Fixed
Platform: Android
Affects version: 1.18.12.0

Delphi 12.3, компонент BluetoothLE1. Работаю с устройством по BLE.

1. Обнаруживаю доступные устройства, 2. Подключаюсь к сервисам устройства, 3. Получаю характеристики, 4. Подписываюсь на характеристику для чтения.

5. Пишу команду в характеристику для записи, ответ от устройства в событии "OnCharacteristicRead" не приходит.

Делал по стандартному FMX примеру "HeartRateMonitor". Работает.

Создал новый проект на FGX 1.18.11.0, разместил компонент BluetoothLE1. Устройство обнаруживается, сервисы, характеристики доступны,

подписка на характеристику для чтения проходит с результатом True. Но вот когда идёт передача от устройства, событие "OnCharacteristicRead" не срабатывает.

Подключены System.Bluetooth, System.Bluetooth.Components. Пробовал добавлять заголовочный файл Android.Api.Hardware.Bluetooth.

Что можно попробовать ещё, RTL, мосты?

FGX проект:

unit Form.Main;

interface

{$SCOPEDENUMS ON}

uses
  System.Types, System.Classes, FGX.Forms, FGX.Forms.Types, FGX.Controls, FGX.Controls.Types, FGX.Layout, 
  FGX.Layout.Types, FGX.NavigationBar.Types, FGX.NavigationBar, FGX.DrawerLayout, FGX.StaticLabel,
  System.Bluetooth,
  System.Bluetooth.Components,
  System.Permissions,
  FGX.Button.Types, FGX.Button, FGX.Switch;

type
  TFormMain = class(TfgForm)
    fgDrawerLayout1: TfgDrawerLayout;
    fgNavigationBar: TfgNavigationBar;
    fgLabel2: TfgLabel;
    BluetoothLE1: TBluetoothLE;
    btDevices: TfgButton;
    loDevice: TfgLayout;
    loDeviceName: TfgLayout;
    lbDeviceName: TfgLabel;
    loDeviceSwitch: TfgLayout;
    fgSwitch: TfgSwitch;
    fgSend: TfgButton;
    procedure btDevicesTap(Sender: TObject);
    procedure BluetoothLE1EndDiscoverDevices(const Sender: TObject;
      const ADeviceList: TBluetoothLEDeviceList);
    procedure fgSendTap(Sender: TObject);
    procedure BluetoothLE1CharacteristicWrite(const Sender: TObject;
      const ACharacteristic: TBluetoothGattCharacteristic;
      AGattStatus: TBluetoothGattStatus);
    procedure BluetoothLE1CharacteristicRead(const Sender: TObject;
      const ACharacteristic: TBluetoothGattCharacteristic;
      AGattStatus: TBluetoothGattStatus);

  private const
    LOCATION_PERMISSION = 'android.permission.ACCESS_FINE_LOCATION';
    BLUETOOTH_SCAN_PERMISSION = 'android.permission.BLUETOOTH_SCAN';
    BLUETOOTH_CONNECT_PERMISSION = 'android.permission.BLUETOOTH_CONNECT';

  private
    { Private declarations }
    FBLEDevice: TBluetoothLEDevice;

    FGattService: TBluetoothGattService;
    FCharacteristic_UUID_RX: TBluetoothGattCharacteristic;
    FCharacteristic_UUID_TX: TBluetoothGattCharacteristic;

    procedure GetServiceAndCharacteristics;


  public
    { Public declarations }
  end;

const
  SERVICE_UUID : TGUID =           '{6E400001-B5A3-F393-E0A9-E50E24DCCA9E}';   { UUID для BLE }
  CHARACTERISTIC_UUID_TX : TGUID = '{6E400003-B5A3-F393-E0A9-E50E24DCCA9E}';
  CHARACTERISTIC_UUID_RX : TGUID = '{6E400002-B5A3-F393-E0A9-E50E24DCCA9E}';

var
  FormMain: TFormMain;

implementation

{$R *.xfm}

uses
  System.SysUtils, FGX.Application, FGX.Dialogs, FGX.Toasts, FGX.Log,
  Android.Api.Hardware.Bluetooth;

{******************************************************************************}

procedure TFormMain.btDevicesTap(Sender: TObject);
var
  Permissions: TArray<string>;
begin
  if TOSVersion.Check(12) then
    Permissions := [LOCATION_PERMISSION, BLUETOOTH_SCAN_PERMISSION, BLUETOOTH_CONNECT_PERMISSION]
  else
    Permissions := [LOCATION_PERMISSION];

  PermissionsService.RequestPermissions(Permissions,
    procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray) begin
      if ((Length(AGrantResults) = 3) and (AGrantResults[0] = TPermissionStatus.Granted)
                                      and (AGrantResults[1] = TPermissionStatus.Granted)
                                      and (AGrantResults[2] = TPermissionStatus.Granted)) or
         ((Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted)) then
      BluetoothLE1.DiscoverDevices(2500)   { Запускаем поиск устройств }
      else
        TfgDialogs.ShowMessage('Cannot start BLE scan because not all required permissions have been granted!');
    end);
end;

{******************************************************************************}

procedure TFormMain.BluetoothLE1EndDiscoverDevices(const Sender: TObject;
  const ADeviceList: TBluetoothLEDeviceList);
var
  i: Integer;
begin
  for i := 0 to ADeviceList.Count - 1 do
    if Pos('CLMASTER', ADeviceList[i].DeviceName) > 0 then begin
      lbDeviceName.Text := ADeviceList[i].DeviceName;   { Отображаем Имя устройства }

      fgSwitch.Visible := True;

      FBLEDevice := BluetoothLE1.DiscoveredDevices[I];
      FBLEDevice.Connect;

      FBLEDevice.DiscoverServices;
      if BluetoothLE1.GetServices(FBLEDevice).Count = 0 then
        TfgToastFactory.Show('No services found!')
      else
        GetServiceAndCharacteristics;
    end;
end;

{******************************************************************************}

procedure TFormMain.GetServiceAndCharacteristics;
var
  i, j, k: Integer;
begin
  for i := 0 to FBLEDevice.Services.Count - 1 do begin
    fgNavigationBar.Title := FBLEDevice.Services[I].UUIDName + ' : ' + FBLEDevice.Services[I].UUID.ToString;
    for j := 0 to FBLEDevice.Services[I].Characteristics.Count - 1 do begin
      fgNavigationBar.Title := '--> ' + FBLEDevice.Services[I].Characteristics[J].UUIDName + ' : ' +
                      FBLEDevice.Services[I].Characteristics[J].UUID.ToString;
      for k := 0 to FBLEDevice.Services[I].Characteristics[J].Descriptors.Count - 1 do begin
        fgNavigationBar.Title := '----> ' + FBLEDevice.Services[I].Characteristics[J].Descriptors[K].UUIDName + ' : ' +
                      FBLEDevice.Services[I].Characteristics[J].Descriptors[K].UUID.ToString;
      end;
    end;
  end;

  FGattService := nil;
  FCharacteristic_UUID_RX := nil;
  FCharacteristic_UUID_TX := nil;

  FGattService := BluetoothLE1.GetService(FBLEDevice, SERVICE_UUID);
  if FGattService <> nil then begin
    FCharacteristic_UUID_TX := BluetoothLE1.GetCharacteristic(FGattService, CHARACTERISTIC_UUID_TX);
    FCharacteristic_UUID_RX := BluetoothLE1.GetCharacteristic(FGattService, CHARACTERISTIC_UUID_RX);

    fgSwitch.Enabled := True;
    fgSwitch.IsChecked := True;
  end
  else
    TfgToastFactory.Show('Service not found!');

  if FCharacteristic_UUID_TX <> nil then begin
    if BluetoothLE1.SubscribeToCharacteristic(FBLEDevice, FCharacteristic_UUID_TX) = True then
      fgNavigationBar.Title := 'Подписались UUID_TX'
  end;
end;

{******************************************************************************}

procedure TFormMain.fgSendTap(Sender: TObject);
var
  LBytes : TArray<byte>;
begin
                                { $   C    I    R  }
  LBytes := TArray<byte>.Create($24, $43, $49, $52, $0D, $0A);

  BluetoothLE1.GetCharacteristic(FGattService, Characteristic_UUID_RX).SetValueAsString(TEncoding.ANSI.GetString(LBytes));
  FBLEDevice.WriteCharacteristic(BluetoothLE1.GetCharacteristic(FGattService, Characteristic_UUID_RX));
end;

{******************************************************************************}

procedure TFormMain.BluetoothLE1CharacteristicWrite(const Sender: TObject;
  const ACharacteristic: TBluetoothGattCharacteristic;
  AGattStatus: TBluetoothGattStatus);
begin
  if FBLEDevice.RequestMtu(517) = True then fgNavigationBar.Title := 'RequestMtu = 517';
end;

{******************************************************************************}

procedure TFormMain.BluetoothLE1CharacteristicRead(const Sender: TObject;
  const ACharacteristic: TBluetoothGattCharacteristic;
  AGattStatus: TBluetoothGattStatus);
begin
  fgNavigationBar.Title := 'Read!!!';
  if AGattStatus = TBluetoothGattStatus.Success then
    fgNavigationBar.Title := 'Read Success!!!';
end;

{******************************************************************************}

end.

Работающий пример на FMX:

Fix version: 1.18.13.0

Followers

User Feedback

11 Comments

Recommended Comments

Yaroslav Brovin

Administrators

April 10Apr 10

Administrators

Добрый вечер,

Есть возможность прикрепить проект?

Александр Клопоцкий

Active subscription

April 10Apr 10

CL2.rar

Александр Клопоцкий

Active subscription

April 10Apr 10

HeartRateMonitor.rar

Yaroslav Brovin

Administrators

April 10Apr 10

Administrators

@Viktor Akselrod пробежался глазами и не увидел пока видимых проблем. Будет изучать внимательнее.

В заголовочном файле Android.Api.Hardware.Bluetooth.pas посмотрел поиском:
1. GetServices - функция Есть.
2. GetCharacteristic - функция Есть.
3. WriteCharacteristic - функция Есть.
4. RequestMtu - функция Есть.
5. SubscribeToCharacteristic - Нет !!!

Этой функцией подписываемся на характеристику. Может она не проходит вовне?

Yaroslav Brovin

Administrators

April 10Apr 10

Administrators

Модуль Android.Api.Hardware.Bluetooth никаким образом не связан с реализацией блютуса в RTL. System.Bluetooth, System.Bluetooth.Components используют для своей реализации заголовочные файлы из RTL Android API.

Александр Клопоцкий

Active subscription

April 10Apr 10

Создал чистый FMX проект. Перенес код из FGX проекта в FMX. Ничего лишнего.

targetSdkVersion = 35, Uses Premitions те же. В FMX работает,

приходит событие "OnCharacteristicRead".

Рабочий проект на FMX:

CL2_FMX.rar

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.Controls.Presentation, FMX.StdCtrls,
  System.Bluetooth,
  System.Bluetooth.Components,
  System.Permissions;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    btDevices: TButton;
    btSend: TButton;
    lbDeviceName: TLabel;
    BluetoothLE1: TBluetoothLE;
    procedure btDevicesClick(Sender: TObject);
    procedure BluetoothLE1EndDiscoverDevices(const Sender: TObject;
      const ADeviceList: TBluetoothLEDeviceList);
    procedure btSendClick(Sender: TObject);
    procedure BluetoothLE1CharacteristicWrite(const Sender: TObject;
      const ACharacteristic: TBluetoothGattCharacteristic;
      AGattStatus: TBluetoothGattStatus);
    procedure BluetoothLE1CharacteristicRead(const Sender: TObject;
      const ACharacteristic: TBluetoothGattCharacteristic;
      AGattStatus: TBluetoothGattStatus);

  private const
    LOCATION_PERMISSION = 'android.permission.ACCESS_FINE_LOCATION';
    BLUETOOTH_SCAN_PERMISSION = 'android.permission.BLUETOOTH_SCAN';
    BLUETOOTH_CONNECT_PERMISSION = 'android.permission.BLUETOOTH_CONNECT';

  private
    { Private declarations }
    FBLEDevice: TBluetoothLEDevice;

    FGattService: TBluetoothGattService;
    FCharacteristic_UUID_RX: TBluetoothGattCharacteristic;
    FCharacteristic_UUID_TX: TBluetoothGattCharacteristic;

    procedure GetServiceAndCharacteristics;

  public
    { Public declarations }
  end;


const
  SERVICE_UUID : TGUID =           '{6E400001-B5A3-F393-E0A9-E50E24DCCA9E}';   { UUID для BLE }
  CHARACTERISTIC_UUID_TX : TGUID = '{6E400003-B5A3-F393-E0A9-E50E24DCCA9E}';
  CHARACTERISTIC_UUID_RX : TGUID = '{6E400002-B5A3-F393-E0A9-E50E24DCCA9E}';

var
  Form1: TForm1;

implementation

{$R *.fmx}

{******************************************************************************}

procedure TForm1.btDevicesClick(Sender: TObject);
var
  Permissions: TArray<string>;
begin
  if TOSVersion.Check(12) then
    Permissions := [LOCATION_PERMISSION, BLUETOOTH_SCAN_PERMISSION, BLUETOOTH_CONNECT_PERMISSION]
  else
    Permissions := [LOCATION_PERMISSION];

  PermissionsService.RequestPermissions(Permissions,
    procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray) begin
      if ((Length(AGrantResults) = 3) and (AGrantResults[0] = TPermissionStatus.Granted)
                                      and (AGrantResults[1] = TPermissionStatus.Granted)
                                      and (AGrantResults[2] = TPermissionStatus.Granted)) or
         ((Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted)) then
      BluetoothLE1.DiscoverDevices(2500)   { Запускаем поиск устройств }
      else
        Label1.Text := 'Cannot start BLE scan because not all required permissions have been granted!';
    end);
end;

{******************************************************************************}

procedure TForm1.BluetoothLE1EndDiscoverDevices(const Sender: TObject;
  const ADeviceList: TBluetoothLEDeviceList);
var
  i: Integer;
begin
  for i := 0 to ADeviceList.Count - 1 do
    if Pos('CLMASTER', ADeviceList[i].DeviceName) > 0 then begin
      lbDeviceName.Text := ADeviceList[i].DeviceName;   { Отображаем Имя устройства }

      FBLEDevice := BluetoothLE1.DiscoveredDevices[I];
      FBLEDevice.Connect;

      FBLEDevice.DiscoverServices;
      if BluetoothLE1.GetServices(FBLEDevice).Count = 0 then
        Label1.Text := 'No services found!'
      else
        GetServiceAndCharacteristics;
    end;
end;

{******************************************************************************}

procedure TForm1.GetServiceAndCharacteristics;
var
  i, j, k: Integer;
begin
  for i := 0 to FBLEDevice.Services.Count - 1 do begin
    Label1.Text := FBLEDevice.Services[I].UUIDName + ' : ' + FBLEDevice.Services[I].UUID.ToString;
    for j := 0 to FBLEDevice.Services[I].Characteristics.Count - 1 do begin
      Label1.Text := '--> ' + FBLEDevice.Services[I].Characteristics[J].UUIDName + ' : ' +
                      FBLEDevice.Services[I].Characteristics[J].UUID.ToString;
      for k := 0 to FBLEDevice.Services[I].Characteristics[J].Descriptors.Count - 1 do begin
        Label1.Text := '----> ' + FBLEDevice.Services[I].Characteristics[J].Descriptors[K].UUIDName + ' : ' +
                      FBLEDevice.Services[I].Characteristics[J].Descriptors[K].UUID.ToString;
      end;
    end;
  end;

  FGattService := nil;
  FCharacteristic_UUID_RX := nil;
  FCharacteristic_UUID_TX := nil;

  FGattService := BluetoothLE1.GetService(FBLEDevice, SERVICE_UUID);
  if FGattService <> nil then begin
    FCharacteristic_UUID_TX := BluetoothLE1.GetCharacteristic(FGattService, CHARACTERISTIC_UUID_TX);
    FCharacteristic_UUID_RX := BluetoothLE1.GetCharacteristic(FGattService, CHARACTERISTIC_UUID_RX);
  end
  else
    Label1.Text := 'Service not found!';

  if FCharacteristic_UUID_TX <> nil then begin
    if BluetoothLE1.SubscribeToCharacteristic(FBLEDevice, FCharacteristic_UUID_TX) = True then
      Label1.Text := 'Подписались UUID_TX';
  end;
end;

{******************************************************************************}

procedure TForm1.btSendClick(Sender: TObject);
var
  LBytes : TArray<byte>;
begin
                                { $   C    I    R  }
  LBytes := TArray<byte>.Create($24, $43, $49, $52, $0D, $0A);

  BluetoothLE1.GetCharacteristic(FGattService, Characteristic_UUID_RX).SetValueAsString(TEncoding.ANSI.GetString(LBytes));
  FBLEDevice.WriteCharacteristic(BluetoothLE1.GetCharacteristic(FGattService, Characteristic_UUID_RX));
end;

{******************************************************************************}

procedure TForm1.BluetoothLE1CharacteristicWrite(const Sender: TObject;
  const ACharacteristic: TBluetoothGattCharacteristic;
  AGattStatus: TBluetoothGattStatus);
begin
  if FBLEDevice.RequestMtu(517) = True then Label1.Text := 'RequestMtu = 517';
end;

{******************************************************************************}

procedure TForm1.BluetoothLE1CharacteristicRead(const Sender: TObject;
  const ACharacteristic: TBluetoothGattCharacteristic;
  AGattStatus: TBluetoothGattStatus);
begin
  Label1.Text := 'Read!!!';
  if AGattStatus = TBluetoothGattStatus.Success then
    Label1.Text := 'Read Success!!!';
end;

{******************************************************************************}

end.

Александр Клопоцкий

Active subscription

April 10Apr 10

Еще раз создал чистый проект на FGX, без тем, ключей. Перенес код из FMX.

Не работает, не возвращается событие "OnCharacteristicRead".

CL2_Test.rar

Yaroslav Brovin

Administrators

April 10Apr 10

Administrators

Добрый день,

2 hours ago, Александр Клопоцкий said:

Еще раз создал чистый проект на FGX, без тем, ключей. Перенес код из FMX.

Не работает, не возвращается событие "OnCharacteristicRead".

Это очень хорошее и полезное наблюдение! Попробуйте обновить java часть FGX Native и проверить еще раз (Файлы только для 12.3).

fgx.core.zip -> {app}\Libs\Common\Android\Debug\aar
fgx.core.zip -> {app}\Libs\Common\Android\Release\aar

{app} - место установки FGX Native.

Александр Клопоцкий

Active subscription

April 10Apr 10

Работает! Спасибо! Обновил java часть FGX Native.

Viktor Akselrod

Administrators

April 10Apr 10

Administrators

Changed Status to Fixed

Changed Resolution to Fixed

Changed Fix version to 1.18.13.0

Create an account or sign in to comment

No registered users viewing this page.

Sign In

BluetoothLE - не проходит событие "OnCharacteristicRead"

User Feedback

Recommended Comments

Yaroslav Brovin

Александр Клопоцкий

Александр Клопоцкий

Yaroslav Brovin

Александр Клопоцкий

Yaroslav Brovin

Александр Клопоцкий

Александр Клопоцкий

Yaroslav Brovin

Александр Клопоцкий

Viktor Akselrod

Create an account or sign in to comment

Recently Browsing 0

Account

Navigation

Search