| Class TAsyncSocket (unit TJSocket) |
TObject
| Constructors |
constructor Create;| Functions |
procedure AllocateSocket;
procedure DeInitialize;
destructor Destroy;constructor TAsyncSocket.
procedure DoAccept(var AcceptSocket: TAsyncSocket);
procedure DoClose;
procedure DoConnect;
function DoGetHostByAddr(IPAddress: PChar): String;
function DoGetHostByName(Name: PChar): String;
procedure DoListen;
procedure DoReceive(Buffer: Pointer; var ReceiveLen: LongInt);
procedure DoSend(Buffer: Pointer; var SendLen: LongInt);
function ErrorTest(Evaluation: LongInt): LongInt;
function ErrToStr(Err: LongInt): String;
function GetIPAddress: String;
function GetPortNumber: LongInt;
procedure HWndProcedure(var Message: TMessage);
procedure Initialize;
procedure KillWinsockBug;
procedure Message_Accept(var Message: TWMSocket);
procedure Message_Close(var Message: TWMSocket);
procedure Message_Connect(var Message: TWMSocket);
procedure Message_Error(var Message: TWMSocket);
procedure Message_Listen(var Message: TWMSocket);
procedure Message_OOB(var Message: TWMSocket);
procedure Message_Read(var Message: TWMSocket);
procedure Message_Write(var Message: TWMSocket);
procedure OnAccept(SocketMessage: TWMSocket);
procedure OnClose(SocketMessage: TWMSocket);
procedure OnConnect(SocketMessage: TWMSocket);
procedure OnError(SocketMessage: TWMSocket);
procedure OnListen(SocketMessage: TWMSocket);
procedure OnOOB(SocketMessage: TWMSocket);
procedure OnRead(SocketMessage: TWMSocket);
procedure OnWrite(SocketMessage: TWMSocket);
procedure SetIPAddress(NewIPAddress: String);
procedure SetPortNumber(NewPortNumber: LongInt);
procedure SetSocketHandle(NewSocketHandle: TSocket);| 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;