获取当前ISP供应商分给你的IP地址(100分)

W

wubochao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-28

• #1

有那位可以告诉我用什么函数可以获取当前ISP供应商分给你的IP地址。
Thank you very much.

 

T

Tyrael

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-28

• #2

如下:
uses winsock;
function localIp:string;
type tapinaddr=array[0..10] of pinaddr;
var .....
begin
wsastartup($101,ginitdata);
result:='';
gethostname(buffer,sizeof(buffer));
phe:=gethostbyame(buffer);
if phe<>nil then
begin
pptr:=papinaddr(phe^.h_addr_list);
i:=0;
while pptr^<>nil do
begin
result:=strpas(inet_ntoa(pptr^^));
inc(i);
end;
end;
wsacleanup;
end;

 

W

wubochao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-29

• #3

请给出完整的代码。最好加上说明。

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-29

• #4

uses
WinSock;

function GetIPAddress: string;
var
phosteHostEnt;
Buffer:array[0..100] of char;
WSAData:TWSADATA;
begin
result:='';
if WSASTartup($0101, WSAData) <> 0 then exit;
GetHostName(Buffer,Sizeof(Buffer));
phoste:=GetHostByName(buffer);
if phoste = nil then
begin
result:='127.0.0.1';
end
else
result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;

 

T

Tyrael

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-29

• #5

如下:
uses winsock;
function localIp:string;
type tapinaddr=array[0..10] of pinaddr;
var .....
begin
wsastartup($101,ginitdata);//初始化
result:='';
gethostname(buffer,sizeof(buffer));//得到主机名
phe:=gethostbyame(buffer);
if phe<>nil then
begin
pptr:=papinaddr(phe^.h_addr_list);//取ip地址列表
i:=0;
while pptr^<>nil do //有可能为多个ip地址
begin
result:=strpas(inet_ntoa(pptr^^));//取ip地址
inc(i);
end;
end;
wsacleanup;//释放
end;
够详细的了，因该可以看懂

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-07

• #6

（1）用RAS函数吧，很简单的。
（2）又或者新建一文本文件，写下：
<Script src="http://www.ipsearch.com.cn/locate.ips"></Script>
再把扩展名改为htm或html,然后打开就可以了。
（3）

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-12

• #7

wubochao:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-25

• #8

wubochao:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-12

• #9

多人接受答案了。