Class T_Pop3 (unit tcpip) |
Inherits from
T_TcpIp
@\\\0000001001*) (*@/// T_Pop3 = class(T_TcpIp) // RFC 1725
constructor Create(Aowner:TComponent);
- @\\\0000000601*) (*@/// constructor t_pop3.
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.
property Hostname : string
property Password : string
property UserName : string
property Mail : TStringlist
event OnTrace :
f_list : TList;
f_mail : TStringList;
f_pass : string;
f_user : string;
constructor Create(Aowner:TComponent);
@\\\0000000601*) (*@/// constructor t_pop3.Create(Aowner:TComponent);
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;
property Hostname : string
property Password : string
property UserName : string
property Mail : TStringlist
event OnTrace :
f_list : TList;
f_mail : TStringList;
f_pass : string;
f_user : string;