Class T_Pop3 (unit tcpip)

Inherits from

T_TcpIp

@\\\0000001001*) (*@/// T_Pop3 = class(T_TcpIp) // RFC 1725

Constructors


constructor Create(Aowner:TComponent);

@\\\0000000601*) (*@/// constructor t_pop3.


Functions

procedure action;

@\\\0000000C01*) (*@/// procedure t_pop3.

procedure DeleteMail(index:integer);

@\\\0000000601*) (*@/// procedure t_pop3.

destructor Destroy;

@\\\0000000501*) (*@/// destructor t_pop3.

procedure GetHeaders;

@\\\*) (*@/// procedure t_pop3.

procedure GetMail(index: integer);

@\\\0000000401*) (*@/// procedure t_pop3.

procedure Login;

retrieval of first message

@\\\0000000701*) (*@/// procedure t_pop3.


procedure Logout;

@\\\*) (*@/// procedure t_pop3.

procedure response;

@\\\0000000501*) (*@/// procedure t_pop3.

Properties

property Hostname : string


property Password : string


property UserName : string


property Mail : TStringlist


Events

event OnTrace :


Variables

f_list : TList;


f_mail : TStringList;


f_pass : string;


f_user : string;



Constructors


constructor Create(Aowner:TComponent);

@\\\0000000601*) (*@/// constructor t_pop3.Create(Aowner:TComponent);


Functions


procedure action;

@\\\0000000C01*) (*@/// procedure t_pop3.action;


procedure DeleteMail(index:integer);

@\\\0000000601*) (*@/// procedure t_pop3.DeleteMail(index:integer); // DELE


destructor Destroy;

@\\\0000000501*) (*@/// destructor t_pop3.Destroy;


procedure GetHeaders;

@\\\*) (*@/// procedure t_pop3.GetHeaders; // TOP


procedure GetMail(index: integer);

@\\\0000000401*) (*@/// procedure t_pop3.GetMail(index: integer); // RETR


procedure Login;

retrieval of first message

@\\\0000000701*) (*@/// procedure t_pop3.Login; // USER, PASS, LIST


procedure Logout;

@\\\*) (*@/// procedure t_pop3.Logout; // QUIT


procedure response;

@\\\0000000501*) (*@/// procedure t_pop3.response;


Properties


property Hostname : string


property Password : string


property UserName : string


property Mail : TStringlist


Events


event OnTrace :


Variables


f_list : TList;


f_mail : TStringList;


f_pass : string;


f_user : string;