Hallo zusammen, kleiner Nachtrag, vielleicht ist mein Problem doch ein anderes.
Ich verwende eine TBluetoothLE Komponente in meinem Testprojekt. Per Buttonclick suche ich Geräte...
Code:
BluetoothLE1.DiscoverDevices(3000, [cSERVICE_UUID])
... und suche anschließend nach Services und Characteristics:
Code:
BluetoothLE1.DiscoverServices(btDevice); //btDevice wurde im OnDiscoverLEDevice zugewiesen und ist das korrekte Gerät
btService := BluetoothLE1.GetService(btDevice, cSERVICE_UUID);
if btService <> nil then
begin
BluetoothLE1.GetCharacteristics(btService); //diese Zeile führt zum permanent Connect..Disconnect
btChar := BluetoothLE1.GetCharacteristic(btService, cCHAR_UUID);
if btChar <> nil then
begin
BluetoothLE1.SubscribeToCharacteristic(btDevice, btChar);
end;
end;
Mit der kommentierten markierten Zeile (GetCharacteristics) beginnt mein Problem: es feuert permanent das OnConnect und OnDisconnect Event. Es scheint keine echte Verbindung zustande zu kommen.
Das Gerät habe ich zuvor (Windows 10) gekoppelt, muss man ja wohl unter Windows 10 auch bei LE Geräten tun. Wenn ich testweise versuche unter iOS auf das Gerät zuzugreifen, funktioniert es prima, da kommt eine "dauerhafte" Verbindung sofort hin mit dem Auslesen der Characteristics.
Vielleicht fehlt mir nur irgendein Aufruf, den ich in der Dokumentation / den Samples übersehen habe.
Vielen Dank und einen schönen Abend!