Delay-Funktion.. - oder wie man die Prozedur kurz anhält

[BackOrifice]

Hallo!
Ich flieg morgen früh in den Urlaub und habe mir nun ein kleines Tool geschrieben, welches die 24-h Trennung überbrückt. Bzw es soll alle 5ms prüfen, ob die Verbindung noch da ist; und wenn nicht, stellt sie gleich wieder eine her.

So weit so gut; Nur gibt es das Problem mit den warten von 5ms. Ich habe mir im Inet die beiden Prozeduren rausgesucht:

Delphi-Quellcode:

procedure Tfrm_main.ProcessMessages;
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, GetCurrentProcess, 0, 0, PM_REMOVE) do begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

procedure Tfrm_main.Delay(const WaitTime: DWord);
var
  Start: DWord;
begin
  Start := GetTickCount;
  repeat
    ProcessMessages;
  until (GetTickCount - Start) > WaitTime;
end;

Zusammen mit:

Delphi-Quellcode:

procedure Tfrm_main.leerlauf;
begin
  Repeat
    delay(5000);
    if verbindung_check = false then set_verbindung(true);
  until Status = false
end;

Das Problem ist jetzt, dass die CPU-Auslast bei 100 ist, sobald das Programm aktiv wird.
Gibt es eine andere Methode, die Prozedur leerlauf für eine gewisse Zeit (kann auch bei 1 sec liegen) anzuhalten?


Danke im voraus
Ps: Bitte schnelle Request, morgen bin ich schon weg

[Zacherl]

Machs doch einfach mit einem Timer.

Florian

[turboPASCAL]

Eine Resourceschonendere Variante von Delay

Es könnte aber auch an dem verbindungscheck liegen der die CPU Auslastung hoch treibt.
Wie machst du das denn ?

Zitat:

Nur gibt es das Problem mit den warten von 5ms.

delay(5000); Du meinst wohl 5 Sekunden und nicht 5 Millisekunden.

[BackOrifice]

Wusste nicht, dass es so eine Komponente gibt. Funtzt - danke