怎样用Delphi中根据IP地址得到主机名~ - Delphi论坛

lin9302

等　级：新手上路
帖　子：1
专家分：0
注　册：2009-8-28
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：2

怎样用Delphi中根据IP地址得到主机名~

哪位高手可以教一下~~小弟感激

欢迎来本空间交流http://375560782.qzone.

搜索更多相关主题的帖子: Delphi　主机　地址　

2009-08-28 11:43

amex58

等　级：论坛游民
帖　子：15
专家分：10
注　册：2008-6-16

第 3 楼

得分:10

{=================================================================
  功  能: 通过ip返回机器名
  参  数:
          ipaddr: 想要得到名字的ip
  返回值: 成功:  机器名   失败:  ''
=================================================================}
function getnamebyipaddr(ipaddr : string;var macname:string): boolean;
var
  sockaddrin: tsockaddrin;
  hostent: phostent;
  wsadata: twsadata;
begin
  result := false;
  if ipaddr = '' then exit;
  try
    wsastartup(2, wsadata);
    sockaddrin.sin_addr.s_addr := inet_addr(pchar(ipaddr));
    hostent := gethostbyaddr(@sockaddrin.sin_addr.s_addr, 4, af_inet);
    if hostent <> nil then
      macname := strpas(hostent^.h_name);
    result := true;
  finally
    wsacleanup;
  end;
end;

2009-09-24 15:35