16.47.3. function GetHostByName

function GetHostByName(AName : string) : string;
 
Возвращает IP адрес хоста с заданным именем. Если у хоста более одного IP, возвращается их список, разделитель - запятая.
В случае ошибки возвращается пустая строка.
 
Совместимость: AVZ 4.45 и выше
 
Пример:
 
var
  IpAddr, PingIP, s : string;
begin
  IpAddr := GetHostByName('yandex.ru');
  AddToLog('yandex.ru, IP='+IpAddr);
  if IpAddr <> '' then begin
   IpAddr := IpAddr + ',';
   while pos(',', IpAddr) > 0 do begin
     PingIP := copy(IpAddr, 1, pos(',', IpAddr)-1);
     delete(IpAddr, 1, pos(',', IpAddr));
     AddToLog('Ping хоста '+PingIP);
     if Ping(PingIP, 5000, S) then
      AddToLog(' хост отвечает')
     else
     AddToLog(' ошибка');
   end;
  end;
end.
 
В примере использовались: AddToLog, Ping
 
 
В данном примере скрипт определяет список IP для yandex.ru и поочередно пингует каждый из адресов при помощи функции Ping