Class TServerForm (unit mtsrv1) |
Inherits from
TForm
procedure DisconnectAllButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event is generated when the user clicks on the 'Disconnect' button } { when he wants to disconnect the selected client in the listbox.
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure QuitButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ServerWSocketSessionAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event is generated when a client is connecting
procedure ClientThreadTerminate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when one of the client thread terminate } { We will find this thread in our listbox, remove it and destroy the } { TWSocket object use by the corresponding client.
procedure DisconnectAll;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This procedure scan the listbox and halt every ClientThread
ClientListBox : TListBox;
DisconnectAllButton : TButton;
DisconnectButton : TButton;
QuitButton : TButton;
ServerWSocket : TWSocket;
procedure DisconnectAllButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event is generated when the user clicks on the 'Disconnect' button } { when he wants to disconnect the selected client in the listbox.
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure QuitButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ServerWSocketSessionAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event is generated when a client is connecting
procedure ClientThreadTerminate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when one of the client thread terminate } { We will find this thread in our listbox, remove it and destroy the } { TWSocket object use by the corresponding client.
procedure DisconnectAll;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This procedure scan the listbox and halt every ClientThread
ClientListBox : TListBox;
DisconnectAllButton : TButton;
DisconnectButton : TButton;
QuitButton : TButton;
ServerWSocket : TWSocket;