Delphi 正确得到本地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;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678