Class TClientForm (unit cli5) |
Inherits from
TForm
procedure CliSocketDataAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CliSocketSessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler gets called when the server's connection is broken *} {* Either by us or by the server.
procedure CliSocketSessionConnected(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler gets called when we connected the server
procedure ConnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* The user has clicked on the connect button.
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* The user has clicked the disconnect button.
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure IPButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ReadLineButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CliSocket : TWSocket;
ConnectButton : TButton;
DataLabel : TLabel;
DisconnectButton : TButton;
InfoLabel : TLabel;
IPButton : TButton;
ReadLineButton : TButton;
Wait1 : TWait;
procedure CliSocketDataAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CliSocketSessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler gets called when the server's connection is broken *} {* Either by us or by the server.
procedure CliSocketSessionConnected(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* This event handler gets called when we connected the server
procedure ConnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* The user has clicked on the connect button...
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* The user has clicked the disconnect button...
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure IPButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ReadLineButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CliSocket : TWSocket;
ConnectButton : TButton;
DataLabel : TLabel;
DisconnectButton : TButton;
InfoLabel : TLabel;
IPButton : TButton;
ReadLineButton : TButton;
Wait1 : TWait;