Подключение к интернет

[Andrey85]

Подскажите пожалуйста,можно ли как-то ускорить этот процесс. Я делаю проверку соединения с интернетом следующим кодом:

try
idhttp1.head('http://ya.ru');
showmessage('инет есть');
except
showmessage('нет');
end;

Все нормально работает,но долго обрабатывается ошибка. Можно ли ускорить процесс.

[mihali4]

А со свойством ReadTimeout поиграть не пробовали ?

[Andrey85]

Подскажите немного.Как?

[mihali4]

Для начала посмотрите хэлп по компоненту. Там все подробненько.
Или у вас руки больные ?
Негоже форум засорять копированием того, что у всех под руками имеется.

[ZverSS88]

uses RASUnit;

//бла-бла

function Connecting: Integer;
var Conns: Array[1..10] Of TRasConn;
Size, Num: Integer;
Begin
Size:=Sizeof(TRasConn)*10;
Fillchar(Conns, Size, 0);
Conns[1].DwSize:=Sizeof(TRasConn);
RASEnumConnectionsA(@conns[1], Size, Num);
Connecting:=Num;
end;

//бла-бла

if Connecting=0 then
//нет нэта
if Connecting<>0 then
//есть нэт.