Delphi 7中快速得到本机IP地址

2008-02-23 07:15:10来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  朋友们在用Delphi编程序的时候,常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中,可以通过编写一段代码或函数实现这一功能。但有了Delphi 7,这个工作可以更简化了。利用控件只需一句代码,就可以非常方便地实现这一功能。

  新建一Project1,在form1中添加控件statusbar

  1(Win32页)和控件IdIPWatch1(Indy Misc页)。接着设置好控件属性:在statusbar1的panels中添加0-TStatusPanel和1-TStatusPanel两项;IdIPWatch1的HistoryEnabled的属性设为False。

  编写代码:在TForm1.FormCreate(Sender: TObject)中加入以下代码:

statusbar1.Panels[1].Text:=IdIPWatch1.LocalIP;

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

  提示:若IdIPWatch1的HistoryEnabled的属性设为True,则会在程序退出时,自动生成一个文件(文件名为HistoryFileName属性设定的值),记录当前的IP地址。
阅读关于 Delphi 的全部文章

上一篇: Delphi下QQ窗体自动隐藏探索
下一篇: 用Delphi实现图像放大镜

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Delphi初学者参考(二)

下一篇:Delphi下QQ窗体自动隐藏探索