Class TCustomWSocket (unit WSockets)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

*** TCustomWSocket Class


Functions

destructor Destroy;


function GetAnySockAddrIn(Port: string; var SockAddrIn: TSockAddrIn): boolean;


function GetBroadcastSockAddrIn(Port: string; var SockAddrIn: TSockAddrIn): boolean;


function GetSockAddrIn(Host, Port: string; var SockAddrIn: TSockAddrIn): boolean;

Address and Port Resolving Helper Functions

function PeerToAddress(Socket: TSocket): string;


function PeerToName(Socket: TSocket): string;


function PeerToPort(Socket: TSocket): string;


function SockAddrInToAddress(SockAddrIn: TSockAddrIn): string;


function SockAddrInToName(SockAddrIn: TSockAddrIn): string;


function SockAddrInToPort(SockAddrIn: TSockAddrIn): string;


function SocketToAddress(Socket: TSocket): string;


function SocketToName(Socket: TSocket): string;


function SocketToPort(Socket: TSocket): string;


function GetLocalHostAddress: string;


function GetLocalHostName: string;


function LastErrorDesc: string;


procedure SocketClose(var Socket: TSocket; Handle: HWND);

Socket Helper Functions

procedure SocketError(Error: integer);


function SocketQueueSize(Socket: TSocket): longint;


function SocketRead(Socket: TSocket; Flag: integer): string;


function SocketReadBuffer(Socket: TSocket; Buffer: Pointer; Size, Flag: integer): integer;


function SocketReadBufferFrom(Socket: TSocket; Buffer: Pointer; Size, Flag: integer; var SockAddrIn: TSockAddrIn): integer;


function SocketReadFrom(Socket: TSocket; Flag: integer; var SockAddrIn: TSockAddrIn): string;


procedure SocketWrite(Socket: TSocket; Flag: integer; Data: string);


function SocketWriteBuffer(Socket: TSocket; Buffer: Pointer; Size, Flag: integer): integer;


function SocketWriteBufferTo(Socket: TSocket; Buffer: Pointer; Size, Flag: integer; var SockAddrIn: TSockAddrIn): integer;


procedure SocketWriteTo(Socket: TSocket; Flag: integer; Data: string; var SockAddrIn: TSockAddrIn);


Properties

property Description : string


property LastError : integer


property LocalHostAddress : string


property LocalHostName : string


property LocalSocket : TSocket

End WinSocket Information Properties

property MaxSockets : integer


property MaxUDPSize : integer


property SocketState : TSocketState


property SystemStatus : string


property Version : string

WinSocket Information Properties

Events

event OnError : TOnError


Variables

FDescription : string;


FLastError : integer;


FLocalSocket : TSocket;


FMaxSockets : integer;


FMaxUDPSize : integer;


FOnError : TOnError;


FProtocol : integer;

End WinSocket Information Private Fields

FReadBuffer : TReadBuffer;


FSocketState : TSocketState;


FSystemStatus : string;


FType : integer;


FVersion : string;

WinSocket Information Private Fields


Constructors


constructor Create(AOwner: TComponent);

*** TCustomWSocket Class


Functions


destructor Destroy;


function GetAnySockAddrIn(Port: string; var SockAddrIn: TSockAddrIn): boolean;


function GetBroadcastSockAddrIn(Port: string; var SockAddrIn: TSockAddrIn): boolean;


function GetSockAddrIn(Host, Port: string; var SockAddrIn: TSockAddrIn): boolean;

Address and Port Resolving Helper Functions


function PeerToAddress(Socket: TSocket): string;


function PeerToName(Socket: TSocket): string;


function PeerToPort(Socket: TSocket): string;


function SockAddrInToAddress(SockAddrIn: TSockAddrIn): string;


function SockAddrInToName(SockAddrIn: TSockAddrIn): string;


function SockAddrInToPort(SockAddrIn: TSockAddrIn): string;


function SocketToAddress(Socket: TSocket): string;


function SocketToName(Socket: TSocket): string;


function SocketToPort(Socket: TSocket): string;


function GetLocalHostAddress: string;


function GetLocalHostName: string;


function LastErrorDesc: string;


procedure SocketClose(var Socket: TSocket; Handle: HWND);

Socket Helper Functions


procedure SocketError(Error: integer);


function SocketQueueSize(Socket: TSocket): longint;


function SocketRead(Socket: TSocket; Flag: integer): string;


function SocketReadBuffer(Socket: TSocket; Buffer: Pointer; Size, Flag: integer): integer;


function SocketReadBufferFrom(Socket: TSocket; Buffer: Pointer; Size, Flag: integer; var SockAddrIn: TSockAddrIn): integer;


function SocketReadFrom(Socket: TSocket; Flag: integer; var SockAddrIn: TSockAddrIn): string;


procedure SocketWrite(Socket: TSocket; Flag: integer; Data: string);


function SocketWriteBuffer(Socket: TSocket; Buffer: Pointer; Size, Flag: integer): integer;


function SocketWriteBufferTo(Socket: TSocket; Buffer: Pointer; Size, Flag: integer; var SockAddrIn: TSockAddrIn): integer;


procedure SocketWriteTo(Socket: TSocket; Flag: integer; Data: string; var SockAddrIn: TSockAddrIn);


Properties


property Description : string


property LastError : integer


property LocalHostAddress : string


property LocalHostName : string


property LocalSocket : TSocket

End WinSocket Information Properties


property MaxSockets : integer


property MaxUDPSize : integer


property SocketState : TSocketState


property SystemStatus : string


property Version : string

WinSocket Information Properties


Events


event OnError : TOnError


Variables


FDescription : string;


FLastError : integer;


FLocalSocket : TSocket;


FMaxSockets : integer;


FMaxUDPSize : integer;


FOnError : TOnError;


FProtocol : integer;

End WinSocket Information Private Fields


FReadBuffer : TReadBuffer;


FSocketState : TSocketState;


FSystemStatus : string;


FType : integer;


FVersion : string;

WinSocket Information Private Fields