ReplaceStream

TAttachment THTMLContent

procedure ReplaceStream(AStream: TStream; var AOwnsStream: Boolean = True)

Description

La méthode ReplaceStream permet de remplacer la propriété Stream d'un dérivé de TAttachment par un dérivé de TStream.

Le paramètre AOwnsStream précise si l'objet destinataire devient propriétaire du flux et responsable de sa destruction.

Remarque: pour copier un flux dans la propriété Stream, affectez lui directement le flux.

Exemple

var
  Stream1: TStream;
  Stream2: TStream;
begin
// ce flux sera détruit automatiquement par Mailer1
  Stream1 := TFileStream.Create('readme.txt', fmOpenRead or fmShareDenyNone);
  Mailer1.MailBody.Attachments[0].ReplaceStream(Stream1, True);

// FGlobalStream est ici un flux dont la durée de vie est gérée par l'application
// Mailer1 l'utilise mais ne le détruira pas
  Mailer1.MailBody.Attachments[1].ReplaceStream(FGlobalStream, False);

// Copie du flux dans un TMemoryStream créé et géré par Mailer1
  Stream2 := TFileStream.Create('readme.txt', fmOpenRead or fmShareDenyNone);
  try
    Mailer1.MailBody.Attachments[2].Stream := Stream2;
  finally
    Stream2.Free;
  end;
end;