Return to Unit SMTP
Description
To be documented
Class definitions
[Expand]
TSMTPListener = class(TWinsock2TCPListener)
public
|
constructor Create;
|
|
private
|
FOnConnected:TSMTPConnectionEvent;
|
|
FOnDisconnected:TSMTPConnectionEvent;
|
|
|
|
FOnCheckHost:TSMTPHostEvent;
|
|
FOnCheckCount:TSMTPCountEvent;
|
|
|
|
FOnRequest:TSMTPNotifyEvent;
|
|
FOnReply:TSMTPNotifyEvent;
|
|
|
|
FOnConn:TSMTPRequestEvent;
|
|
FOnHelo:TSMTPRequestEvent;
|
|
FOnEhlo:TSMTPRequestEvent;
|
|
FOnAuth:TSMTPAuthenticateEvent;
|
|
FOnMail:TSMTPRequestEvent;
|
|
FOnRcpt:TSMTPRequestEvent;
|
|
FOnVrfy:TSMTPRequestEvent;
|
|
FOnBeginData:TSMTPRequestEvent;
|
|
FOnData:TSMTPRequestEvent;
|
|
FOnEndData:TSMTPRequestEvent;
|
|
FOnQuit:TSMTPRequestEvent;
|
|
FOnRset:TSMTPRequestEvent;
|
|
FOnTime:TSMTPRequestEvent;
|
|
FOnNoop:TSMTPRequestEvent;
|
|
protected
|
procedure DoConnect(AThread:TWinsock2TCPServerThread); override;
|
|
procedure DoDisconnect(AThread:TWinsock2TCPServerThread); override;
|
|
|
|
function DoCheckHost(AThread:TWinsock2TCPServerThread):Boolean; virtual;
|
|
function DoCheckCount(AThread:TWinsock2TCPServerThread):Boolean; virtual;
|
|
|
|
function DoExecute(AThread:TWinsock2TCPServerThread):Boolean; override;
|
|
|
|
procedure DoConn(AThread:TWinsock2TCPServerThread);
|
|
procedure DoHelo(AThread:TWinsock2TCPServerThread; const AHost:String);
|
|
procedure DoEhlo(AThread:TWinsock2TCPServerThread; const AHost:String);
|
|
procedure DoAuth(AThread:TWinsock2TCPServerThread; const AParams:String);
|
|
procedure DoMail(AThread:TWinsock2TCPServerThread; const ASender:String);
|
|
procedure DoRcpt(AThread:TWinsock2TCPServerThread; const ARecipient:String);
|
|
procedure DoVrfy(AThread:TWinsock2TCPServerThread; const AAddress:String);
|
|
procedure DoBeginData(AThread:TWinsock2TCPServerThread);
|
|
procedure DoData(AThread:TWinsock2TCPServerThread; const AData:String);
|
|
procedure DoEndData(AThread:TWinsock2TCPServerThread);
|
|
procedure DoQuit(AThread:TWinsock2TCPServerThread);
|
|
procedure DoRset(AThread:TWinsock2TCPServerThread);
|
|
procedure DoTime(AThread:TWinsock2TCPServerThread);
|
|
procedure DoNoop(AThread:TWinsock2TCPServerThread);
|
|
|
|
function GetRequest(AThread:TWinsock2TCPServerThread;var ARequest:String):Boolean;
|
|
function SendReply(AThread:TWinsock2TCPServerThread;const AReply:String):Boolean;
|
|
public
|
property OnConnected:TSMTPConnectionEvent read FOnConnected write FOnConnected;
|
|
property OnDisconnected:TSMTPConnectionEvent read FOnDisconnected write FOnDisconnected;
|
|
|
|
property OnCheckHost:TSMTPHostEvent read FOnCheckHost write FOnCheckHost;
|
|
property OnCheckCount:TSMTPCountEvent read FOnCheckCount write FOnCheckCount;
|
|
|
|
property OnRequest:TSMTPNotifyEvent read FOnRequest write FOnRequest;
|
|
property OnReply:TSMTPNotifyEvent read FOnReply write FOnReply;
|
|
|
|
property OnConn:TSMTPRequestEvent read FOnConn write FOnConn;
|
|
property OnHelo:TSMTPRequestEvent read FOnHelo write FOnHelo;
|
|
property OnEhlo:TSMTPRequestEvent read FOnEhlo write FOnEhlo;
|
|
property OnAuth:TSMTPAuthenticateEvent read FOnAuth write FOnAuth;
|
|
property OnMail:TSMTPRequestEvent read FOnMail write FOnMail;
|
|
property OnRcpt:TSMTPRequestEvent read FOnRcpt write FOnRcpt;
|
|
property OnVrfy:TSMTPRequestEvent read FOnVrfy write FOnVrfy;
|
|
property OnBeginData:TSMTPRequestEvent read FOnBeginData write FOnBeginData;
|
|
property OnData:TSMTPRequestEvent read FOnData write FOnData;
|
|
property OnEndData:TSMTPRequestEvent read FOnEndData write FOnEndData;
|
|
property OnQuit:TSMTPRequestEvent read FOnQuit write FOnQuit;
|
|
property OnRset:TSMTPRequestEvent read FOnRset write FOnRset;
|
|
property OnTime:TSMTPRequestEvent read FOnTime write FOnTime;
|
|
property OnNoop:TSMTPRequestEvent read FOnNoop write FOnNoop;
|
|
Function declarations
[Expand]
constructor TSMTPListener.Create;
Description: To be documented
[Expand]
procedure TSMTPListener.DoConnect(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
procedure TSMTPListener.DoDisconnect(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
function TSMTPListener.DoCheckHost(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
[Expand]
function TSMTPListener.DoCheckCount(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
[Expand]
function TSMTPListener.DoExecute(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
[Expand]
procedure TSMTPListener.DoConn(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
procedure TSMTPListener.DoHelo(AThread:TWinsock2TCPServerThread; const AHost:String);
Description: To be documented
[Expand]
procedure TSMTPListener.DoEhlo(AThread:TWinsock2TCPServerThread; const AHost:String);
Description: To be documented
[Expand]
procedure TSMTPListener.DoAuth(AThread:TWinsock2TCPServerThread; const AParams:String);
Description: To be documented
[Expand]
procedure TSMTPListener.DoMail(AThread:TWinsock2TCPServerThread; const ASender:String);
Description: To be documented
[Expand]
procedure TSMTPListener.DoRcpt(AThread:TWinsock2TCPServerThread; const ARecipient:String);
Description: To be documented
[Expand]
procedure TSMTPListener.DoVrfy(AThread:TWinsock2TCPServerThread; const AAddress:String);
Description: To be documented
[Expand]
procedure TSMTPListener.DoBeginData(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
procedure TSMTPListener.DoData(AThread:TWinsock2TCPServerThread; const AData:String);
Description: To be documented
[Expand]
procedure TSMTPListener.DoEndData(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
procedure TSMTPListener.DoQuit(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
procedure TSMTPListener.DoRset(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
procedure TSMTPListener.DoTime(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
procedure TSMTPListener.DoNoop(AThread:TWinsock2TCPServerThread);
Description: To be documented
[Expand]
function TSMTPListener.GetRequest(AThread:TWinsock2TCPServerThread; var ARequest:String):Boolean;
Description: To be documented
[Expand]
function TSMTPListener.SendReply(AThread:TWinsock2TCPServerThread; const AReply:String):Boolean;
Description: To be documented
Return to Unit Reference
