Class TAsyncSocket (unit TJSocket) |
Inherits from
TObject
constructor Create;
- TREAT_AS_OBJECT TREAT_AS_COMPONENT {$IFDEF TREAT_AS_OBJECT
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.
property IPAddress : String
property PortNumber : LongInt
property SocketHandle : TSocket
m_Handle : TSocket;
m_hWnd : ThWnd;
m_SockAddr : TSockAddr;
constructor Create;
TREAT_AS_OBJECT TREAT_AS_COMPONENT {$IFDEF TREAT_AS_OBJECT
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
property IPAddress : String
property PortNumber : LongInt
property SocketHandle : TSocket
m_Handle : TSocket;
m_hWnd : ThWnd;
m_SockAddr : TSockAddr;