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;
关键字词:
