Bluetooth LE unter Windows 11 funktioniert nicht mehr

[elmar.faber]

Ich habe nun die komplette Datei ausgetauscht mit der hochgeladenen Version (https://quality.embarcadero.com/browse/RSP-42149)

Diesmal springt er bei der folgenden Funktion in den Elae-Zweig und bleibt da hängen:

Delphi-Quellcode:

function TWinRTBluetoothGattCharacteristic.DoGetDescriptors: TBluetoothGattDescriptorList;
var
  LGattDescriptors: IVectorView_1__GenericAttributeProfile_IGattDescriptor;
  I: Integer;
  characteristic3 : GenericAttributeProfile_IGattCharacteristic3;
  descriptorRes3 : IAsyncOperation_1__GenericAttributeProfile_IGattDescriptorsResult;
  descrRes : GenericAttributeProfile_IGattDescriptorsResult;
begin
  FDescriptors.Clear;

  if Supports(FGattCharacteristic, GenericAttributeProfile_IGattCharacteristic3, characteristic3) then
  begin
       // async
       if TAsyncOperation<IAsyncOperation_1__GenericAttributeProfile_IGattDescriptorsResult>.Wait(
                        characteristic3.GetDescriptorsAsync(BluetoothCacheMode.Uncached), descriptorRes3 ) = AsyncStatus.Completed then
       begin
            descrRes := descriptorRes3.GetResults;
            LGattDescriptors := descrRes.Descriptors;
            if LGattDescriptors.Size > 0 then
            begin
                 for I := 0 to LGattDescriptors.Size - 1 do
                     FDescriptors.Add(TWinRTBluetoothGattDescriptor.Create(Self, LGattDescriptors.GetAt(I)));
            end;
       end;
  end
  else
  begin
    // deprecated use only if not yet supported
    LGattDescriptors := (FGattCharacteristic as GenericAttributeProfile_IGattCharacteristic2).GetAllDescriptors;
    if LGattDescriptors.Size > 0 then
      for I := 0 to LGattDescriptors.Size - 1 do
        FDescriptors.Add(TWinRTBluetoothGattDescriptor.Create(Self, LGattDescriptors.GetAt(I)));                       <----------- bleibt hier hängen
  end;
  Result := FDescriptors;
end;

[rabatscher]

Hi... hast schon mal versucht das ganze neu zu pairen?

[rabatscher]

Nachtrag:
die Methode wo er bei dir hängen bleibt hatte ich noch drinnen gelassen, da das die Standardmethode in älteren Win10 Systemen war, die
noch keine IGattCharacteristic3 Interfaces kannten (ist quasi von der alten Delphi 10.4 Implementierung). Ich denke du kannst diese Zeilen
aber auch getrost weglöschen.

-> Nur zur Info: Ich brauche die Descriptoren Struktur nicht... Du etwa?

lg
Mike

[elmar.faber]

Guten Morgen,

etwas verspätet bin ich wieder da...
Nein ich brauche die Descriptoren Struktur auch nicht ...
Ich habe neu gepaired aber leider bin ich nicht weitergekommen.
Ich schaue jetzt mal, ob ich ein anderes Bluetooth Modul zum laufen bekomme...

Viele Grüße

[rabatscher]

Und den "else" Zweig bei den Descriptoren weglöschen hat keinen Erfolg gebracht?

[elmar.faber]

Nein leider nicht, hättest du mal einen funktionierenden Quellcode Ansatz? Irgendwie scheine ich ja etwas grundlegendes falsch zu machen

[rabatscher]

Einen kleinen Nachtrag habe ich noch... die Methode DiscoverServices wird bei mir in einem Thread ausgeführt - WinRT hat da so seine
Eigenheiten.... eventuell hilft das..

[Graw]

Hallo,

Zitat:

wie komme ich aktuell an die Datei ran?
es sieht so aus als wenn man sich bei https://quality.embarcadero.com/login.jsp nicht mehr anmelden kann?
Oder ist es nur ein aktuelles kurzzeitiges Problem?

Hat sich erledigt, der Download funktioniert.

Allerdings bekomme ich kein Bluetooth LE Projekt ans laufen.

Ist dies auch eine Möglichkeit um das Beispiel "ExploreDevicesLE" lauffähig zu bekommen?
Ich kann nur Geräte suchen. Sobald ich auf "Get services" klicke friert die Software ein.