TSocketHandler

type TSocketHandler = class(TObject)

protected

  FLastError: Integer;

  procedure SetSocket(); virtual;

  procedure CheckSocket;

public

  constructor Create; virtual;

  function Connect; virtual;

  function Accept; virtual;

  function Close; virtual;

  function Shutdown(); virtual;

  function Select(); virtual;

  function CanRead(); virtual;

  function Recv(); virtual;

  function Send(); virtual;

  function BytesAvailable; virtual;

  function GetLastErrorDescription; virtual;

  property Socket: TSocketStream; [r]

  property LastError: Integer; [r]

end;

TSocketHandler

TObject