TGetStreamEvent

TGetStreamEvent = procedure(Sender: TObject; var Stream: TStream; var AutoFree: Boolean) of object

Unité

Execute.Mailer

Description

L'événement OnGetStream de TAttachment et THTMLContent est invoqué pour déterminer le flux associé au contenu. Si l'événement n'est pas défini, ou si l'objet Stream retourné est nul, c'est la propriété Stream qui est utilisée.

La paramètre AutoFree permet d'indiquer si le flux retourné est automatiquement supprimé après usage.

Exemple

procedure TForm1.OnGetStream(Sender: TObject; var Stream: TStream; var AutoFree: Boolean);
begin
  Stream := TFileStream.Create('image1.png', fmOpenRead or fmShareDenyNone);
  AutoFree := True;
end;