Class TCliForm (unit SrvDemo2)

Inherits from

TForm

Constructors



Functions

procedure CliSocketDataAvailable(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure CliSocketSessionClosed(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DisconnectButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SendButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure ProcessCommand(Cmd : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

Events

Variables

CliSocket : TWSocket;


DisconnectButton : TButton;


DisplayMemo : TMemo;


LineLabel : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


SendButton : TButton;


SendEdit : TEdit;


DataTable : TTable;

Déclarations publiques

Buffer : array [0..1023] of char;


Count : Integer;


Initialized : Boolean;

Déclarations privées


Constructors


Functions


procedure CliSocketDataAvailable(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure CliSocketSessionClosed(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DisconnectButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SendButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure ProcessCommand(Cmd : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


Events


Variables


CliSocket : TWSocket;


DisconnectButton : TButton;


DisplayMemo : TMemo;


LineLabel : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


SendButton : TButton;


SendEdit : TEdit;


DataTable : TTable;

Déclarations publiques


Buffer : array [0..1023] of char;


Count : Integer;


Initialized : Boolean;

Déclarations privées