Class TClientForm (unit Tnsrv2)

Inherits from

TForm

Client user (remote) has disconnected

Constructors



Functions

procedure Button1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DisconnectButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Display(Msg : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This procedure display text in a memo control.

procedure FormCreate(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormDestroy(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormResize(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Adjust the position for each control in the form as the user resize it

procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SendButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SocketDataAvailable(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* Event handler for datavailable.

procedure SocketSessionClosed(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* Event handler called when the remote has closed the connection

procedure CommandInterpreter;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This is the command line interpreter.

procedure POP3_Interpreter(CommandVerb : String; CommandTail : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Not a real POP3 command interpreter, just enough for me to test my POP3 } { component.

procedure ProcessChar(Ch : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* Process each charcter received to do minimal line editing

procedure SMTP_Interpreter(CommandVerb : String; CommandTail : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Not a real SMTP command interpreter, just enough for me to test my SMTP } { component.

procedure TELNET_Interpreter(CommandVerb : String; CommandTail : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Not a real TELNET command interpreter, just enough to see how it could } { be implemented.

Properties

Events

Variables

Button1 : TButton;


DataEdit : TEdit;


DisconnectButton : TButton;


Memo : TMemo;


SendButton : TButton;


Socket : TWSocket;


AcceptForm : TForm;


PortNum : Integer;


Reference : Pointer;


FCommand : String;


FRcvdCR : Boolean;



Constructors


Functions


procedure Button1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DisconnectButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Display(Msg : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This procedure display text in a memo control. } { I should add code to remove lines when there are too much of them...


procedure FormCreate(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormDestroy(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormResize(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Adjust the position for each control in the form as the user resize it


procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SendButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SocketDataAvailable(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* Event handler for datavailable. Called each time some data is received


procedure SocketSessionClosed(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* Event handler called when the remote has closed the connection


procedure CommandInterpreter;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This is the command line interpreter. Should extend the code to support } { every command needed...


procedure POP3_Interpreter(CommandVerb : String; CommandTail : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Not a real POP3 command interpreter, just enough for me to test my POP3 } { component.


procedure ProcessChar(Ch : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* Process each charcter received to do minimal line editing


procedure SMTP_Interpreter(CommandVerb : String; CommandTail : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Not a real SMTP command interpreter, just enough for me to test my SMTP } { component.


procedure TELNET_Interpreter(CommandVerb : String; CommandTail : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Not a real TELNET command interpreter, just enough to see how it could } { be implemented.


Properties


Events


Variables


Button1 : TButton;


DataEdit : TEdit;


DisconnectButton : TButton;


Memo : TMemo;


SendButton : TButton;


Socket : TWSocket;


AcceptForm : TForm;


PortNum : Integer;


Reference : Pointer;


FCommand : String;


FRcvdCR : Boolean;