(在线等)如何在局域网取得Internet上的动态IP地址(100分)

X

xgz_ball

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #1

我的机器是通过Lan上网上的，那如何才能得到我的机器在Internet上的动态IP呢!!
谢谢!!!!

 

积

积步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #2

http://pascalhome.51.net/edit/showip.php

 

P

prosky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #3

dos命令ipconfig

 

H

holyknight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #4

你的機器沒有Internet上的動態IP

http://pascalhome.51.net/edit/showip.php

可以返回你LAN中服務器的IP地址.

 

F

finalrinoa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #5

随便找个论坛，上去后就知道了

 

P

prosky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #6

如果你在局域网内通过代理服务器上internet应该是不会得到动态ip的。

 

X

xgz_ball

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #7

那如何才能用Socket编写不同网段之间点与点之间的通讯呢，给点意见吧

 

L

liliwei78

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #8

function LocalIP : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
pheHostEnt;
pptraPInAddr;
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;
使用上述子函数就可以获得IP地址