Delphi Indy 網路偵測

元件面板 Indy Misc 中有 TIdIPWatch 元件，放置一個 TMemo 和 TIdIPWatch 在 form 上，並將 IdIPWatch1.Active 屬性設為 True，在 IdIPWatch1.OnStatusChanged 事件中加入

procedure TForm1.IdIPWatch1StatusChanged(Sender: TObject);
begin
    Memo1.Lines.Values['IsOnline'] := BooleanIdents[IdIPWatch1.IsOnline];
    Memo1.Lines.Values['CurrentIP'] := IdIPWatch1.CurrentIP;
    Memo1.Lines.Values['LocalIP'] := IdIPWatch1.LocalIP;
end;

執行程式後，當網路狀態改變時，就會觸發 OnStatusChanged 事件