Probleme mit TIdTCPClient / TIdTCPServer

[AJ_Oldendorf]

Ich habs!
Habe mir mal den TIdTelNet angeguckt und bisschen darin rumgelesen und einige Sachen "anders" vorgefunden

So funktioniert es jetzt:
Host und Port sind im Objektinspektor eingetragen.
Ich weiß, das dem Timer ist keine schöne Lösung. Mir ging es auch erstmal nur darum, dass es überhaupt geht

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if not IdTCPClient1.Connected then
    IdTCPClient1.Connect;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if IdTCPClient1.Connected then
    IdTCPClient1.Disconnect;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if IdTCPClient1.Connected then
  begin
    IdTCPClient1.IOHandler.CheckForDataOnSource(50);
    if not IdTCPClient1.IOHandler.InputBufferIsEmpty then
    begin
      Memo1.Lines.Add(IdTCPClient1.IOHandler.InputBufferAsString);
    end;
  end;
end;

Mit diesem Source kann ich erstmal weitermachen.
Vielleicht habe ich damit ja jemanden auch geholfen, der mal vor einer ähnlichen Aufgabe steht.

Grüße
Alex