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;
 

相关阅读 >>

Delphi nethttpclient1 下载显示进度条

Delphi windows 编程[12] - 菜单与菜单资源(1-3)

Delphi checklistbox 用法

Delphi application.processmessage作用

Delphi实现双击左ctrl键调用记事本

Delphi xe 遍历指定数据库，清空各表记录

Delphi 获取所有应用程序窗口标题 类似任务管理器

Delphi fdmemtable1建立缓存表 模糊查询

Delphi线程简单创建、挂起、激活与终止

Delphi tms web core直接从html&css设计的页面布局

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 正确得到本地IP