TmnCustomSocket

type TmnCustomSocket = class(TObject)

protected

  function GetActive; virtual; abstract;

  procedure CheckActive;

  function DoSelect(); virtual; abstract;

  function DoShutdown(); virtual; abstract;

  function DoListen; virtual; abstract;

  function DoSend(); virtual; abstract;

  function DoReceive(); virtual; abstract;

  property ShutdownState: TmnShutdowns; [r]

public

  constructor Create;

  destructor Destroy; override;

  procedure Prepare; virtual;

  function Shutdown();

  function Close; virtual; abstract;

  function Send();

  function Receive();

  function Select();

  function Listen;

  function Accept; virtual; abstract;

  property Active: Boolean; [r]

  property Connected: Boolean; [r]

  function GetLocalAddress; virtual; abstract;

  function GetRemoteAddress; virtual; abstract;

  function GetLocalName; virtual; abstract;

  function GetRemoteName; virtual; abstract;

end;

TmnCustomSocket

TObject