| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1070 人关注过本帖
标题:怎样用Delphi中根据IP地址得到主机名~
只看楼主 加入收藏
lin9302
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2009-8-28
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
怎样用Delphi中根据IP地址得到主机名~
哪位高手可以教一下~~小弟感激


欢迎来本空间交流http://375560782.qzone.
搜索更多相关主题的帖子: Delphi 主机 地址 
2009-08-28 11:43
s912360101
Rank: 3Rank: 3
来 自:山西
等 级:论坛游侠
帖 子:168
专家分:147
注 册:2009-3-15
收藏
得分:10 
不懂???

孤独是一个人的狂欢
2009-09-19 17:51
amex58
Rank: 2
等 级:论坛游民
帖 子:15
专家分:10
注 册:2008-6-16
收藏
得分: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
快速回复:怎样用Delphi中根据IP地址得到主机名~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021969 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved