我想做个组件可以查找到局域网内已知ip的计算机的名字？(100分)

C

crodling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #1

我事先通过asp知道他们的ip地址，由于ip是动态分配的，所以不能做ip和机器名的对应表
来查找。我用getcomputername（）得到的却是服务器的名字！有什么办法可以得到么？

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #2

ping -a 192.168.10.11
这个命令可以得到计算机名字。

 

C

crodling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #3

可是在程序里怎么做出来呢？直接调用外部命令，得到机器名字放在哪里？
不好意思，小弟接触delphi不多，开发组件更是经验不足，
能否给段源码看一下呢

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #4

uses winsock;

function iptoname(ip: string): string;
var
WSAData: TWSAData;
p: PHostEnt;
InetAddr: dword;
begin
result := '''';
WSAStartup(2, WSAData);
InetAddr := inet_addr(PChar(IP));
try
p := GetHostByAddr(@InetAddr, Length(IP), PF_Inet);
if p <> nil then result := p^.h_name;
except
result := '''';
end;
end;

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #5

上面的方法可以用。。。

 

C

crodling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #6

多人接受答案了。