IdHTTP1 (Indy компонент) отловить ошибку

← →
heady (2005-09-30 22:41) [0]

Помогите 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;

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

← →
Sashka © (2005-10-01 16:57) [1]

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

← →
heady (2005-10-06 18:41) [2]

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

помогите pz.

← →
Reindeer Moss Eater © (2005-10-06 21:42) [3]

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

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

← →
DLag (2005-10-07 01:19) [4]

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

IdHTTP1 (Indy компонент) отловить ошибку Найти похожие ветки