|
|
| Line 34: |
Line 34: |
| | |colspan="2"| | | |colspan="2"| |
| | |- | | |- |
| − | | <code>FHandle:LongWord;</code> | + | | <code>FHandle:THandle;</code> |
| | | | | | |
| | |- | | |- |
| Line 90: |
Line 90: |
| | |colspan="2"| | | |colspan="2"| |
| | |- | | |- |
| − | | <code>procedure SetHandle(AHandle:LongWord);</code> | + | | <code>procedure SetHandle(AHandle:THandle);</code> |
| | | | | | |
| | |- | | |- |
| Line 162: |
Line 162: |
| | |colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div> | | |colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div> |
| | |- | | |- |
| − | | <code>property Handle:LongWord read FHandle write SetHandle;</code> | + | | <code>property Handle:THandle read FHandle write SetHandle;</code> |
| | | | | | |
| | |- | | |- |
| Line 279: |
Line 279: |
| | <br /> | | <br /> |
| | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> | | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> |
| − | <pre style="border: 0; padding-bottom:0px;">procedure TSMTPConnection.SetHandle(AHandle:LongWord);</pre> | + | <pre style="border: 0; padding-bottom:0px;">procedure TSMTPConnection.SetHandle(AHandle:THandle);</pre> |
| | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> | | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> |
| | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> | | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> |
Latest revision as of 06:08, 15 June 2021
Return to Unit SMTP
Description
To be documented
Class definitions
[Expand]
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
[Expand]
constructor TSMTPConnection.Create;
Description: To be documented
[Expand]
destructor TSMTPConnection.Destroy;
Description: To be documented
[Expand]
function TSMTPConnection.AcquireLock:Boolean;
Description: To be documented
[Expand]
function TSMTPConnection.ReleaseLock:Boolean;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetHandle(AHandle:THandle);
Description: To be documented
[Expand]
function TSMTPConnection.GetRxByteCount:Int64;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetRxByteCount(const ARxByteCount:Int64);
Description: To be documented
[Expand]
function TSMTPConnection.GetTxByteCount:Int64;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetTxByteCount(const ATxByteCount:Int64);
Description: To be documented
[Expand]
function TSMTPConnection.GetRequestCount:Int64;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetRequestCount(const ARequestCount:Int64);
Description: To be documented
[Expand]
function TSMTPConnection.GetReplyCount:Int64;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetReplyCount(const AReplyCount:Int64);
Description: To be documented
[Expand]
function TSMTPConnection.GetRequestTime:TDateTime;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetRequestTime(const ARequestTime:TDateTime);
Description: To be documented
[Expand]
function TSMTPConnection.GetReplyTime:TDateTime;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetReplyTime(const AReplyTime:TDateTime);
Description: To be documented
[Expand]
function TSMTPConnection.GetRemoteAddress:String;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetRemoteAddress(const ARemoteAddress:String);
Description: To be documented
[Expand]
procedure TSMTPConnection.SetStatus(AStatus:LongWord);
Description: To be documented
[Expand]
procedure TSMTPConnection.SetAuthenticated(AAuthenticated:Boolean);
Description: To be documented
[Expand]
function TSMTPConnection.GetUsername:String;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetUsername(const AUsername:String);
Description: To be documented
[Expand]
function TSMTPConnection.GetPassword:String;
Description: To be documented
[Expand]
procedure TSMTPConnection.SetPassword(const APassword:String);
Description: To be documented
[Expand]
procedure TSMTPConnection.SetThread(AThread:TThread);
Description: To be documented
[Expand]
procedure TSMTPConnection.IncrementRxByteCount(const ARxByteCount:Int64);
Description: To be documented
[Expand]
procedure TSMTPConnection.IncrementTxByteCount(const ATxByteCount:Int64);
Description: To be documented
[Expand]
procedure TSMTPConnection.IncrementRequestCount;
Description: To be documented
[Expand]
procedure TSMTPConnection.IncrementReplyCount;
Description: To be documented
Return to Unit Reference
