TcpClient - Antwort XML unvollständig.

[Garfield]

Mit TIdTcpClient kommt man auch nicht weiter.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  TcpClient : TIdTcpClient;
  temp : String;
  count : Integer;
begin
  Memo1.Clear;

  TcpClient      := TIdTcpClient.Create(nil);
  TcpClient.Host := Edit1.Text;
  TcpClient.Port := StrToInt(Edit2.Text);
  try
    TcpClient.Connect;
    if TcpClient.Connected
    then begin
      if TcpClient.IOHandler.Connected
      then begin
        TcpClient.IOHandler.Write(Memo2.Text);
        temp := TcpClient.IOHandler.ReadLn;
        count := 0;
        while count <= 1
        do begin
          Memo1.Lines.Add(temp);
          temp := TcpClient.IOHandler.ReadLn;
          if Length(temp) = 0
          then inc(count);
        end;
      end;
    end;
  finally
    TcpClient.Disconnect;
    TcpClient.Destroy;
  end;
end;

Das XML wird zwar in mehreren Zeilen zurückgegeben, aber bei der letzten Zeile hängt es dann.