如何得到外网IP？(100)

S

sunylat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-10

• #1

大家好： 我是使用有路由功能的ADSL猫自动拨号方式上网，现在电信给我分配的IP是这个猫占用的，如何用通过这个猫上网的电脑得到这个电信分配的IP？谢谢了

 

幼

幼虫2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-10

• #2

凡是有内置路由功能的都有内建WEB功能，可以访问该网页，得到外IP。

 

S

sdpdrh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-10

• #3

你可以等你的猫连上网后，在任务栏找到：开始->运行->cmd->ipconfig/all就能看到你自己的ip等信息了

 

轻

轻松虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-10

• #4

http://www.ip138.com/ip2city.aspShowMessage( IdHTTP1.Get('http://www.ip138.com/ip2city.asp'));

 

R

ruelm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-10

• #5

轻松虎的方法不错学习了

 

S

sunylat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-11

• #6

多谢各位，见着有分！多谢轻松虎！！！

 

S

sunylat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-11

• #7

难道就没有通过delphi本身的控件或者别的什么方法直接得到吗？

 

H

hkrs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-30

• #8

可用如下方法试下，如成功给我加分uses winsockfunction TForm1.LocalIP:string;type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInitData : TWSADATA;begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^ <> nil do begin result:=StrPas(inet_ntoa(pptr^^)); Inc(I); end; WSACleanup; end;