Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.08.30;
Скачать: CL | DM;

Вниз

Как продолжить выполнение программы после искл. ситуации(raise)?   Найти похожие ветки 

 
VoyagerEternal ©   (2009-06-26 16:05) [0]

Как продолжить выполнение программы после искл. ситуации(raise)?

Задача такая:
загружаю с инета файл функцией:
http.Get("http:\\",FileStream);
если загрузка не удалась, функция генерирует исключительную ситуацию вызовом raise

вопрос: как продолжить выполнение процедуры при ошибке (исключительной ситуации)?


procedure TForm1.Button1Click(Sender: TObject);
begin

try
 http.Get("http:\\",FileStream);
finally
 //здесь программа выходит из процедуры если была ошибка
 //как заставить программу продолжить выполнять эту процедуру при ошибке?
end.

...//этот код не выполняется при ошибке (исключительной ситуации), а хочется

end;


 
Юрий Зотов ©   (2009-06-26 16:09) [1]

Посмотрите try-except


 
VoyagerEternal ©   (2009-06-26 16:20) [2]

try
http.Get(Url,F);
except on E:Exception do
end;

работает,
как теперь заставить http.Get не показывать сообщение об ошибке — оно мешает работе программы


 
DVM ©   (2009-06-26 16:28) [3]


> http.Get не показывать сообщение об ошибке — оно мешает
> работе программы

Это не твоя программа сообщение показывает это Delphi - в свойствах там где сними галку Stop On Delphi Exceptions


 
Юрий Зотов ©   (2009-06-26 16:29) [4]

> VoyagerEternal ©   (26.06.09 16:20) [2]

Попробуйте запустить программу НЕ из Delphi.


 
Ega23 ©   (2009-06-26 16:37) [5]


> как теперь заставить http.Get не показывать сообщение об
> ошибке — оно мешает работе программы


Если запустишь не из среды Delphi - будет всё нормально.
Если в среде не хочешь ошибку получать:
Tools -> Debugger Options -> Language Exceptions -> Stop on Delphi Exceptions (зависит от версии Delphi, у меня Notify on language exceptions)
Но с этой галкой осторожнее - я так, однажды её сняв и забыв обратно включить, бился почти день, ошибку искал.



Страницы: 1 вся ветка

Текущий архив: 2009.08.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
15-1246568526
Kostafey
2009-07-03 01:02
2009.08.30
Наклепал пару заметок про EMaxima


4-1212749135
Red_imp
2008-06-06 14:45
2009.08.30
Блокировка клавиатуры + мыши под Win XP


15-1246337441
desc
2009-06-30 08:50
2009.08.30
Общий вопрос по базам данных


1-1210931798
max1991
2008-05-16 13:56
2009.08.30
содержимое StringGrid в FastReport


2-1246258682
Andrey K
2009-06-29 10:58
2009.08.30
TStringGrid, мыш, хинт