TIdIPAddress

type TIdIPAddress = class(TObject)

protected

  FIPv4: UInt32;

  FAddrType: TIdIPVersion;

  function GetIPv4AsString;

  function GetIPv6AsString;

  function GetIPAddress;

public

  IPv6: TIdIPv6Address;

  constructor Create; virtual;

  class function MakeAddressObject();

  function CompareAddress();

  function HToNBytes;

  property IPv4: UInt32; [rw]

  property IPv4AsString: string; [r]

  property IPv6AsString: string; [r]

  property AddrType: TIdIPVersion; [rw]

  property IPAsString: string; [r]

end;

TIdIPAddress

TObject