AddStream

TAttachments

function AddStream(const AFileName, AMimeType: string; AStream: TStream; ACopyStream: Boolean = True; AOwnsStream: Boolean = True): TAttachment

THTMLContents

function AddStream(const AFileName, ACID, AMimeType: string; AStream: TStream; ACopyStream: Boolean = True; AOwnsStream: Boolean = True): THTMLContents

Description

La méthode AddStream permet d'ajouter un nouvel élément à un dérivé de TMailerList.

Le paramètre ACopyStream précise si le flux est attaché directement ou si une copie est effectuée dans un TMemoryStream.

Le paramètre AOwnsStream précise si l'objet destinataire devient propriétaire du flux et qu'il peut le détruire. Ce paramètre est ignoré si ACopyStream est vrai.

Exemple

var
  Stream: TStream;
begin
// ajout d'un flux par copie, il sera conservé dans un TMemoryStream automatiquement détruit au besoin.
  Stream := TResourceStream.Create(hInstance, 'TForm1', RT_RCDATA);
  try
    Mailer1.Attachments.AddStream('Form1.dfm', 'application/octet-stream', Stream);
  finally
    Stream.Free;
  end;
// ajout d'un TFileStream qui sera libéré automatiquement par TMailer
  Mailer1.Attachments.AddStream('Image1.png', 'image/png', TFileStream.Create('Image1.png', fmOpenRead or fmShareDenyNone), False, True);
end;