Class TWebform (unit web)

Inherits from

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;

Private declarations


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