将某一主机域名解析为IP地址。

页面导航:首页 > 软件编程 > Delphi > 将某一主机域名解析为IP地址。

将某一主机域名解析为IP地址。

来源: 作者: 时间:2016-01-23 10:15 【

将某一主机域名解析为IP地址。使用 WinSock 单元;过程如下:function HostToIP(Name: string; var Ip: string): Boolean;var wsdata : TWSAData; hostName : array [0..255] of char; hostEnt : PHostEnt; addr


将某一主机域名解析为IP地址。
使用 WinSock 单元;
过程如下:
function HostToIP(Name: string; var Ip: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [0..255] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  WSAStartup ($0101, wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    StrPCopy(hostName, Name);
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format (%d.%d.%d.%d, [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;
  end
end;

 

测试时请在在线状态。

测试代码:
var
IP: string;
DNS: string;
begin
  DNS := InputBox(输入DNS域名, 主机名称:, );
  if HostToIp(DNS, IP) then showmessage(IP);
end;
作者:Latfi Baran

 


 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <