当前位置：首页 > 软件开发 > net
firefox

远程控制篇：通过IP地址得到机器名

远程控制篇：通过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;

官本和 2001.4

 ↓相关文章：
© 2006-2008 All Rights Reserved