发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: 将IP解释成主机名
发信站: 哈工大紫丁香 (2002年01月19日15:50:19 星期六), 站内信件

摘　要：描述一个将IP解释成主机名的函数
关键字：IP Numbers 主机
类　别：网络


中文开发在线原创作品，未经允许，严禁任何形式的转载
uses winsock
-------
function IPAddrToName(IPAddr : String): String;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
  HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt<>nil then
  begin
    result:=StrPas(Hostent^.h_name)
  end
  else
  begin
    result:='';
  end;
end;
//例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=IPAddrToName(Edit1.Text);
end;


--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]