function GetHostByName

function GetHostByName

Previous pageReturn to chapter overviewNext page

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.

 

В данном примере скрипт определяет список IP для yandex.ru и поочередно пингует каждый из адресов при помощи функции Ping