| Class TTCPServer (unit WSockets) |
| Constructors |
constructor Create(AOwner: TComponent);| 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);
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;