Delphi-PRAXiS - Delphi Timeout realisieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Timeout realisieren (https://www.delphipraxis.net/86603-timeout-realisieren.html)

Dawn87

16. Feb 2007 08:52

Timeout realisieren

Hallo,

wie kann ich in Delphi einen Timeout realisieren?

So hab ich es immer in Visual Basic 6 gemacht:

Delphi-Quellcode:

			Dim nTimeOut As Long

nTimeOut = Timer + 5 '5 Sekunden TimeOut

Do

' tue irgendwas...

Loop Until Timer >= nTimeOut

Gibt es in Delphi vergleichbare Funktionen? Blicke da leider nicht so ganz durch!

Grüße
Stefan

mkinzler

16. Feb 2007 08:56

Re: Timeout realisieren

Versuchs mit einem TTimer

Dawn87

16. Feb 2007 09:05

Re: Timeout realisieren

Hallo,

erst einmal vielen Dank für Deine Antwort.

Am liebsten hätte ich eine Lösung ohne das Timer-Control. Hast Du villeicht noch einen Vorschlag.

Grüße
Stefan

SirThornberry

16. Feb 2007 09:14

Re: Timeout realisieren

Anstelle der "Timer" funktion kannst du "GetTickCount" nutzen. Diese Funktion gibt dir die Millisekunden seit Windowsstart zurück. Anstelle wie bisher "+5" müsstest du dann natürlich "+5000" schreiben da es eben keine sekunden sondern Millisekunden sind.

Dawn87

16. Feb 2007 09:20

Re: Timeout realisieren

Hallo,

klappt wunderbar. Dankeschön.

Grüße
Stefan

Alle Zeitangaben in WEZ +1. Es ist jetzt 03:28 Uhr.