TSMTPListener

From Ultibo.org
Jump to: navigation, search

Return to Unit SMTP


Description


To be documented

Class definitions



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



constructor TSMTPListener.Create;
Description: To be documented
Note None documented


procedure TSMTPListener.DoConnect(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TSMTPListener.DoDisconnect(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


function TSMTPListener.DoCheckHost(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
Note None documented


function TSMTPListener.DoCheckCount(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
Note None documented


function TSMTPListener.DoExecute(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
Note None documented


procedure TSMTPListener.DoConn(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TSMTPListener.DoHelo(AThread:TWinsock2TCPServerThread; const AHost:String);
Description: To be documented
Note None documented


procedure TSMTPListener.DoEhlo(AThread:TWinsock2TCPServerThread; const AHost:String);
Description: To be documented
Note None documented


procedure TSMTPListener.DoAuth(AThread:TWinsock2TCPServerThread; const AParams:String);
Description: To be documented
Note None documented


procedure TSMTPListener.DoMail(AThread:TWinsock2TCPServerThread; const ASender:String);
Description: To be documented
Note None documented


procedure TSMTPListener.DoRcpt(AThread:TWinsock2TCPServerThread; const ARecipient:String);
Description: To be documented
Note None documented


procedure TSMTPListener.DoVrfy(AThread:TWinsock2TCPServerThread; const AAddress:String);
Description: To be documented
Note None documented


procedure TSMTPListener.DoBeginData(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TSMTPListener.DoData(AThread:TWinsock2TCPServerThread; const AData:String);
Description: To be documented
Note None documented


procedure TSMTPListener.DoEndData(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TSMTPListener.DoQuit(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TSMTPListener.DoRset(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TSMTPListener.DoTime(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TSMTPListener.DoNoop(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


function TSMTPListener.GetRequest(AThread:TWinsock2TCPServerThread; var ARequest:String):Boolean;
Description: To be documented
Note None documented


function TSMTPListener.SendReply(AThread:TWinsock2TCPServerThread; const AReply:String):Boolean;
Description: To be documented
Note None documented


Return to Unit Reference