Как загрузить файл из интернета

[KORN]

http://programmersforum.ru/showthrea...F7%E5%ED%E8%FF

а поискать сложно7

[tarakan1983]

По этому форуму искал уже - все предложенные варианты не хотят работать как надо, например, тот который Вы указали все время пишет Not connecteed, хотя ставлю рядом два окна
1. cmd - ping www.google.ru -t
2. Это приложение
Командная строка пингует гугл, приложение говорит нет интернета. Сейчас ищу метод как проверить доступен тот сайт который мне нужен или нет

[KORN]

попробуй через

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

у меня работает

[tarakan1983]

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

попробуй через

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

у меня работает

сделал

procedure TForm1.Button1Click(Sender: TObject);
begin
try
IDHTTP1.head('http://ya.ru');
showmessage('есть');
// инет есть
except

showmessage('нет');
//инета нет

end;
end;

При подключенном говорит есть, при отключенном ошибку

[KORN]

ну так и должно быть, при работе не из под компилятора ошибки не будет