AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Windows 11 und Bluetooth LE

Ein Thema von Graw · begonnen am 12. Mär 2024 · letzter Beitrag vom 22. Mär 2024
Antwort Antwort
Graw

Registriert seit: 26. Apr 2017
78 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Windows 11 und Bluetooth LE

  Alt 13. Mär 2024, 14:27
Hallo himitsu,

mit den Beispielen habe ich schon probiert.
Leider ist kein Beispiel unter Windows funktionstüchtig.

Mein Hauptaugenmerk liegt da auf "ExploreDevicesLE" und "BLEScanner".

Das Suchen der Geräte funktioniert noch.
Aber sobald ich bei ExploreDevicesLE auf Get klicke oder beim BLEScanner ein Device auswähle, frieren beide Anwendungen ein und müssen über den Taskmanager beendet werden.

Die neusten Versionen von github habe ich auch getestet.

Geändert von Graw (13. Mär 2024 um 15:02 Uhr)
  Mit Zitat antworten Zitat
philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
942 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Windows 11 und Bluetooth LE

  Alt 13. Mär 2024, 21:52
Ich habe ExploreDevicesLE gerade bei mir mal getestet, allerdings Windows 10. Da läuft es problemlos. War die Win32-Debug-Variante. Aber ich weiß, dass bei der Iteration durch Characteristics eines Service wichtig ist, dass dies nicht im Hauptthread passiert. Dies kann zu Hängenbleibern führen. Ich habe jetzt nicht gecheckt, wie das Beispiel es macht.
  Mit Zitat antworten Zitat
Graw

Registriert seit: 26. Apr 2017
78 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Windows 11 und Bluetooth LE

  Alt 15. Mär 2024, 11:30
Das ist ja interessant.
Wenn auf Get geklickt wird, hängt es sich nicht auf?

Kann es an meiner Hardware liegen?
  Mit Zitat antworten Zitat
philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
942 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Windows 11 und Bluetooth LE

  Alt 15. Mär 2024, 12:31
Ja, beim Klick auf "Get services" hängt es sich nicht auf. Aber es kann gut sein, dass du einen Thread um die Funktion ServicesDiscovered bauen musst. Dies scheint mir in dem Beispiel falsch zu sein.

Probiere mal diese Anpassung:
Delphi-Quellcode:
procedure TFrDeviceExplorer.ServicesDiscovered(const Sender: TObject; const AServiceList: TBluetoothGattServiceList);
begin
  TThread.CreateAnonymousThread(
  procedure()
  var
  I: Integer;
  CharList: TBluetoothGattCharacteristicList;
  AChar: TBluetoothGattCharacteristic;
  J: Integer;
  CurrentRow: Integer;
  Options: string;
  ServiceItem, Characteristic, CharProps: TTreeViewItem;
  begin
    TvCharacteristics.Clear;
    for I := 0 to AServiceList.Count - 1 do
    begin
      ServiceItem := TTreeViewItem.Create(nil);
      ServiceItem.Parent := TvCharacteristics;
      ServiceItem.Tag := I;
      ServiceItem.IsExpanded := True;
      if AServiceList[I].UUIDName.IsEmpty then
        ServiceItem.Text := 'Unnamed'
      else
        ServiceItem.Text := AServiceList[I].UUIDName;
      CharList := AServiceList[I].Characteristics;
      for J := 0 to CharList.Count - 1 do
      begin
        AChar := CharList[J];
        TThread.Synchronize(nil, procedure begin
          Options := '';
          if TBluetoothProperty.Broadcast in AChar.Properties then Options := Options + 'Broadcast ';
          if TBluetoothProperty.ExtendedProps in AChar.Properties then Options := Options + 'ExtendedProps ';
          if TBluetoothProperty.Notify in AChar.Properties then Options := Options + 'Notify ';
          if TBluetoothProperty.Indicate in AChar.Properties then Options := Options + 'Indicate ';
          if TBluetoothProperty.Read in AChar.Properties then Options := Options + 'Read ';
          if TBluetoothProperty.Write in AChar.Properties then Options := Options + 'Write ';
          if TBluetoothProperty.WriteNoResponse in AChar.Properties then Options := Options + 'WriteNoResponse ';
          if TBluetoothProperty.SignedWrite in AChar.Properties then Options := Options + 'SignedWrite ';
          Characteristic := TTreeViewItem.Create(nil);
          Characteristic.Parent := ServiceItem;
          Characteristic.IsExpanded := False;
          if AChar.UUIDName.IsEmpty then
            Characteristic.Text := 'Unnamed'
          else
            Characteristic.Text := AChar.UUIDName;
          Characteristic.Tag := J;
          CharProps := TTreeViewItem.Create(nil);
          CharProps.Tag := -1;
          CharProps.Parent := Characteristic;
          CharProps.IsExpanded := True;
          CharProps.Text := GUIDToString(AChar.UUID);
          CharProps := TTreeViewItem.Create(nil);
          CharProps.Tag := -1;
          CharProps.Parent := Characteristic;
          CharProps.IsExpanded := True;
          CharProps.Text := Options;
        end);
        Application.ProcessMessages;
      end;
    end;
    tmAnimateFindServices.Enabled := False;
    PbServices.Value := 100;
  end).Start;
end;
D.h. übertragen auf das Beispiel müsste es
  Mit Zitat antworten Zitat
Graw

Registriert seit: 26. Apr 2017
78 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Windows 11 und Bluetooth LE

  Alt 21. Mär 2024, 08:53
Hallo,

vielen Dank für deine Anpassung.
Bin gerade dazu gekommen diese zu testen.
Leider ist das Ergebnis noch das selbe.
Beim anklicken von Get sevices hängt sich die Software auf.
  Mit Zitat antworten Zitat
Michael II

Registriert seit: 1. Dez 2012
Ort: CH BE Eriswil
778 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Windows 11 und Bluetooth LE

  Alt 21. Mär 2024, 14:00
Hab's mit Delphi 11.2 und Dell Notebook mit Windows 11 Pro (Version 10.0.22635.3350) getestet.
Das Erkennen der Devices scheint völlig fuzzy zu sein. Ich klicke und sehe 3 Geräte, ich klicke erneut und sehe 7. Einige Leerzeilen, einige Namen werden nicht angezeigt (nur Bluetooth <Adresse>); meine Hyperboom (welche von meinem Dell Testgerät korrekt angezeigt wird) wird zum Beispiel nie als HYPERBOOM angezeigt.
Wenn ich einen Device "selecte" und Get... klicke, dann passiert bei keinem der 7 ausgewählten Geräte was. Ab und zu hängt sich die App nach Klick auf Get... auf.
Das Beispiel ist für die Tonne. Leider haben wir hier auf dem Land nur alle zwei Wochen Müllabfuhr.
Michael Gasser
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
4.240 Beiträge
 
Delphi 12 Athens
 
#7

AW: Windows 11 und Bluetooth LE

  Alt 21. Mär 2024, 17:05
Das ist aber bei Funk normal, dass man sich nicht 100 % auf den Empfang verlassen kann.
Liegt in der Natur der Sache, dass mal entferntere Geräte gelistet werden und mal nicht und die Reihenfolge sich ändert.
Die Geräte können auch verschiedene Sendezyklen besitzen, die sehr Stromsparenden senden vielleicht nur alle >=10 Sekunden,
währen die aktiveren Geräte auch gerne mal alle 40ms senden können.
Das ist bei Bluetooth normal, Hauptsache man erkennt überhaupt Geräte.
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
3.094 Beiträge
 
Delphi 12 Athens
 
#8

AW: Windows 11 und Bluetooth LE

  Alt 22. Mär 2024, 18:58
Hab's mit Delphi 11.2 und Dell Notebook mit Windows 11 Pro (Version 10.0.22635.3350) getestet.
Das Erkennen der Devices scheint völlig fuzzy zu sein. Ich klicke und sehe 3 Geräte, ich klicke erneut und sehe 7. Einige Leerzeilen, einige Namen werden nicht angezeigt (nur Bluetooth <Adresse>); meine Hyperboom (welche von meinem Dell Testgerät korrekt angezeigt wird) wird zum Beispiel nie als HYPERBOOM angezeigt.
Wenn ich einen Device "selecte" und Get... klicke, dann passiert bei keinem der 7 ausgewählten Geräte was. Ab und zu hängt sich die App nach Klick auf Get... auf.
Das Beispiel ist für die Tonne. Leider haben wir hier auf dem Land nur alle zwei Wochen Müllabfuhr.
Naja, zumindest bei Classic Bluetooth waren das Finden eines Gerätes und die Ermittlung
des "Friendly Name" intern immer 2 Schritte.

Ganz lustig war, wenn das Gerät dazwischen außer Reichweite geraten ist. Windows Mobile hatte
dann immer Mist gebaut und einen kaputten String geliefert, was aber keines der Beispiele im
Internet behandelt hatte. Alles Schönwetter Umsetzungen.

Grüße
TurboMagic
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz