Delphi 7中快速获取本机IP地址

下载本文示例代码
　　朋友们在用Delphi编程序的时候，常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中，可以通过编写一段代码或函数实现这一功能。但有了Delphi 7，这个工作可以更简化了。利用控件只需一句代码，就可以非常方便地实现这一功能。 　　新建一Project1，在form1中添加控件statusbar1(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编程序的时候，常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中，可以通过编写一段代码或函数实现这一功能。但有了Delphi 7，这个工作可以更简化了。利用控件只需一句代码，就可以非常方便地实现这一功能。 　　新建一Project1，在form1中添加控件statusbar1(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 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址Delphi 7中快速获取本机IP地址