大家们,请过来帮一下:请问用Delphi怎样实现IP地址解析为服务器域名?thanks!!!

Question

我有一个相反的。function GetIPFromName(Name: string): string;
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  WSAStartup(2, WSAData);
  HostEnt := gethostbyname(PChar(Name));
  with HostEnt^ do
    Result := Format('%d.%d.%d.%d', [Byte(h_addr^[0]),
      Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
  WSACleanup;
end;

Answer 1

这当然不可能做到,N个域名可以解析到同一个IP!

Answer 2

想破了头也没有直接的办法，做了个试验，你在IE中输入一个IP，显示的不会出现域名。但由此想到一个间接的办法，不过有限制条件。可以将此IP连接的主页保存成HTML格式，并在其中查找所有的链接字符串，分析链接字符串，最多的就是"域名/子连接名"，按这个方法可以取得域名。有没有直接的办法？我也想知道，UP！