一、需求：
由于系统调试需要一个相对的公网IP，但公司是通过ADSL方式上网，每次产生的IP只能保持一段时间相对固定，当IP发生变化后，就需要打开路由器的WEB管理界面，确定新的IP地址是多少，然后将新地址告诉测试系统使用。每次都这样操作，让我这种懒人，感觉很不爽。于是一直在想寻找一种简单的方式，来很容易的知道当前IP地址是多少，这期间尝试了许多方法，但都只是限于获取本机网络地址信息，对要解决的问题帮助不大。
今天看到CSDN上一位网友介绍的方法，比较可行而且易于实现，于是花点时间，做了个小程序，经过测试，能满足需要。
二、基本原理
１. 访问，并获取指定网页内容，如：http://vbnet.mvps.org/resources/tools/getpublicip.shtml;
２. 分析网页内容；
３. 找出IP地址，显示；
三、实现代码(Delphi7+FastStrings+Indy9)
;
四、结果：
五、文件下载：
https://files.cnblogs.com/gis_gps/GetADSLIP.zip