在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功能键,运行程序,点击button看一下edit1中是不是已经显示了本机的IP
地址了。
提示:若IdIPWatch1的HistoryEnabled的属性设为True,则会在程序退出时,自动生成一个文件(文件名为HistoryFileName属性设定的值),记录当前的IP地址。