Delphi 10.4 社区版安卓下蓝牙的一个问题

原创于 2021-08-30 00:42:09 发布 · 682 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#android

Delphi 同时被 3 个专栏收录

153 篇文章

订阅专栏

FireMonkey

51 篇文章

订阅专栏

安卓

44 篇文章

订阅专栏

本文揭示了Delphi蓝牙控件中GetCharacteristic方法的bug，实验证明通过先循环查找再调用能避免nil结果。作者质疑其存在的必要性，认为可能是不必要的复杂性。

蓝牙控件有这么一个方法：

var

ACharacteristic: TBluetoothGattCharacteristic;

ACharacteristic := BluetoothLE1.GetCharacteristic(AService, My_Characteristic_ID);

但是，这个方法可能会返回 nil，不是这个 ACharacteristic 不存在，而是一个 bug。这个 bug 在 Delphi 10.3.3 社区版就存在，10.4 还在。

在执行上述方法获得一个 TBluetoothGattCharacteristic 对象之前，必须执行这段代码：

  for i := 0 to  AService.Characteristics.Count -1 do
  begin
    if AService.Characteristics[i].UUID = My_Characteristic_ID then
    begin
      ACharacteristic := Aservice.Characteristics[i];
      Break;
    end;
  end;

通过一次循环后，再次使用 BluetoothLE1.GetCharacteristic 这个方法，就能获得正确的结果了。

既然循环能获得结果，不循环不能获得结果，那么，这个方法存在的意义是什么？不如需要的地方，直接使用循环就好了。所以，这应该是一个 bug。