用TIdIPWatch获取本地IP

Indy的“indy misc”下有一个“TIdIPWatch”组件，可以正确获得本地IP，即使有多块网卡，也可以正确获得真正本地IP。

一，引入单元文件“IdIPWatch”。

二，实际代码：

procedure TMainForm.localIpBtnClick(Sender: TObject);

var

  IdIPWatch: TIdIPWatch; //TIdIPWatch类实例

begin

  try

    //创建TIdIPWatch类实例

    IdIPWatch := TIdIPWatch.Create(nil);

    //在程序标题栏显示得到的本地IP

    Self.Caption := IdIPWatch.LocalIP;

  finally

    //释放TIdIPWatch类实例

    IdIPWatch.Free;

  end;

end;