| Class TWebform (unit web) |
TForm
| Constructors |
| Functions |
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Sockets1DataAvailable(Sender: TObject; Socket: Integer);
procedure Sockets1ErrorOccurred(Sender: TObject; Socket: integer; Error: Integer;
Msg: string);
procedure Sockets1SessionAvailable(Sender: TObject; Socket: Integer);
procedure Sockets1SessionClosed(Sender: TObject; Socket: Integer);
procedure Command(Socket: integer; cmd: string);
procedure DropClient(Socket: integer);
function FindClient(Socket: integer): integer;
function GetClient(Socket: integer): PClientRec;
procedure Log(clnt: PClientRec; Status: integer);
procedure ProcessReq(Socket: integer);
procedure SendCannedMsg(Socket: integer; msg: string);| Properties |
| Events |
| Variables |
Memo1 : TMemo;
Sockets1 : TSockets;
m_Clients : TList;| Constructors |
| Functions |
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Sockets1DataAvailable(Sender: TObject; Socket: Integer);
procedure Sockets1ErrorOccurred(Sender: TObject; Socket: integer; Error: Integer;
Msg: string);
procedure Sockets1SessionAvailable(Sender: TObject; Socket: Integer);
procedure Sockets1SessionClosed(Sender: TObject; Socket: Integer);
procedure Command(Socket: integer; cmd: string);
procedure DropClient(Socket: integer);
function FindClient(Socket: integer): integer;
function GetClient(Socket: integer): PClientRec;
procedure Log(clnt: PClientRec; Status: integer);
procedure ProcessReq(Socket: integer);
procedure SendCannedMsg(Socket: integer; msg: string);| Properties |
| Events |
| Variables |
Memo1 : TMemo;
Sockets1 : TSockets;
m_Clients : TList;Private declarations