Class T_Mime (unit tcpip) |
Inherits from
TComponent
@\\\0000000D01*) (*@/// T_Mime = class(TComponent) // RFC 1521
constructor Create(Aowner:TComponent);
- @\\\000000041A*) (*@\\\*) (*@/// class t_mime(TComponent) *) (*@/// constructor t_mime.
procedure action;
@\\\0000000317*) (*@/// procedure t_mime.
function AttachFile(const filename:string):integer;
@\\\0000000701*) (*@/// function t_mime.
function AttachText(text: TStringList):integer;
@\\\*) (*@/// function t_mime.
destructor Destroy;
@\\\000000040F*) (*@/// destructor t_mime.
function GetAttachment(index: integer):T_Attachment;
@\\\0000001B33*) (*@/// function t_mime.
procedure RemoveAllAttachments;
@\\\0000000301*) (*@/// procedure t_mime.
procedure RemoveAttachment(index: integer);
@\\\000000060C*) (*@/// procedure t_mime.
procedure SetMail(mail: TStringlist);
@\\\0000002201*) (*@/// procedure t_mime.
function GetNumberOfAttachments: integer;
@\\\000000031E*) (*@/// function t_mime.
property Mail : T_MailNews
property Attachment : T_Attachment
property NumberOfAttachments : integer
boundary : string;
f_attachment : TList;
f_mail : T_MailNews;
constructor Create(Aowner:TComponent);
@\\\000000041A*) (*@\\\*) (*@/// class t_mime(TComponent) *) (*@/// constructor t_mime.Create(Aowner:TComponent);
procedure action;
@\\\0000000317*) (*@/// procedure t_mime.action;
function AttachFile(const filename:string):integer;
@\\\0000000701*) (*@/// function t_mime.AttachFile(const filename:string):integer;
function AttachText(text: TStringList):integer;
@\\\*) (*@/// function t_mime.AttachText(text: TStringList):integer;
destructor Destroy;
@\\\000000040F*) (*@/// destructor t_mime.Destroy;
function GetAttachment(index: integer):T_Attachment;
@\\\0000001B33*) (*@/// function t_mime.GetAttachment(index: integer):t_attachment;
procedure RemoveAllAttachments;
@\\\0000000301*) (*@/// procedure t_mime.RemoveAllAttachments;
procedure RemoveAttachment(index: integer);
@\\\000000060C*) (*@/// procedure t_mime.RemoveAttachment(index: integer);
procedure SetMail(mail: TStringlist);
@\\\0000002201*) (*@/// procedure t_mime.SetMail(mail: TStringlist);
function GetNumberOfAttachments: integer;
@\\\000000031E*) (*@/// function t_mime.GetNumberOfAttachments: integer;
property Mail : T_MailNews
property Attachment : T_Attachment
property NumberOfAttachments : integer
boundary : string;
f_attachment : TList;
f_mail : T_MailNews;