Bluetooth Geräte in der Näher erkennen

[hathor]

Fehler:

Warum wird der Cursor bewegt?
Programm lässt sich nur mit ALT-F4 beenden.

Ursache:
- das creierte Window ist unsichtbar,
- ein Button(OK) ist deaktiviert, bekommt aber trotzdem den Focus,
- die Prioritätserhöhung ist überflüssig!

Delphi-Quellcode:

procedure tHideBTWIndow.Execute;
var
 TheWindowHandle: THandle;
begin
  priority := tpHigher; // wozu ???
  try
    while not Form1.fAbort do begin
     TheWindowHandle := FindAWindow('Bluetooth-Gerät auswählen', '');
//     if TheWindowHandle<>0 then ShowWindow(TheWindowHandle,sw_Hide);
//     if TheWindowHandle<>0 then PostMessage(TheWindowHandle,WM_CLOSE, 0, 0);
    end;
  except

  end;
end;

[sx2008]

Keine konkrete Lösung zu deinem Problem aber vielleicht doch ein nützlicher Hinweis:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  hDeviceFind:THANDLE;
  deviceInfo:BLUETOOTH_DEVICE_INFO;
  deviceSearchParams:BLUETOOTH_DEVICE_SEARCH_PARAMS;
begin
  deviceInfo.dwSize := SizeOf(deviceInfo);

In obigem Code wird der Low-Level-Code (das Blutoothzeug) direkt mit High-Level-Code (Events) vermischt.
Das ist nicht gut, denn es fehlt eine Abstraktionsebene bzw. es verstösst gegen das Prinzip Single Level of Abstraction.
Hier fehlt schlichtweg eine Klasse, um die Zugiffe auf die Bluetooth-API zu kapseln.

[Cylence]

Hallo,

at Hator,
bei mir wird der cursor nicht bewegt. Ich weiß nicht was du da meinst, genauso kann ich das Programm schliessen auch ohne altf4.
Mit der Priorität auf higher ist das Fenster vom Wizard teilweise garnicht sichtbar, ohne priorität war es das jedesmal, darum hohe prio.
Aber das ist eh nicht das wahre so wie es jetzt ist, ich brauche eben eine andere Möglichkeit Windows zu sagen, das es jetzt mal nach den aktuell in der nähe befindlichen Bluetooth Geräten suchen soll. Am besten ganz ohne den Wizard, so das das Fenster schliessen ganz weg kommt. Aber wie

at sx2008
Thanks, interessanter Artikel, werd ich mir durchlesen

tom

[hathor]

Mein Cursor springt automatisch zur Standarddialogfläche (Eigenschaften von Maus).

Wenn etwas "unsauber" programmiert ist, dann ist das "für die Katz'".

[Cylence]

, das mit der maus is dann doch eher die windows einstellung das der curosr immer zum feld springen soll.
Und wenn man nicht weiß und sonst scheinbar auch fast niemand weiß wie es geht, muß man erstmal probieren, und während des probierens kann es doch auch mal etwas unsauber sein, bzw bis man erstmal weiß wie es richtig geht ist es zwangsweise auch oft unsauber. Aber wie auch immer, du brauchst es dir ja nicht anzusehen, Danke.
Ich dachte es würde auch andere interessieren wie man so etwas macht, und ich habe hier schon mehr zusammen getragen als sonst in der DP gefunden werden kann darüber. Das ist doch nicht schlecht.

[Cylence]

Hi,

at Deep-Sea

also ich habs hinbekommen, das mit dem TimeOut wars tatsächlich, ich mach den TimeOut auf 5, starte nun das ganze in einem Thread weil sonst alles hängt die 5 sekunden und suche garnicht mehr mit der anderen funktion mit der ich vorher refresht hatte. Jetzt erscheint das nervige Fenster nicht mehr, das Mausbewegen Problem ist weg usw. alles perfekt, und sobald ich am handy BT ausschalte und am pc suche isses auch weg, perfekt DANKE!!!
Komisch mit TimeOut auf 2 gings nie richtig. Naja wie auch immer

Gruß und Danke

tom

[Deep-Sea]

Das ist doch schön.
Ich weiß nicht, obs bei Windows das gleiche ist, aber bei einem anderen System (Hardware), ist der Timeout (bzw. die Inquiry-Time) in Schritten von 1,28 Sekunden unterteilt. Außerdem meine ich mal aufgeschnappt zu haben, dass es bis zu 8 Sekunden dauern kann, bevor ein BT-Gerät gefunden wird, bedingt durch verschiedenste Latenzzeiten, etc.