[Indy] TCP Server sendet nicht zum Client

[GuybrushThreepwood]

Jupp, es könnte an StringToComponent liegen, denn das hier geht.

Delphi-Quellcode:

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
  ShowMessage(IdTCPClient1.ReadLn('', 10000, 512));
  IdTCPClient1.Disconnect;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Connect(10000);
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  AThread.Connection.WriteLn('Kuckuck...');
end;

Und zwar hervorragend...