用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;