Hi!
Ich kämpfe gerade mit einem Disto D510 und habe da so meine Probleme.
Der Disto wird mit DiscoverDevices gefunden, wenn ich jedoch versuche die Dienste mit device.DiscoverServices in OnEndDiscoverDevices abzurufen
erhalte ich die Fehlermeldung "Dieses Gerät ist nicht gekoppelt".
Hat Jemand einen Ahnung was da falsch läuft?
Ich meine ich hatte das vor langer Zeit schon einmal versucht und konnte zumindest die Dienste auslesen.
Code:
procedure TForm1.bleEndDiscoverDevices(const Sender: TObject;
const ADeviceList: TBluetoothLEDeviceList);
var
i:integer;
begin
for i := 0 to adevicelist.Count-1 do begin
memo1.Lines.Add(adevicelist[i].DeviceName);
if adevicelist[i].DeviceName = 'DISTO' then begin
device:=adevicelist[i];
device.DiscoverServices;
end;
end;
end;
Delphi 10.2 und Windows 10