将某一主机域名解析为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

我测试Kingron给出的用法时，hostEnt老是=nil。

后来我在用gethostbyname(...)之前，加入WSAStartup(...),终于一切OK。

Winsock单元中没有getaddressbyname()