Доступность IP адреса

[-=ATT=-]

Всем доброго дня!
Никак не получается сделать програмку в 3 строки на проверку IP адреса на живучесть, т.е. проверяем IP 22.22.22.22 и если он не доступен (к примеру по 80 порту), то showmessage('offline'), а если доступен, то showmessage('online').
Пробовал делать вот так:

Try
 IdHTTP1.Get( 'http://yandex.ru' );
 connected := True;
Except
 connected := False;
End;

Если адрес доступен, то все норм, а если нет, то ждать приходится около 20 секунт, а хотелось бы 1 сек.

[Slym]

IdHTTP1.Get( 'http://93.158.134.11' );

[Stilet]

А ты правильные адреса вводишь?

[-=ATT=-]

Сообщение от Slym

IdHTTP1.Get( 'http://93.158.134.11' );

да, с этим разобрался, осталось только это:

Если адрес доступен, то все норм, а если нет, то ждать приходится около 20 секунт, а хотелось бы 1 сек.

[Stilet]

а хотелось бы 1 сек.

А посмотри обладает ли idHTTP свойством TimeOut. Если да поставь в него 1000 (это секунда).
Если нет используй другой компонент для пинга

[-=ATT=-]

Сообщение от Stilet

А посмотри обладает ли idHTTP свойством TimeOut. Если да поставь в него 1000 (это секунда).
Если нет используй другой компонент для пинга

Есть, я выставляю

 IdHTTP1.ReadTimeout := 200;

но все равно висит по 15-20 секунд

[Stilet]

200 это маловато... Я не помню точно но там кажись какой-то порог снизу есть.

[-=ATT=-]

уже и Connect добавил, все равно висит блин...

IdHTTP1.ReadTimeout := 2000; 
IdHTTP1.ConnectTimeout := 2000;

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

IP нужно через ICMP пропускать.
на HTTP адреса нужно HEAD запрос посылать

оно куда быстрее будет.

[-=ATT=-]

Сообщение от Человек_Борща

IP нужно через ICMP пропускать.
на HTTP адреса нужно HEAD запрос посылать

оно куда быстрее будет.

Прислушался совету, вроде все работает, только результат выдает все время 'online' , даже если подставляю неработающий IP

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
   IdIcmpClient1.ReceiveTimeout:=300;
   IdIcmpClient1.Host:=('1.1.1.1');
   IdIcmpClient1.Port:=80;
   IdIcmpClient1.Ping;
   showMessage('online');
   except
   showMessage('offline');

end;

end;