TSMTPConnection

From Ultibo.org
Jump to: navigation, search

Return to Unit SMTP


Description


To be documented

Class definitions



TSMTPConnection = class(TListObject)

public
constructor Create;  
destructor Destroy; override;  
private
FLock:TCriticalSectionHandle;  
 
FHandle:THandle;  
FRxByteCount:Int64; Bytes Recv Count from Connection
FTxByteCount:Int64; Bytes Sent Count to Connection
FRequestCount:Int64; Requests Recv Count from Connection
FReplyCount:Int64; Replies Sent Count to Connection
FRequestTime:TDateTime; Last Request Time
FReplyTime:TDateTime; Last Reply Time
FRemoteAddress:String; Address of Remote Client
FStatus:LongWord; None,Conn,Auth,Helo,Mail,Rcpt,Data etc
 
FAuthenticated:Boolean; Current authentication state
FUsername:String; Current Username
FPassword:String; Current Password
 
FThread:TThread; TWinsock2TCPServerThread
FBuffer:TSMTPBuffer; Buffer for received data
 
function AcquireLock:Boolean;  
function ReleaseLock:Boolean;  
 
procedure SetHandle(AHandle:THandle);  
function GetRxByteCount:Int64;  
procedure SetRxByteCount(const ARxByteCount:Int64);  
function GetTxByteCount:Int64;  
procedure SetTxByteCount(const ATxByteCount:Int64);  
function GetRequestCount:Int64;  
procedure SetRequestCount(const ARequestCount:Int64);  
function GetReplyCount:Int64;  
procedure SetReplyCount(const AReplyCount:Int64);  
function GetRequestTime:TDateTime;  
procedure SetRequestTime(const ARequestTime:TDateTime);  
function GetReplyTime:TDateTime;  
procedure SetReplyTime(const AReplyTime:TDateTime);  
function GetRemoteAddress:String;  
procedure SetRemoteAddress(const ARemoteAddress:String);  
procedure SetStatus(AStatus:LongWord);  
 
procedure SetAuthenticated(AAuthenticated:Boolean);  
function GetUsername:String;  
procedure SetUsername(const AUsername:String);  
function GetPassword:String;  
procedure SetPassword(const APassword:String);  
 
procedure SetThread(AThread:TThread);  
public
property Handle:THandle read FHandle write SetHandle;  
property RxByteCount:Int64 read GetRxByteCount write SetRxByteCount;  
property TxByteCount:Int64 read GetTxByteCount write SetTxByteCount;  
property RequestCount:Int64 read GetRequestCount write SetRequestCount;  
property ReplyCount:Int64 read GetReplyCount write SetReplyCount;  
property RequestTime:TDateTime read GetRequestTime write SetRequestTime;  
property ReplyTime:TDateTime read GetReplyTime write SetReplyTime;  
property RemoteAddress:String read GetRemoteAddress write SetRemoteAddress;  
property Status:LongWord read FStatus write SetStatus;  
 
property Authenticated:Boolean read FAuthenticated write SetAuthenticated;  
property Username:String read GetUsername write SetUsername;  
property Password:String read GetPassword write SetPassword;  
 
property Thread:TThread read FThread write SetThread;  
property Buffer:TSMTPBuffer read FBuffer;  
 
procedure IncrementRxByteCount(const ARxByteCount:Int64);  
procedure IncrementTxByteCount(const ATxByteCount:Int64);  
procedure IncrementRequestCount;  
procedure IncrementReplyCount;  


Function declarations



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


destructor TSMTPConnection.Destroy;
Description: To be documented
Note None documented


function TSMTPConnection.AcquireLock:Boolean;
Description: To be documented
Note None documented


function TSMTPConnection.ReleaseLock:Boolean;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetHandle(AHandle:THandle);
Description: To be documented
Note None documented


function TSMTPConnection.GetRxByteCount:Int64;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetRxByteCount(const ARxByteCount:Int64);
Description: To be documented
Note None documented


function TSMTPConnection.GetTxByteCount:Int64;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetTxByteCount(const ATxByteCount:Int64);
Description: To be documented
Note None documented


function TSMTPConnection.GetRequestCount:Int64;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetRequestCount(const ARequestCount:Int64);
Description: To be documented
Note None documented


function TSMTPConnection.GetReplyCount:Int64;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetReplyCount(const AReplyCount:Int64);
Description: To be documented
Note None documented


function TSMTPConnection.GetRequestTime:TDateTime;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetRequestTime(const ARequestTime:TDateTime);
Description: To be documented
Note None documented


function TSMTPConnection.GetReplyTime:TDateTime;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetReplyTime(const AReplyTime:TDateTime);
Description: To be documented
Note None documented


function TSMTPConnection.GetRemoteAddress:String;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetRemoteAddress(const ARemoteAddress:String);
Description: To be documented
Note None documented


procedure TSMTPConnection.SetStatus(AStatus:LongWord);
Description: To be documented
Note None documented


procedure TSMTPConnection.SetAuthenticated(AAuthenticated:Boolean);
Description: To be documented
Note None documented


function TSMTPConnection.GetUsername:String;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetUsername(const AUsername:String);
Description: To be documented
Note None documented


function TSMTPConnection.GetPassword:String;
Description: To be documented
Note None documented


procedure TSMTPConnection.SetPassword(const APassword:String);
Description: To be documented
Note None documented


procedure TSMTPConnection.SetThread(AThread:TThread);
Description: To be documented
Note None documented


procedure TSMTPConnection.IncrementRxByteCount(const ARxByteCount:Int64);
Description: To be documented
Note None documented


procedure TSMTPConnection.IncrementTxByteCount(const ATxByteCount:Int64);
Description: To be documented
Note None documented


procedure TSMTPConnection.IncrementRequestCount;
Description: To be documented
Note None documented


procedure TSMTPConnection.IncrementReplyCount;
Description: To be documented
Note None documented


Return to Unit Reference