Delphi! TIdHTTP проверка установлено ли соединение с интернет сетью?

[Пепел Феникса]

Try
 IdHTTP1.Get(<адрес ресурса>);
Except
 //не удалось получить ресурс
End;

самое правильное решение.

если будет ошибка то скрин её в студию + строчку где она.

[AlienNation]

Сообщение от Пепел Феникса

Try
 IdHTTP1.Get(<адрес ресурса>);
Except
 //не удалось получить ресурс
End;

самое правильное решение.

если будет ошибка то скрин её в студию + строчку где она.

Эврика! см. http://www.delphisources.ru/pages/fa...tion_type.html

все, надоело думаю и мне и вам, сасибо!

[Arsenx777]

Сообщение от Пепел Феникса

Try
 IdHTTP1.Get(<адрес ресурса>);
Except
 //не удалось получить ресурс
End;

самое правильное решение.

если будет ошибка то скрин её в студию + строчку где она.

Я в самом начале тоже самое предложил!

[AlienNation]

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

Я в самом начале тоже самое предложил!

спс за предложение, сделал спец. отедльно создал новый проект, чтобы было все чисто и понятно, смотрим:
1: запускаю, нажимаю кнопку (при выкл интеренте), прога ломается
disabled.JPG игры с handleRedirect=true/false ниче ни меняют
2: смотрим код, ошибку показывает на линии idhttp.get('url');
disabled_2.JPG
3: потом еще раз запускаю проект и только тогда вылазит этот showmessage
disabled_3.JPG
4: проверка при дейст. соединении, все работает
disabled_4.JPG

увидели что вы мне предложили?

[Пепел Феникса]

пост №19 перечитывать до понимания.

[Arsenx777]

я честно говоря сам в этом еще не разбераюсь! самому было интерестно, весь яндекс и гугл потыкал кроме той функции нечего не нашел! почти на всех сайтах одна и таже статья

Естественно будет выскакивать ошибка, т.к во время работы вы вырубили инет!

Y Bac icq uJIu skype ecTb? a To MHe To}|{e uHTepecTHo Kak 3To cqeJIaTb!

[Пепел Феникса]

Естественно будет выскакивать ошибка, т.к во время работы вы вырубили инет!

будет брошено исключение, и если оно не обработано то будет окно с ошибкой.
НО, повторяю еще раз, по умолчанию отладчик показывает любое исключение.
потому проверяйте порою и без отладки, ну или жмите продолжить(снова Run, что будет продолжением, а не сначало))

[AlienNation]

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

Y Bac icq uJIu skype ecTb? a To MHe To}|{e uHTepecTHo Kak 3To cqeJIaTb!

я уже указывал ссылку, так уж и быть, еще раз
http://www.delphisources.ru/pages/fa...tion_type.html

Пепел Феникса прав конечно, буду учить отладчик, а пока только так
На счет ICQ смотрите профиль, там должен быть раздел связь, только отображается у них не корректно, я думаю разберетесь.

[Arsenx777]

procedure TForm1.Button1Click(Sender: TObject);
begin
try
memo1.Text:=idhttp1.Get('http:\\ya.ru')
except
  showmessage('Don"t');
      end;
   end;

Воооот все работает прекрастно! ошибка из-за delphi, если сохранить проект и запустить обычный exe, то некаких ошибок НЕТ!

[AlienNation]

ну да, в принципе так и должно быть.