TIdIPWatch

type TIdIPWatch = class(TIdComponent)

protected

  FActive: Boolean;

  FCurrentIP: string;

  FHistoryEnabled: Boolean;

  FHistoryFilename: string;

  FIPHistoryList: TStringList;

  FIsOnline: Boolean;

  FLocalIPHuntBusy: Boolean;

  FMaxHistoryEntries: Integer;

  FOnLineCount: Integer;

  FOnStatusChanged: TNotifyEvent;

  FPreviousIP: string;

  FThread: TIdIPWatchThread;

  FWatchInterval: UInt32;

  procedure AddToIPHistoryList();

  procedure CheckStatus();

  procedure Loaded; override;

  procedure SetActive();

  procedure SetMaxHistoryEntries();

  procedure SetWatchInterval();

  procedure InitComponent; override;

public

  destructor Destroy; override;

  function ForceCheck;

  procedure LoadHistory;

  function LocalIP;

  procedure SaveHistory;

  property CurrentIP: string; [r]

  property IPHistoryList: TStringList; [r]

  property IsOnline: Boolean; [r]

  property PreviousIP: string; [r]

published

  property Active: Boolean; [rw]

  property HistoryEnabled: Boolean; [rw]

  property HistoryFilename: string; [rw]

  property MaxHistoryEntries: Integer; [rw]

  property OnStatusChanged: TNotifyEvent; [rw]

  property WatchInterval: UInt32; [rw]

end;

TIdIPWatch

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject