Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

IdHTTP1 (Indy компонент) отловить ошибку [D7, WinXP]


heady ©   (2005-09-30 22:41:00) 

Помогите pz выдать корректную ошибку при невозможности скачать HTML-код страницы
т.е. цель скачать HTML-код странички в Memo или выдать сообщение о невозможности операции (закрыто firewall'ом, нет подключения к инету...)
(если не может скачать, то возникает Debugger Exception например "Socket Error 10060 Connection timed out"

вот, что я сваял, но почему-то не работает :(
try
if Not(IdHTTP1.Connected) then
  IdHTTP1.Connect;
try
memo1.Text:=idhttp1.Get(' http://ya.ru');
finally
  IdHTTP1.Disconnect;
end;
except
  MessageDlg('Ошибка!', mtInformation, [mbOk], 0);
  IdHTTP1.Disconnect;
end;
IdHTTP1.Disconnect;
end;

Зарание благодарен.


DLag   (2005-10-07 01:19:00) [1]

Скачай новые компоненты.
http://www.indyproject.org/


Reindeer Moss Eater   (2005-10-06 21:42:00) [2]

в таком варианте та же ошибка :(
проверяю при выключенном инете...


Ну все верно. А ты чего ожидал?


heady   (2005-10-06 18:41:00) [3]

в таком варианте та же ошибка :(
проверяю при выключенном инете...
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
try
memo1.Text:=idhttp1.Get(' http://ya.ru');
except
 MessageDlg('Ошибка!', mtInformation, [mbOk], 0);
end;
end;

помогите pz.


Sashka   (2005-10-01 16:57:00) [4]

Убери все connect'ы и disconnect'ы...


Наверх

Титульная страница Поиск, карта сайта Написать письмо