如何得到外网IP

Question

我们有一个局域网，对外都通过一台机子，请问各位，我如何得到这个对向的动态IP
有劳路过的各位关心一下,谢谢

Answer 1

获取外网与内网IP源码下载地址：
http://www.delphifans.com/SoftView/SoftView_2109.html

Answer 2

如何得到本机在INTERNET的IP地址 
提交日期:2003-8-28  
 
关键词:INTERNETIP地址  
procedure TForm1.Button1Click(Sender: TObject);
var
IPSTR, IP, HP: string;
BeginIP, EndIP, i: integer;
begin
Button1.Enabled := False;
HP :='http://www.nssoft.net';
NMHTTP1.Get(HP);
IPSTR := NMHTTP1.Body;
BeginIP := Pos('BEGINIP', IPSTR) + Length('BEGINIP');
EndIP := Pos('ENDIP', IPSTR);
IP := '';
for i := BeginIP to ENDip - 1 do
begin
IP := IP + IPstr[i];
end;
label1.Caption := IP;
Button1.Enabled := True;
end; 

Answer 3

NMHTTP1.Get(HP);
这个是什么东东啊？
NMHTTP是怎么定义的？