TSysSocket

type TSysSocket = class

protected

  FAddressFamily: TIPAddressFamily;

  FProtocol: TIPProtocol;

  FOverlapped: Boolean;

  FSocketHandle: TSocketHandle;

  FAsyncEvents: TSysSocketAsynchronousEventSet;

  FOnConnect: TSysSocketConnectEvent;

  FOnClose: TSysSocketCloseEvent;

  FOnRead: TSysSocketReadEvent;

  FOnWrite: TSysSocketWriteEvent;

  FOnAccept: TSysSocketAcceptEvent;

  FOnLog: TSysSocketLogEvent;

  FOnResolve: TSysSocketResolveEvent;

  FWindowHandle: HWND;

  FLocalAddressCached: Boolean;

  FLocalAddress: TSocketAddr;

  FLocalAddressStrCached: Boolean;

  FLocalAddressStr: RawByteString;

  FLocalPortStrCached: Boolean;

  FLocalPortStr: string;

  FRemoteAddressCached: Boolean;

  FRemoteAddress: TSocketAddr;

  FRemoteAddressStrBCached: Boolean;

  FRemoteAddressStrB: RawByteString;

  FRemoteAddressStrCached: Boolean;

  FRemoteAddressStr: string;

  FRemoteHostNameCached: Boolean;

  FRemoteHostName: RawByteString;

  procedure Init(); virtual;

  procedure Log();

  procedure TriggerConnect();

  procedure TriggerClose;

  procedure TriggerRead;

  procedure TriggerWrite;

  procedure TriggerAccept;

  procedure TriggerResolve(); virtual;

  procedure HandleSocketMessage();

  function GetReceiveTimeout;

  procedure SetReceiveTimeout();

  function GetSendTimeout;

  procedure SetSendTimeout();

  function GetReceiveBufferSize;

  procedure SetReceiveBufferSize();

  function GetSendBufferSize;

  procedure SetSendBufferSize();

  function GetBroadcastEnabled;

  procedure SetBroadcastEnabled();

  function GetReuseAddress;

  procedure SetReuseAddress();

  function GetTcpNoDelayEnabled;

  procedure SetTcpNoDelayEnabled();

  procedure Resolve();

  procedure ResolveRequired();

public

  constructor Create();

  destructor Destroy; override;

  property AddressFamily: TIPAddressFamily; [r]

  property Protocol: TIPProtocol; [r]

  property Overlapped: Boolean; [r]

  property SocketHandle: TSocketHandle; [r]

  function IsSocketHandleInvalid;

  procedure AllocateSocketHandle;

  function ReleaseSocketHandle;

  procedure CloseSocket;

  procedure Close;

  procedure SetBlocking();

  procedure SetAsynchronous();

  property OnConnect: TSysSocketConnectEvent; [rw]

  property OnClose: TSysSocketCloseEvent; [rw]

  property OnRead: TSysSocketReadEvent; [rw]

  property OnWrite: TSysSocketWriteEvent; [rw]

  property OnAccept: TSysSocketAcceptEvent; [rw]

  property OnLog: TSysSocketLogEvent; [rw]

  property OnResolve: TSysSocketResolveEvent; [rw]

  property ReceiveTimeout: Integer; [rw]

  property SendTimeout: Integer; [rw]

  property ReceiveBufferSize: Int32; [rw]

  property SendBufferSize: Int32; [rw]

  property BroadcastEnabled: Boolean; [rw]

  property ReuseAddress: Boolean; [rw]

  procedure GetLingerOption();

  procedure SetLingerOption();

  property TcpNoDelayEnabled: Boolean; [rw]

  function Select();

  procedure Bind();

  function GetLocalAddress;

  function GetLocalAddressIP;

  function GetLocalAddressIP6;

  function GetLocalAddressStrB;

  function GetLocalPort;

  function GetLocalPortStr;

  procedure Shutdown();

  function Connect();

  procedure Listen();

  function Accept();

  function GetRemoteAddress;

  function GetRemoteAddressIP;

  function GetRemoteAddressIP6;

  function GetRemoteAddressStr;

  function GetRemoteAddressStrB;

  function GetRemoteHostNameB;

  function Send();

  function SendStrB();

  function SendTo();

  procedure SendToBroadcast();

  function Recv();

  function Peek();

  function RecvFromEx();

  function RecvFrom();

  function AvailableToRecv;

end;

TSysSocket

TObject