Difference between revisions of "TSMTPConnection"

From Ultibo.org
Jump to: navigation, search
(Created page with "Return to Unit SMTP __TOC__ === Description === ---- ''To be documented'' === Class definitions === ---- <div class="toccolours mw-collapsible mw-collapse...")
 
 
Line 34: Line 34:
 
|colspan="2"|&nbsp;
 
|colspan="2"|&nbsp;
 
|-
 
|-
−
| <code>FHandle:LongWord;</code>
+
| <code>FHandle:THandle;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
Line 90: Line 90:
 
|colspan="2"|&nbsp;
 
|colspan="2"|&nbsp;
 
|-
 
|-
−
| <code>procedure SetHandle(AHandle:LongWord);</code>
+
| <code>procedure SetHandle(AHandle:THandle);</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
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>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
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


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

Retrieved from "https://ultibo.org/mediawiki_ultibo_org/index.php?title=TSMTPConnection&oldid=4747"