![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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'ы...