Class TServerForm (unit mtsrv1)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

ClientListBox : TListBox;


DisconnectAllButton : TButton;


DisconnectButton : TButton;


QuitButton : TButton;


ServerWSocket : TWSocket;



Constructors


Functions


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


Properties


Events


Variables


ClientListBox : TListBox;


DisconnectAllButton : TButton;


DisconnectButton : TButton;


QuitButton : TButton;


ServerWSocket : TWSocket;