IdTCPServer + IdTCPClient Endlosschleife

[SyntaxXx]

Hallo zusammen,
ich beschäftige mich gerade mit den IdTCPServer und IdTCPClient Komponenten.
Ich habe jetzt das Problem, dass sobald ich mich mit dem Server verbinde, er sich komplett aufhängt, weil er in eine Endlosschleife in der Execute-Methode gerät.

Jetzt stellt sich mir die Frage, warum?


Server:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
  AContext.Connection.Socket.WriteLn('Willkommen');
end;

Delphi-Quellcode:

procedure TForm1.StartServerClick(Sender: TObject);
begin
  IdTCPServer1.Bindings.Add.SetBinding('127.0.0.1', 8080);
  IdTCPServer1.Active:= True;
end;

Client:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Host:= '127.0.0.1';
  IdTCPClient1.Port:= 8080;

  IdTCPClient1.Connect;
  IdTCPClient1.SendCmd('Test');
end;

Wenn ich statt dem Client mich via Telnet am Server anmelde, dann bekomme ich abertausende Zeilen mit "Willkommen" ausgegeben.

[hoika]

Hallo,
wie sieht denn Dein Client aus.
Er muss das Writeln ja irgendwie bekommen und annehmen.

Heiko

[jaenicke]

Das liegt daran, dass du die Eingabe des Clients nicht ausliest. OnExecute wird solange immer wieder ausgeführt bis der Stream mit den empfangenen Daten leer ist. Der Grund ist, dass du so immer ein Datenpaket bearbeiten kannst ohne danach zu schauen, ob noch weitere Daten verarbeitet werden müssen.

Du kannst soweit ich mich erinnere auch die empfangenen Daten des Clients verwerfen. Ich kann grad nicht schauen am Handy... irgendetwas mit Flush oder so?

//Edit:
Vielleicht so?
AContext.Connection. IOHandler.InputBuffer.Clear;

[mjustin]

OnExecute wird in einer Schleife ausgeführt bis die Verbindung durch den Client geschlossen wurde oder OnExecute mit einer unbehandelten Exception verlassen wird.

Wenn der Server auf Daten vom Client warten soll, ist z.B. ein ReadLn notwendig, siehe z.B. http://stackoverflow.com/questions/2...nstant-polling

Delphi-Quellcode:

procedure TMyServer.OnExecute(AContext: TIdContext);
var
  Req: string;
begin
  Req := AContext.Connection.IOHandler.ReadLn;
  ...
  AContext.Connection.IOHandler.WriteLn(...);
  ...
end;