TSMTPConnection

Return to Unit SMTP

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;`