Как при неудчной загрузке файла, пропустить ошибку (HTTP/1.0 504 Gateway Time-out) и прочии

[Nockola]

Здравствуйте!
Больше недели ищу способ заставить прогу работать без ошибок.
Прога создаёт ПРАЙС-ЛИСТ + фото товаров.
Она работает так:
- вношу ссылку на группу товаров
- прога делает список ссылок на товары
- после этого, заходит по ссылке и сохраняет все фото

Если делать просто запрос на фото

text:=IdHTTP1.Get(ListBox2.Items[0]); //список ссылок на JPG файлы

Т.к. товаров у меня обычно 200 и на каждый идёт фотографий 20, то времени, при загрузки фото с сервера, возникают разные ошибки (не существует файла, что-то там с сокетом и пр.)

Чтобы избежать ошибки о не существования файла, я проверяю его на существование:

function CheckUrl(url: string): boolean;
var
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword;
  dwcode: array [1..20] of char;
  res: pchar;
begin
  if pos('http://', lowercase(url)) = 0 then
    url := 'http://'+url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if assigned(hsession) then
  begin
    hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    result := (res = '200') or (res = '302'); //если добавить другие (504) то не помогает
    if assigned(hfile) then
      InternetCloseHandle(hfile);
    InternetCloseHandle(hsession);
  end;
end;

//сам код
if CheckUrl(ListBox2.Items[0])=true then //проверяем ссылку на существование
begin
end;
text:=IdHTTP1.Get(ListBox2.Items[0]);
try
IdHTTP1.Disconnect;  {чтобы не возникала ошибка "Cannoction Closed Gracefully"}
except
on E:EIdSocketError do IdHTTP1.Socket.Close; //чтобы не возникало ошибки сокета Но она всё равно возникает =(
end;

Если возникает любая ошибка:
HTTP/1.0 503 Service Unavailable
HTTP/1.0 408 Request Time-out - вот эта ошибка чаще всего возникает
то прога перестаёт загружать JPG файлы и вся работа насмарку..

Подскажите как при загрузки файла, проигнорировать любую ошибку от сервера и продолжить работу программы дальше, чтобы она не обратила внимание на ошибку/игнорировала её/пропустила/сама закрыла и работала дальше..

Встречал такие темы но в них тема не была раскрыта =(

[Stilet]

Подскажите как при загрузки файла, проигнорировать любую ошибку от сервера и продолжить работу программы дальше, чтобы она не обратила внимание на ошибку/игнорировала её/пропустила/сама закрыла и работала дальше..

А толку? Соединение то закрыто, следовательно ты ничего не сможешь догрузить.
Выясняй причину недоступности соединения.

[Nockola]

Сообщение от Stilet

А толку? Соединение то закрыто, следовательно ты ничего не сможешь догрузить.
Выясняй причину недоступности соединения.

Ошибка только при загрузке данного фото (одного из 2000 штук), остальные то загрузятся! Просто сервер на котором фото - иногда глючит..