TIdStack

type TIdStack = class(TObject)

protected

  FLocalAddresses: TStrings;

  procedure IPVersionUnsupported;

  function HostByName(); virtual; abstract;

  function MakeCanonicalIPv6Address();

  function ReadHostName; virtual; abstract;

  function GetLocalAddress;

  function GetLocalAddresses;

public

  function Accept();

  procedure Bind(); virtual; abstract;

  procedure Connect(); virtual; abstract;

  constructor Create; virtual;

  destructor Destroy; override;

  procedure Disconnect(); virtual; abstract;

  function IOControl(); virtual; abstract;

  class procedure IncUsage;

  class procedure DecUsage;

  procedure GetPeerName();

  procedure GetSocketName();

  function HostByAddress(); virtual; abstract;

  function HostToNetwork();

  function IsIP();

  procedure Listen(); virtual; abstract;

  function WSGetLastError; virtual; abstract;

  procedure WSSetLastError(); virtual; abstract;

  function WSTranslateSocketErrorMsg(); virtual;

  function CheckForSocketError();

  procedure RaiseLastSocketError;

  procedure RaiseSocketError(); virtual;

  function NewSocketHandle(); virtual; abstract;

  function NetworkToHost();

  procedure GetSocketOption(); virtual; abstract; overload;

  procedure SetSocketOption(); virtual; abstract; overload;

  function ResolveHost();

  function Receive(); virtual; abstract;

  function Send(); virtual; abstract;

  function ReceiveFrom(); virtual; abstract;

  function SendTo();

  function ReceiveMsg(); virtual; abstract;

  function SupportsIPv4; virtual; abstract;

  function SupportsIPv6; virtual; abstract;

  function IsValidIPv4MulticastGroup();

  function IsValidIPv6MulticastGroup();

  procedure SetKeepAliveValues(); virtual;

  procedure SetMulticastTTL(); virtual; abstract;

  procedure SetLoopBack(); virtual; abstract;

  procedure DropMulticastMembership(); virtual; abstract;

  procedure AddMulticastMembership(); virtual; abstract;

  function CalcCheckSum(); virtual;

  procedure WriteChecksum(); virtual; abstract;

  procedure AddLocalAddressesToList();

  procedure GetLocalAddressList(); virtual; abstract;

  property HostName: string; [r]

  property LocalAddress: string; [r]

  property LocalAddresses: TStrings; [r]

end;

TIdStack

TObject