TStream in String speichern.

[ManuMF]

Hallo,

Oder vielleicht mit einer TStringList und LoadFromStream?

Delphi-Quellcode:

procedure TForm1.IdConnectionIntercept1Receive(
  ASender: TIdConnectionIntercept; AStream: TStream);

var SL: TStringList;

begin
  SL := TStringList.Create;
  try
    SL.LoadFromStream(AStream);
    String := SL.Text;
  finally
    FreeAndNil(SL);
  end;
end;

Gruß,
ManuMF