Hallo
,
ich frage Daten von einem Server mittels einer TIdTCPClient-Komponente ab.
Dazu lese ich so lange mittels Readln bis eine bestimmte Endezeile gelesen wird.
Delphi-Quellcode:
result:=TStringList.Create;
repeat
s:=Readln;
result.Append(s);
Application.ProcessMessages;
until (s[1]<>'%');
Problem: Wenn die Endezeile unter Umständen nicht gesendet wird, bleibt das Programm
in der ReadLn-Schleife hängen.
Gibt es zu dieser Variante bessere Alternativen?
Habs zum Beispiel mit LastCmdResult.Text versucht, aber die Liste ist immer leer.
Vielen Dank im Voraus
René