Indy TIDAttatchment direkt aus Stream erzeugen

[Sharky]

Hai k.kirchhoff,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"

ich habe eben mal in die Hilfe von Indy(10) geschaut. Es gibt da etwas wie OpenLoadStream welches dir einen TStream erzeugt.
Du müsstest also in diese Richtung schauen:

Delphi-Quellcode:

var
  blubb: TIdAttachmentFile;
  anhang : TStream;
begin
  blubb := TIdAttachmentFile.Create(IdMessage1.MessageParts);
  anhang :=  blubb.OpenLoadStream;
  anhang.CopyFrom(); // Stream mit Daten füllen.
  blubb.CloseLoadStream;
end;