Class T_Mime (unit tcpip)

Inherits from

TComponent

@\\\0000000D01*) (*@/// T_Mime = class(TComponent) // RFC 1521

Constructors


constructor Create(Aowner:TComponent);

@\\\000000041A*) (*@\\\*) (*@/// class t_mime(TComponent) *) (*@/// constructor t_mime.


Functions

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.

Properties

property Mail : T_MailNews


property Attachment : T_Attachment


property NumberOfAttachments : integer


Events

Variables

boundary : string;


f_attachment : TList;


f_mail : T_MailNews;



Constructors


constructor Create(Aowner:TComponent);

@\\\000000041A*) (*@\\\*) (*@/// class t_mime(TComponent) *) (*@/// constructor t_mime.Create(Aowner:TComponent);


Functions


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;


Properties


property Mail : T_MailNews


property Attachment : T_Attachment


property NumberOfAttachments : integer


Events


Variables


boundary : string;


f_attachment : TList;


f_mail : T_MailNews;