Как проверить, если TIdHTTP возбуждается исключение

Question

Я не уверен, если это лучший способ проверить, если исключение TIdHTTP поднимается, вот что я сделал:

HTTP := TIDHttp.Create(nil); 
try 
    try 
    HTTP.Head(URL); 
    SizeF := HTTP.Response.ContentLength; 
    code := HTTP.ResponseCode; 
    except 
    on E: Exception do 
    begin 
     code := HTTP.ResponseCode; 
     ShowMessage(IntToStr(code)); 
    end; 
end; 
finally 
    HTTP.Free; 
end; 
if code = 200 then 
    // go download the file using multiple threads. 

То, что я хочу достигнуть, (например, я уже это сделал), в противном случае программа продолжает работать и загружать файл. Так это правильный способ сделать это? Спасибо за ваши ответы.

Answer 1

Как правило: только обрабатывайте исключения, когда можете и хотите их обрабатывать.

В противном случае пусть они просто текут, чтобы остановить текущее выполнение вашего кода. Без перехвата вы просто получите диалог с сообщением об исключении (это обрабатывается TApplication).

В этом случае вы можете изменить свой код

HTTP := TIDHttp.Create(nil); 
try 
    HTTP.Head(URL); 
    // if an exception is raised then the rest of the code will not be executed 
    // yes, the code in finally part will execute 
    SizeF := HTTP.Response.ContentLength; 
    code := HTTP.ResponseCode; 
finally 
    HTTP.Free; 
end; 

// check if all conditions are met 
if code <> 200 then 
    // if not, raise a custom exception as you like 
    raise Exception.Create('Not what I expected here'); 

// go download the file using multiple threads.