通过ip地址得到机器名.txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 16 行

//通过IP地址得到机器名
function iptoname(ip:string):string;
var
  WSAData:TWSAData;
  p:PHostEnt;
  InetAddr:dword;
begin
  WSAStartup(2, WSAData);
  InetAddr:= inet_addr(PChar(IP));
try
   p:=GetHostByAddr(@InetAddr, Length(IP), PF_Inet);
   result:=p^.h_name;
  except
   result:='';
  end;
end;