| Class TSrvForm (unit Srv1) |
TForm
| Constructors |
| Functions |
procedure FormShow(Sender: TObject);
procedure SrvSocketSessionAvailable(Sender: TObject; Error: Word);
procedure WMUser(var msg: TMessage);| Properties |
| Events |
| Variables |
ClientListBox : TListBox;
DataTable : TTable;
SrvSocket : TWSocket;
Initialized : Boolean;| Constructors |
| Functions |
procedure FormShow(Sender: TObject);
procedure SrvSocketSessionAvailable(Sender: TObject; Error: Word);
procedure WMUser(var msg: TMessage);| Properties |
| Events |
| Variables |
ClientListBox : TListBox;
DataTable : TTable;
SrvSocket : TWSocket;
Initialized : Boolean;Déclarations privées