Class TTCPServer (unit WSockets)

Inherits from

TCustomWSocket

Constructors


constructor Create(AOwner: TComponent);

*** TTCPServer Class


Functions

procedure Close;


destructor Destroy;


procedure Disconnect(Socket: TSocket);


procedure Open;


function Peek(Socket: TSocket): string;


function Read(Socket: TSocket): string;


function ReadBuffer(Socket: TSocket; Buffer: Pointer; Size: integer): integer;


procedure Write(Socket: TSocket; Data: string);


function WriteBuffer(Socket: TSocket; Buffer: Pointer; Size: integer): integer;


procedure CloseConnection(Socket: TSocket; Error: word);

Enable OOB Data inline

procedure IncommingData(Socket: TSocket; Error: word);


procedure OpenConnection(Socket: TSocket; Error: word);


procedure WndProc(var AMsg: TMessage);


Properties

property Port : string


property Clients : TClientList


property Handle : HWND


Events

event OnAccept : TOnAccept


event OnClose : TOnClose


event OnData : TOnData


Variables

FClients : TClientList;


FHandle : HWND;


FOnAccept : TOnAccept;


FOnClose : TOnClose;


FOnData : TOnData;


FPort : string;



Constructors


constructor Create(AOwner: TComponent);

*** TTCPServer Class


Functions


procedure Close;


destructor Destroy;


procedure Disconnect(Socket: TSocket);


procedure Open;


function Peek(Socket: TSocket): string;


function Read(Socket: TSocket): string;


function ReadBuffer(Socket: TSocket; Buffer: Pointer; Size: integer): integer;


procedure Write(Socket: TSocket; Data: string);


function WriteBuffer(Socket: TSocket; Buffer: Pointer; Size: integer): integer;


procedure CloseConnection(Socket: TSocket; Error: word);

Enable OOB Data inline


procedure IncommingData(Socket: TSocket; Error: word);


procedure OpenConnection(Socket: TSocket; Error: word);


procedure WndProc(var AMsg: TMessage);


Properties


property Port : string


property Clients : TClientList


property Handle : HWND


Events


event OnAccept : TOnAccept


event OnClose : TOnClose


event OnData : TOnData


Variables


FClients : TClientList;


FHandle : HWND;


FOnAccept : TOnAccept;


FOnClose : TOnClose;


FOnData : TOnData;


FPort : string;