Alternative zu Application.ProcessMessage ???

[Schucki]

Hi :hi:

ich habe das Problem das ich in meiner Anwendung auf ein Ereigniss warten muß und mir dieses mit einem BOL Wert signalisieren lasse.

Delphi-Quellcode:

procedure WaitForAnswer;
var timGo:TDateTime;
const WaitAns=5000;
begin
  timGo:=GetTickCount;
  while (not bolAns) and (GetTickCount-timGo < WaitAns) do begin
    Application.ProcessMessages;
  end;
end;

Ablauf ist wie folgt...

Delphi-Quellcode:

bolAns:=False;
TakeAction;
WaitForAnswer;

Das doofe ist nur das die CPU voll belastet wird und der Lüfter nach kurzer Zeit anspringt.

Wie macht man sowas eleganter? :dance:

Für jeden Tip dankbar,
Frank

[Jelly]

Stichwort Thread. Der Thread käuft parallel zum eigentlichen Programm, und könnte z.B. das Hauptprogramm via Event benachichtigen, wenn deine Bedingung erfüllt ist.

[Luckie]

Zitat:

Zitat von Schucki

das ich in meiner Anwendung auf ein Ereigniss warten muß und mir dieses mit einem BOL Wert signalisieren lasse.

Das ist ein Widerspruch: Wenn es sich um ein Ereignis handelt, dann brauchst du nicht in einer Schleife ständig den Rückgabewert abfragen. Sollte es wirklich ein Ereignis sein, dann kannst du auf das Ereignis mit einer Ereignisbehandlungsroutine reagieren.

[Schucki]

Ok danke Euch! :thumb:

Habe es mit einem Thread gelöst, geht erstaunlich gut!
Auch wenn ich etwas gebraucht habe um das hinzubekommen.

Hatte zum Glück etwas Literatur darüber gefunden.

MfG Frank