TIdIPWatch 正确得到本地IP

http://blog.sina.com.cn/s/blog_51a71c010100uuuv.html

 

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

#include <IdIPWatch.hpp>

一，引入单元文件“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;