| Class TClientForm (unit Tnsrv2) |
TForm
Client user (remote) has disconnected
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure DisconnectButtonClick(Sender: TObject);
procedure Display(Msg : String);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SendButtonClick(Sender: TObject);
procedure SocketDataAvailable(Sender: TObject; Error: Word);
procedure SocketSessionClosed(Sender: TObject; Error: Word);
procedure CommandInterpreter;
procedure POP3_Interpreter(CommandVerb : String; CommandTail : String);
procedure ProcessChar(Ch : Char);
procedure SMTP_Interpreter(CommandVerb : String; CommandTail : String);
procedure TELNET_Interpreter(CommandVerb : String; CommandTail : String);| 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;