Class TServerForm (unit srv5)

Inherits from

TForm

Constructors



Functions

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.

Properties

Events

Variables

CliSocket : TWSocket;


DisconnectButton : TButton;


InfoLabel : TLabel;


SrvSocket : TWSocket;



Constructors


Functions


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.


Properties


Events


Variables


CliSocket : TWSocket;


DisconnectButton : TButton;


InfoLabel : TLabel;


SrvSocket : TWSocket;