Einzelnen Beitrag anzeigen

smudo

Registriert seit: 6. Sep 2005
Ort: Cottbus
362 Beiträge
 
Delphi XE2 Professional
 
#1

Indy ReadLn - TimeOut funzt nicht

  Alt 22. Dez 2005, 10:05
Hallo ,

ich hatte hier schon mal mein Problem geäußert.

Ich lese mit ReadLn die Zeilen aus, welcher mir der Server nach einer gewissen Zeit bereitstellt. Vom Zeitverhalten konnte ich das ganze so umbauen, dass es bis zum Empfang der 1. Zeile nicht länger als 300 Sekunden dauert.
ReadLn wartet also so lange, bis die erwartete Zeile eingetroffen ist.
Um das zeitlich zu begrenzen, gibt es ja die Möglichkeit der Übergabe eines Timeoutwertes.
Das wollte ich hiermit mal testen:
Delphi-Quellcode:
c:=GetTickCount;
s:=ReadLn(#10,1);
ShowMessage(IntToStr(GettickCount-c)+': '+s);
Ich bin mir jetzt nicht sicher, ob es sich bei dem TimeOut um Millisekunden oder Sekunden handelt, auf jeden Fall dürfte es doch wohl nicht möglich sein, dass c den Wert 5547 annimmt. Macht er aber

Was muss ich anders machen?

Danke im Voraus

René
  Mit Zitat antworten Zitat