TCPClient Read

[Edelfix]

Machst du das so in der Art?

Delphi-Quellcode:

function TDataModule1.Test:String;
var
  sAntwort: String;
begin
  IdTCPClient1.Connect;
  if IdTCPClient1.Connected then
  begin
    IdTCPClient1.IOHandler.WriteLn('StartSend')
    sAntwort := IdTCPClient1.IOHandler.ReadLn;
    Result := sAntwort;
  end;
  IdTCPClient1.Disconnect;
end;