Einzelnen Beitrag anzeigen

Sebastian R.

Registriert seit: 12. Feb 2006
94 Beiträge
 
#4

Re: TIdTCPClient hängt sich bei ReadLn auf

  Alt 14. Feb 2006, 13:45
Komisch, müsste eigentlich klappen. Nimm mal eine while-Schleife.

Delphi-Quellcode:
while s <> 'do begin
  Application.ProcessMessages;
  s := Command_TCP.ReadLn;
  if s <> 'then
  begin
    Listbox1.Items.Add(s);
  end;
end;
Command_TCP.Disconnect;
Oder du schreibst einfach so etwas in das OnRead/OnExecute-Event:

Delphi-Quellcode:
// Indy-Beispiel
begin
  ListBox1.Items.Add(AThread.Connection.ReadLn);
end;
MfG, Sebastian R.

[EDIT]Ich habe nochmal deinen Text oben gelesen. Du hast ja eine Schleife in dem Timer drin. Der wartet solange bis was ankommt. Aber wenn der Interval auf 300 ms steht, dann führt der das ja zu oft aus![/EDIT]
Sebastian R.
Keep on programming!


CyCode.net - Meine Programme, Tutorials und Quelltexte
  Mit Zitat antworten Zitat