Class TSockets (unit Socket16)

Inherits from

TWinControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


function GetBlocking: Boolean;


function GetIPAddr(aSocket: TSocket): string;


function GetPeerIPAddr(aSocket: TSocket): string;


function GetPeerPort(aSocket: TSocket): string;


function GetPort(aSocket: TSocket): string;


function SAccept: TSocket;


procedure SCancelListen;


procedure SClose;


procedure SConnect;

I'd like to call these methods Connect, Close, Listen, etc but they would conflict with the WinSock.

procedure SetBlocking(flag: Boolean);


procedure SListen;


function SReceive(aSocket: TSocket; szBuff: PChar; var rlen: integer): integer;


function SSend(aSocket: TSocket;szBuff: PChar; var slen: integer): integer;


procedure WMASyncSelect(var msg: TMessage);


procedure WMTimer(var msg: TMessage);


function GetText : string;


function GetTextOOB : string;


function PeekData : string;


procedure ResetTimeout;


procedure SetText(Text: string);


procedure SetTextOOB(Text: string);


procedure SetTimeout;


procedure SocketError(sockfunc: string);


function SocketErrorDesc(error: integer) : string;


procedure TWMPaint(var msg:TWMPaint);


Properties

property IPAddr : string


property NonBlocking : Boolean


property Port : string


property Timeout : integer


property MasterSocket : TSocket


property OOB : string


property Peek : string


property SocketNumber : TSocket


property Text : string


Events

event OnDataAvailable : TDataAvailable


event OnErrorOccurred : TErrorOccurred


event OnSessionAvailable : TSessionAvailable


event OnSessionClosed : TSessionClosed


event OnSessionConnected : TSessionConnected


Variables

FDataAvailable : TDataAvailable;


FErrorOccurred : TErrorOccurred;


FIPAddr : String;


FMode : longint;


FMSocket : TSocket;


FPort : String;


FSessionAvailable : TSessionAvailable;


FSessionClosed : TSessionClosed;


FSessionConnected : TSessionConnected;


FSocket : TSocket;


FTimeout : integer;


initdata : WSADATA;


Phe : Phostent;


Ppe : Pprotoent;


Pse : Pservent;


sin : sockaddr_in;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


function GetBlocking: Boolean;


function GetIPAddr(aSocket: TSocket): string;


function GetPeerIPAddr(aSocket: TSocket): string;


function GetPeerPort(aSocket: TSocket): string;


function GetPort(aSocket: TSocket): string;


function SAccept: TSocket;


procedure SCancelListen;


procedure SClose;


procedure SConnect;

I'd like to call these methods Connect, Close, Listen, etc but they would conflict with the WinSock.DLL function names !


procedure SetBlocking(flag: Boolean);


procedure SListen;


function SReceive(aSocket: TSocket; szBuff: PChar; var rlen: integer): integer;


function SSend(aSocket: TSocket;szBuff: PChar; var slen: integer): integer;


procedure WMASyncSelect(var msg: TMessage);


procedure WMTimer(var msg: TMessage);


function GetText : string;


function GetTextOOB : string;


function PeekData : string;


procedure ResetTimeout;


procedure SetText(Text: string);


procedure SetTextOOB(Text: string);


procedure SetTimeout;


procedure SocketError(sockfunc: string);


function SocketErrorDesc(error: integer) : string;


procedure TWMPaint(var msg:TWMPaint);


Properties


property IPAddr : string


property NonBlocking : Boolean


property Port : string


property Timeout : integer


property MasterSocket : TSocket


property OOB : string


property Peek : string


property SocketNumber : TSocket


property Text : string


Events


event OnDataAvailable : TDataAvailable


event OnErrorOccurred : TErrorOccurred


event OnSessionAvailable : TSessionAvailable


event OnSessionClosed : TSessionClosed


event OnSessionConnected : TSessionConnected


Variables


FDataAvailable : TDataAvailable;


FErrorOccurred : TErrorOccurred;


FIPAddr : String;


FMode : longint;


FMSocket : TSocket;


FPort : String;


FSessionAvailable : TSessionAvailable;


FSessionClosed : TSessionClosed;


FSessionConnected : TSessionConnected;


FSocket : TSocket;


FTimeout : integer;


initdata : WSADATA;


Phe : Phostent;


Ppe : Pprotoent;


Pse : Pservent;


sin : sockaddr_in;