將某一主機域名解析為IP地址。

將某一主機域名解析為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