Утилита ping (icmp)

[Andersen1313]

Есть код, но в нем ошибки, не знаю как исправить. Вроде смотрю другие реализации в интернете и не вижу разницы, не понимаю, что не так. При вожу часть кода в которой находится ошибка весь проект во вложениях:

addr.S_addr:=inet_addr(PAnsiChar(ip_addr));
  if addr.S_addr=INADDR_NONE then begin
    he:=gethostbyname(PAnsiChar(ip_addr));
    if he=nil then begin
      MainForm.log.Lines.Add('Ошибка получения адреса хоста '+ip_addr);
      result:=false;
      Exit;
    end;
    addr.S_un_b.s_b1:=he^.h_addr^[0];
    addr.S_un_b.s_b2:=he^.h_addr^[1];
    addr.S_un_b.s_b3:=he^.h_addr^[2];
    addr.S_un_b.s_b4:=he^.h_addr^[3];
  end;

[Andersen1313]

Суть участка, как я понимаю в том, что берется строка ip_addr. В ней может быть адрес как в форме yandex.ru, так и в форме ip. В переменную addr надо занести ip адрес для дальнейшей работы с ним

[Человек_Борща]

Вот вам на заметку: 1 и 2

[Aliens_wolfs]

Попробуйте эту программку, она пингует по таймеру диапазон IP либо хост, ее вы можете переделать под свою программу используя от туда UIcmp модуль.