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;