TIdNetworkCalculator

type TIdNetworkCalculator = class(TIdBaseComponent)

protected

  FListIP: TStrings;

  FNetworkMaskLength: UInt32;

  FNetworkMask: TIpProperty;

  FNetworkAddress: TIpProperty;

  FNetworkClass: TNetworkClass;

  FOnChange: TNotifyEvent;

  FOnGenIPList: TNotifyEvent;

  procedure FillIPList;

  function GetNetworkClassAsString;

  function GetIsAddressRoutable;

  function GetListIP;

  procedure SetNetworkAddress();

  procedure SetNetworkMask();

  procedure SetNetworkMaskLength();

  procedure NetMaskChanged();

  procedure NetAddressChanged();

  procedure InitComponent; override;

public

  destructor Destroy; override;

  function IsAddressInNetwork();

  function NumIP;

  function StartIP;

  function EndIP;

  property ListIP: TStrings; [r]

  property NetworkClass: TNetworkClass; [r]

  property NetworkClassAsString: string; [r]

  property IsAddressRoutable: Boolean; [r]

published

  property NetworkAddress: TIpProperty; [rw]

  property NetworkMask: TIpProperty; [rw]

  property NetworkMaskLength: UInt32; [rw]

  property OnGenIPList: TNotifyEvent; [rw]

  property OnChange: TNotifyEvent; [rw]

end;

TIdNetworkCalculator

TIdBaseComponent

TIdInitializerComponent

TObject