Class TServerForm (unit srv5) |
Inherits from
TForm
procedure CliSocketSessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler is called once the client connection is broken.
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler is called once the user clicks on Ddisconnect
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SrvSocketSessionAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler is called once a client has connected the server.
CliSocket : TWSocket;
DisconnectButton : TButton;
InfoLabel : TLabel;
SrvSocket : TWSocket;
procedure CliSocketSessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler is called once the client connection is broken. *} {* Either by the client or the server.
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler is called once the user clicks on Ddisconnect
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SrvSocketSessionAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler is called once a client has connected the server.
CliSocket : TWSocket;
DisconnectButton : TButton;
InfoLabel : TLabel;
SrvSocket : TWSocket;