Class TClientForm (unit Tnsrv2) |
Inherits from
TForm
Client user (remote) has disconnected
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.
Button1 : TButton;
DataEdit : TEdit;
DisconnectButton : TButton;
Memo : TMemo;
SendButton : TButton;
Socket : TWSocket;
AcceptForm : TForm;
PortNum : Integer;
Reference : Pointer;
FCommand : String;
FRcvdCR : Boolean;
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.
Button1 : TButton;
DataEdit : TEdit;
DisconnectButton : TButton;
Memo : TMemo;
SendButton : TButton;
Socket : TWSocket;
AcceptForm : TForm;
PortNum : Integer;
Reference : Pointer;
FCommand : String;
FRcvdCR : Boolean;