如何通过编程，获得局域网在互联上的IP地址

[whitelion]

网上找到了一些代码，只是能显示计算机的地址（如192.168.0.100之类），不能显示互联网地址

[柯本]

除了从别人网站上得到自己的外网IP外,我也别无它法

[纯冰糖]

看一下这个例子:

http://www.delphifans.com/SoftView/SoftView_2109.html

[编译失败]

目前比较好的方法就是取得网上一些检测IP网页的内容，使用NMHTTP控件

Screen->Cursor=crHourGlass;
NMHTTP1->Get("http://code.helpor.net/mine/ip.php");
AnsiString getIPFromURL = NMHTTP1->Body;
edtwanip->Text=getIPFromURL.SubString(getIPFromURL.Pos("(")+2,getIPFromURL.Pos(")")-getIPFromURL.Pos("(")-3);
edtlanip->Text=NMHTTP1->LocalIP;
edthost->Text=NMHTTP1->Host+" - "+NMHTTP1->RemoteIP;
Screen->Cursor=crDefault;