[delphi]快速获取本机IP地址

  • A+
所属分类:[开发技巧]

Delphi6以上的版本中,有一个IdIPWatch控件,它的功能就是检测网络在线状态和获取

IP地址。而在以前的Delphi版本中却要采取另一种方法来获取IP,就是利用winsock单元的

一些网络函数的办法,这里不多说了,我们选择容易的。

  新建一工程,在form1中添加控件edit1和button1,IdIPWatch1
IdIPWatch1在indy misc标签下(上面有IP的字样的就是的)

  编写代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=IdIPWatch1.LocalIP;
end;

 ok!按下f9功能键,运行程序,看一下窗口下边状态栏中是不是已经显示了本机的ip地址了?

  提示:若idipwatch1的historyenabled的属性设为true,则会在程序退出时,自动生成一个文件(文件名为historyfilename属性设定的值),记录当前的ip地址.

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: