-----唉!!!难道高手们都不愿答还是不上DFW---------------没有做不到的,只有想不到的-----------高手们都进来,希望大家多费心,好

其实上也简单的啦，只要调用PING就可返回IP信息的，那就需要在服务器处建一分析域名的工具。Good Luck

->“tracert www.sohu.com”
这个方法和我写的那个求第一个路由器的例子一样，不管用，现在的ADSL一般是给你分配一个xxx.xxx.xxx.yyy的地址，第一个路由器的地址就是xxx.xxx.xxx.1，这个问题主要是NAT的问题，求路由器没用。

->“为了研究你的问题我把我的Adsl也改成路由方式的了，通过配置Modem的时候可以看到当前占用的外网IP的。（（我想肯定可以通过什么方法直接取得Adsl Modem占用的外网IP地址，但还没有找到方法。（（呵呵说了一堆费话，我是装上了花生壳，然后通过域名得到当前的IP的”
这个只要telnet到adsl modem上就可以，不过前面好像说不想用这个办法。

->“我实在太苯了，还没有摆平，你可否用DELPHI写一个例子，我知道实在太为难你了，但不得已，饭碗呀，望在万忙之中满足在下的不情之请，恭待你的回音。”
你确定你的猫支持UPnP吗？

to libin06:
昨天顶帖到今天1点多就睡了， 刚看了你的帖子，我找出猫的说明书看了一下，
UPNP------它竟然不。。。。。。。
哎！我的十几小时呀，但还是要感谢kyq，只怪我那么粗心，激动

老早的问题了。以前的帖子上有。你查一下吧！

TO humanc2d4：
PC通过路由器上网,路由器为ADSL拨号,想通过DELPHI代码编程得到ADSL上的上网IP,
要源码,分不够再加,还有1337分
我已检索大富翁文档资料没有我要得到的答案

如果你知道写个链接地址

To wuxin:
一时大意，人之常情。
其实原因是我没加以强调只适用于支持UPnP的Router

贴子也够长了,快一周了,我等到不烦,但我的那个头烦了,今天把我骂了个........故向头表态:"明天一定搞定,否则我就自己.........不为难他了"
再等一天,明天结贴,这一周找遍了网上我想到的地方,眼睛都快瞎了,面对领导的漫骂我只有忍,谁叫自己没能耐呢,但我真心谢谢为我尽力和捧场的朋友
Aiirii
c3411080
coldwind8112
crazycock
dcsdcs
ego
fei_l
forsoft
fu_qi_ming
humanc2d4
janph
komaz
kyq
lhc4000
libin06
lycpxm
Passion
piao40993470
st_cumt
Tassadar
vc_delphi
webskywang
wen_one
wolaixue
wrf
ximyma
xingzhe_xr
yanghai0437
zhang_yz6666


to ego:
--->xuxin，呵呵，偶的2000分就拜托老兄你全权处理了[]
兄弟只有把你的2000大洋还你了,我怕是无福消受了,好兄弟,够意气!


如明天真的搞不定,我会有更多的时间,因为那是真理:没本事=吃闲饭=多时间
我会继续开新贴提问此问题,只到有人解决为止.

wuxin：
兄弟，别放弃，有时间也未尝不是一件好事，多找几本专门讲解网络编程的书来看，偶不信这个问题无解！
其实偶是想知道P2P的方法（关键是两个内网之间的P2P），虽然跟你的意思有所差别，但得到的结果应该是差不多的吧？

ego:
谢谢你的鼓励,我不会放弃的, 两个内网通信我想其实也就是先得到外网的IP,再在
路由器上进行端口影射就可以了,端口影射只须要在路由器上设置,所以最关键还是要得到那个外网的动态IP

我试过在程序里使用TServerSocket（服务端），TClientSocket（客户端），客户端通过公网连到TServerSocket，然后在服务端ServerSocket1.Socket.RemoteAddress就是客户端的公网IP了。

gwdb:
能把你的程序发个我吗,mailto:wupannet@163.com
谢谢

gwdb:
你那个办法还是需要连接公网的服务器，我们的问题不是这么简单啊。

ego:
目前的办法只有用crazycock的方法把程序完成,等到有更好的办法后再把程序升级.
我以另开帖收集IP网页:http://www.delphibbs.com/delphibbs/dispq.asp?lid=2391664
但好象效果不是很好到目前一个也没收集到.
另外一个办法是:
请问你知道QQ显IP版的那个IP是访问那个地方,我想那个地方可能比较稳定,从那个地方取IP,来解决这个问题

多人接受答案了。

唉～～好可惜啊～竟然没有等到答案，不过我也会继续关注这个题目的！

俺也来插上两句。NAT是个硬件问题，俺想是不是通过硬件来解决。
办法：把Modem与Router中间连一Hub,某台电脑加块网卡并启动监听程序。
但有三个新问题,
A:得写监听程序;
B:还得判断哪个IP才是你想要的;
C:还得有一Hub.

补充一哈：要是你觉的Hub贵了或没有，那就得麻烦您自个了，找出Router端的1&3线，再
接出到另一RJ45的2&6,再把它接入电脑，启动监听程序。这样，B&C的问题都给省了。

这样，稳定，又不要花老板花花绿绿的钞票。
这个办法不知中不中，遗憾的是：楼主结帖了！分没有俺的份了！

to zyycc :
谢谢你关心我的问题,硬件方面都好说,我想要的就是你说的监听程序,能帮忙写一下吗?分好说!!!!

你经路由访问外部IP,其实路由只将数据包转发,你收到的数据包没有外部的IP,但是有对方的外部IP和握手端口,所以唯一的办法还是象上面的老兄做法,至少需要一台有Internet IP的主机,其他机连接它,他就能取得你的外部IP和端口,然后他再发回给你才行,这就是为什么象QQ,MSN等,即使能穿越两个内网,但还需要登陆服务器的原因了

我也想知道呀，有没有什么好的解决办法呀！！！！

怎么不稳定呀。我正在使用。
我这边配置如下：
神州数码 ADSL
ICS http 控件。(此控件属性中有 用户、密码输入。)
通过与ADSL Modem 通讯，取网页中的IP即可。。
//截取网页程序
---------------
</tr><tr><td class="tablerowheader" colspan="2">主机名:  </td><td class="alignleft" colspan="2">Titanium</td><td class="tablerowheader" colspan="2">运行状态:  </td><td class="alignleft" colspan="2"><img src="hag/images/greenled.gif"> Showtime/Data</td></tr><tr><td class="tablerowheader" colspan="2">硬件版本:  </td><td class="alignleft" colspan="2">81001a</td><td class="tablerowheader" colspan="2">上次状态:  </td><td class="alignleft" colspan="2">0x69</td></tr><tr><td class="tablerowheader" colspan="2">软件版本:  </td><td class="alignleft" colspan="2">VIK-1.38.030331j2</td><td class="tablerowheader" colspan="2">DSL 版本:  </td><td class="alignleft" colspan="2">Y1.9.6 </td></tr><tr><td class="tablerowheader" colspan="2">序列号:</td><td class="alignleft" colspan="2">123456789abcdx</td><td class="tablerowheader" colspan="2">标准:  </td><td class="alignleft" colspan="2">Multimode</td></tr><tr><td class="tablerowheader" colspan="2">模式:  </td><td class="alignleft" colspan="2">Routing And Bridging</td><td class="tableheader" colspan="2">上行</td><td class="tableheader" colspan="2">下行</td></tr><tr><td class="tablerowheader" colspan="2">上线时间:  </td><td class="alignleft" colspan="2">56:2:6</td><td class="tableheader">速率</td><td class="tableheader">延迟</td><td class="tableheader">速率</td><td class="tableheader">延迟</td></tr><tr><td class="tablerowheader" colspan="2">时间:  </td><td class="alignleft" colspan="2">Sun Jan 04 23:10:57 1970</td><td class="alignleft">512 Kbps</td><td class="alignleft">Fast</td><td class="alignleft">2048 Kbps</td><td class="alignleft">Fast</td></tr><tr><td class="tablerowheader" colspan="2">时区:  </td><td class="alignleft" colspan="2">GMT</td><td class="tableRowDiv" colspan="4"> </td></tr><tr><td class="tablerowheader" colspan="2">DST:  </td><td class="alignleft" colspan="2">OFF</td><td class="tableRowDiv" colspan="4"> </td></tr><tr><td class="tablerowheader" colspan="2">名称:  </td><td class="alignleft" colspan="6">-</td></tr><tr><td class="tablerowheader" colspan="2">域名:  </td><td class="alignleft" colspan="6">-</td></tr><tr><td class="tableRowDiv" colspan="8" > </td></tr><tr><td class="tableheader" colspan="8">广域网接口</td></tr><tr><td class="tableheader">接口</td><td class="tableheader">封装</td><td class="tableheader"><a href="/MainPage?id=5" onClick="" class = "headAnchor">IP地址</a>
</td><td class="tableheader">子网掩码</td><td class="tableheader">网关</td><td class="tableheader">底层接口</td><td class="tableheader">VPI/VCI</td><td class="tableheader">状态</td></tr><tr><td class="alignleft"><a href="/MainPage?id=16" onClick="" class = "headAnchor">ppp-0</a>
</td><td class="alignleft">PPPoE</td><td class="alignleft">219.131.81.145</td><td class="alignleft">255.255.255.255</td><td class="alignleft">218.15.220.1</td><td class="alignleft"><a href="/MainPage?id=17" onClick="" class = "headAnchor">aal5-0</a>
</td><td class="alignleft">8/81</td><td class="alignmiddle"><img src="hag/images/greenled.gif"></td></tr><tr><td class="tableRowDiv" colspan="8" > </td></tr><tr><td class="tableheader" colspan="8">局域网接口</td></tr><tr><td class="tableheader">接口</td><td class="tableheader">Mac地址</td><td class="tableheader"><a href="/MainPage?id=5" onClick="" class = "headAnchor">IP地址</a>
</td><td class="tableheader">子网掩码</td><td class="tableheader">底层接口</td><td class="tableheader">速率</td><td class="tableheader">双工</td><td class="tableheader">状态</td></tr><tr><td class="alignleft"><a href="/MainPage?id=2" onClick="" class = "headAnchor">eth-0</a>
</td><td class="alignleft">00:85:A0:01:01:00</td><td class="alignleft">192.168.1.1</td><td class="alignleft">255.255.255.0</td><td class="alignleft">-</td><td class="alignleft">10BT</td><td class="alignleft">Half</td><td class="alignmiddle"><img src="hag/images/greenled.gif"></td></tr><tr><td class="tableRowDiv" colspan="8" > </td></tr><tr><td class="tableheader" colspan="8">配置概要</td></tr><tr><td class="tableheader">接口</td><td class="tableheader"><a href="/MainPage?id=9" onClick="" class = "headAnchor">NAT</a>
</td><td class="tableheader"><a href="/MainPage?id=19" onClick="" class = "headAnchor">IP 过滤</a>
</td><td class="tableheader"><a href="/MainPage?id=10" onClick="" class = "headAnchor">RIP</a>
</td><td class="tableheader"><a href="/MainPage?id=13" onClick="" class = "headAnchor">DHCP中继</a>
</td><td class="tableheader">DHCP客户端</td><td class="tableheader"><a href="/MainPage?id=12" onClick="" class = "headAnchor">DHCP服务器</a>
</td><td class="tableheader">IGMP</td></tr><tr><td class="alignleft">eth-0</td><td class="alignmiddle"><img src="hag/images/tick.gif"> inside</td><td class="alignmiddle"><img src="hag/images/tick.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td></tr><tr><td class="alignleft">ppp-0</td><td class="alignmiddle"><img src="hag/images/tick.gif"> outside</td><td class="alignmiddle"><img src="hag/images/tick.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td><td class="alignmiddle"><img src="hag/images/cross.gif"></td><td class="alignmiddle"><img src="hag/images/tick.gif"></td></tr></table></td></tr><tr><td class="alignmiddle"><table cellpadding="10" cellspacing="0" border="0"><tr><td class="alignmiddle"><input class="mybutton" name="cmd修改" id="cmd修改" value="修改" type="button" onClick="PopNewWindow('/PopOutPage?id=3&ex_param1=', 'winHagPopOut', 400)">
    <input class="mybutton" name="cmd刷新" id="cmd刷新" value="刷新" type="button" onClick="self.location.reload(true)">
    <input class="mybutton" name="cmd帮助" id="cmd帮助" value="帮助" type="button" onClick="PopNewWindow('hag/help/system.ssi', 'wndHelp' , 500)">
</td></tr></table></td></tr>
---------------