TStream in String speichern.

[Evian]

Hallo,

irgendwie stelle ich mich gerade ganz schön doof an. Ich möchte den Inhalt des AStreams vom Receive-Event des IdConnectionIntercept in einem String speichern, aber ich bekomme das nicht gebacken. Hab mir schon diverse Forenbeiträge angesehen, aber entweder bin ich einfach zu doof, oder vielleicht auch einfach ein wenig Blind.

Könnte mir vielleicht Jemand einen Tip geben, wie ich das anstelle?

Delphi-Quellcode:

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

gruß

Evian

[SirThornberry]

ganz einfach

Delphi-Quellcode:

SetLength(DeinString, AStream.Size);
AStream.Read(DeinString[1], AStream.Size);

[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

[Evian]

Danke... funktioniert wunderbar!