Class TAsyncSocket (unit TJSocket)

Inherits from

TObject

Constructors


constructor Create;

TREAT_AS_OBJECT TREAT_AS_COMPONENT {$IFDEF TREAT_AS_OBJECT


Functions

procedure AllocateSocket;

function TAsyncSocket.

procedure DeInitialize;

For an unknown reason, if a call is made to GetHostByName and it should fail, the following call to GetHostByAddr will not fail, but return '>' in the place of the host name.

destructor Destroy;

TREAT_AS_OBJECT TREAT_AS_COMPONENT

constructor TAsyncSocket.


procedure DoAccept(var AcceptSocket: TAsyncSocket);

procedure TAsyncSocket.

procedure DoClose;

procedure TAsyncSocket.

procedure DoConnect;

procedure TAsyncSocket.

function DoGetHostByAddr(IPAddress: PChar): String;


function DoGetHostByName(Name: PChar): String;

procedure TAsyncSocket.

procedure DoListen;

procedure TAsyncSocket.

procedure DoReceive(Buffer: Pointer; var ReceiveLen: LongInt);

procedure TAsyncSocket.

procedure DoSend(Buffer: Pointer; var SendLen: LongInt);

TAsyncSocket.

function ErrorTest(Evaluation: LongInt): LongInt;

procedure TAsyncSocket.

function ErrToStr(Err: LongInt): String;

procedure TAsyncSocket.

function GetIPAddress: String;

destructor TAsyncSocket.

function GetPortNumber: LongInt;

function TAsyncSocket.

procedure HWndProcedure(var Message: TMessage);

Message Handlers

procedure Initialize;

function ErrorTest(Evaluation: LongInt): LongInt;

procedure KillWinsockBug;

procedure TAsyncSocket.

procedure Message_Accept(var Message: TWMSocket);

procedure TAsyncSocket.

procedure Message_Close(var Message: TWMSocket);

procedure TAsyncSocket.

procedure Message_Connect(var Message: TWMSocket);

procedure TAsyncSocket.

procedure Message_Error(var Message: TWMSocket);

TREAT_AS_OBJECT

procedure Message_Listen(var Message: TWMSocket);

procedure TAsyncSocket.

procedure Message_OOB(var Message: TWMSocket);

procedure TAsyncSocket.

procedure Message_Read(var Message: TWMSocket);

procedure TAsyncSocket.

procedure Message_Write(var Message: TWMSocket);

procedure TAsyncSocket.

procedure OnAccept(SocketMessage: TWMSocket);


procedure OnClose(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS

procedure OnConnect(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS

procedure OnError(SocketMessage: TWMSocket);

procedure TAsyncSocket.

procedure OnListen(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS

procedure OnOOB(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS

procedure OnRead(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS

procedure OnWrite(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS

procedure SetIPAddress(NewIPAddress: String);

procedure TAsyncSocket.

procedure SetPortNumber(NewPortNumber: LongInt);

procedure TAsyncSocket.

procedure SetSocketHandle(NewSocketHandle: TSocket);

procedure TAsyncSocket.

Properties

property IPAddress : String


property PortNumber : LongInt


property SocketHandle : TSocket


Events

Variables

m_Handle : TSocket;


m_hWnd : ThWnd;


m_SockAddr : TSockAddr;



Constructors


constructor Create;

TREAT_AS_OBJECT TREAT_AS_COMPONENT {$IFDEF TREAT_AS_OBJECT


Functions


procedure AllocateSocket;

function TAsyncSocket.GetPortNumber: Word


procedure DeInitialize;

For an unknown reason, if a call is made to GetHostByName and it should fail, the following call to GetHostByAddr will not fail, but return '>' in the place of the host name. This clears the problem up.


destructor Destroy;

TREAT_AS_OBJECT TREAT_AS_COMPONENT

constructor TAsyncSocket.Create


procedure DoAccept(var AcceptSocket: TAsyncSocket);

procedure TAsyncSocket.DoClose


procedure DoClose;

procedure TAsyncSocket.DoSend(Buffer: Pointer; BufferLen: LongInt


procedure DoConnect;

procedure TAsyncSocket.DoListen


function DoGetHostByAddr(IPAddress: PChar): String;


function DoGetHostByName(Name: PChar): String;

procedure TAsyncSocket.DoConnect


procedure DoListen;

procedure TAsyncSocket.DoAccept(var AcceptSocket: TAsyncSocket


procedure DoReceive(Buffer: Pointer; var ReceiveLen: LongInt);

procedure TAsyncSocket.SetPortNumber(NewPortNumber: Word


procedure DoSend(Buffer: Pointer; var SendLen: LongInt);

TAsyncSocket.DoReceive(Buffer: Pointer; BufferLen: LongInt


function ErrorTest(Evaluation: LongInt): LongInt;

procedure TAsyncSocket.SetSocketHandle(NewSocketHandle: TSocket


function ErrToStr(Err: LongInt): String;

procedure TAsyncSocket.Message_Listen(var Message: TWMSocket


function GetIPAddress: String;

destructor TAsyncSocket.Destroy;


function GetPortNumber: LongInt;

function TAsyncSocket.GetIPAddress: String


procedure HWndProcedure(var Message: TMessage);

Message Handlers


procedure Initialize;

function ErrorTest(Evaluation: LongInt): LongInt;


procedure KillWinsockBug;

procedure TAsyncSocket.Initialize


procedure Message_Accept(var Message: TWMSocket);

procedure TAsyncSocket.Message_Close(var Message: TWMSocket


procedure Message_Close(var Message: TWMSocket);

procedure TAsyncSocket.Message_Error(var Message: TWMSocket


procedure Message_Connect(var Message: TWMSocket);

procedure TAsyncSocket.Message_Read(var Message: TWMSocket


procedure Message_Error(var Message: TWMSocket);

TREAT_AS_OBJECT


procedure Message_Listen(var Message: TWMSocket);

procedure TAsyncSocket.Message_OOB(var Message: TWMSocket


procedure Message_OOB(var Message: TWMSocket);

procedure TAsyncSocket.Message_Write(var Message: TWMSocket


procedure Message_Read(var Message: TWMSocket);

procedure TAsyncSocket.Message_Accept(var Message: TWMSocket


procedure Message_Write(var Message: TWMSocket);

procedure TAsyncSocket.Message_Connect(var Message: TWMSocket


procedure OnAccept(SocketMessage: TWMSocket);


procedure OnClose(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS


procedure OnConnect(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS


procedure OnError(SocketMessage: TWMSocket);

procedure TAsyncSocket.HWndProcedure(var Message: TMessage) {$IFDEF TREAT_AS_OBJECT


procedure OnListen(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS


procedure OnOOB(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS


procedure OnRead(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS


procedure OnWrite(SocketMessage: TWMSocket);

WANT_MESSAGEBOX_ALERTS


procedure SetIPAddress(NewIPAddress: String);

procedure TAsyncSocket.DeInitialize


procedure SetPortNumber(NewPortNumber: LongInt);

procedure TAsyncSocket.SetIPAddress(NewIPAddress: String


procedure SetSocketHandle(NewSocketHandle: TSocket);

procedure TAsyncSocket.AllocateSocket


Properties


property IPAddress : String


property PortNumber : LongInt


property SocketHandle : TSocket


Events


Variables


m_Handle : TSocket;


m_hWnd : ThWnd;


m_SockAddr : TSockAddr;