Indy TIDAttatchment direkt aus Stream erzeugen

[k.kirchhoff]

Hallo ich habe einen vom Type TMemorySteam, den ich Direkt an eine
EMail anhängen möchte, ohne den Stream erst auf die Platte zu schreiben.

TIdAttachmentFile.Create(IdMsgSend.MessageParts, Pfad+Dateiname) das geht!

TIdAttachmentFile.Create(IdMsgSend.MessageParts, Stream) geht nicht ...

Geht das überhaupt?

Danke Euch für die Hilfe

[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;

[k.kirchhoff]

Besten Dank erstmal für die Antwort,

bei Testen, bekomme ich in der Zeile

anhang := blubb.OpenLoadStream;

die Fehlermeldung "Kann Datei nicht finden", nur ich will ja gar keine Datei anlegen!