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.
В данном примере скрипт определяет список IP для yandex.ru и поочередно пингует каждый из адресов при помощи функции Ping