如何根据IP获取计算机名称(50分)

M

meiguibao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #1

如何根据IP获取计算机名称

 

老

老莫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #2

不知道你要机器名做什么用
用nslookup查dns了

 

X

xjtuhongwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #3

gethostbyaddr

 

J

journer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #4

很多了，搜一下吧，DFW

 

M

myangel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #5

function IPToName(ip: string): string;
var
p : PHostEnt;
InetAddr : dword;
begin
InetAddr := inet_addr(PChar(IP));
try
p := GetHostByAddr(@InetAddr, Length(IP), PF_Inet);
result := p^.h_name;
except
result := '';
end;
end;

 

M

meiguibao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #6

多人接受答案了。