Проверка на существование графического файла, false - скачать с сервера

[kotzzz]

Ребята, возникла проблема... Нужно перед тем как скачать графический файл с сервера, нужно сделать проверку на существование его в каталоге программы...

пытался такой код влепить, но он постоянно выдает ошибку в строке красным цветом:

var
  I: Integer;
  K: TStringList;
  M: TMemoryStream;
begin
  M:= TMemoryStream.Create;
  K:= TStringList.Create;
k.LoadFromFile(SaveFolder +'\spisok2.txt');
       for I:= 0 to k.Count-1  do 
        begin
         assignFile(F,'baza\13\'+Inttostr(i+1)+'.jpg');
          {$I-}
           Reset(f);
            {$I-}
           if IOResult <> 0 then
             begin
              IDHTP.Get('http://sss.ucoz.ru/'+k[i], M);
              path:='baza\13\'+Inttostr(i+1)+'.jpg';              M.SaveToFile(path);
              M.Clear;
             end;

Что только не перепробовал... Моя задача: есть база, нужно проверить обновление на сервере, если базы новые начинается скачивание, но не всех подряд(зачем скачивать те, которые есть), а только новые по заранее скаченному файлу со списком ссылок к файлам базы...

k.LoadFromFile(SaveFolder +'\spisok2.txt');
       for I:= 0 to k.Count-1  do 
        begin
           If FileExists('baza\13\'+Inttostr(i+1)+'.jpg') then
             begin
             showmessage('Файл baza\13\'+Inttostr(i+1)+'.jpg существует');
             end
             else
             begin
              IDHTP.Get('http://sss.ucoz.ru/'+k[i], M);
              path:='baza\13\'+Inttostr(i+1)+'.jpg';
              M.SaveToFile(path);
              M.Clear;
             end;
        end;
        M.Free;

Но как только доходит до файлов которых нет, пишет ошибку в выделенной красным строке...

Что мне делать?! Заранее спасибо...

[postal2]

IDHTP что такое? Не модуль ли случайно? может IDHTP1 всё таки? Перед применением создан?

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

[Пепел Феникса]

какую ошибку пишет?

[kotzzz]

Сообщение от Пепел Феникса

какую ошибку пишет?

Ошибка такая:

Project Project1.exe raised exception class EIdHTTPProtocolException with message 'HTTP/1.1 404 Not Found'. Process stopped. Use Step or Run to continue.

Что самое интересное, ошибка возникает именно тогда, когда я добавляю функцию проверки на существование рисунка jpg. Без функции всё идет идеально, только он снова и снова качает все файлы подряд... Трафик уходит, да и зачем скачивать если он(файл) уже есть...
и затем зелёной стрелочкой (в начале), выделяет все строку

path:='baza\13\'+Inttostr(i+1)+'.jp g';

им я задаю путь сохранения файла на диску для M.SaveToFile(path);

формал ссылок в документе с сылками:

baza/13/1.jpg
baza/13/2.jpg
baza/13/3.jpg
baza/13/4.jpg
baza/13/5.jpg
baza/13/6.jpg
baza/13/7.jpg
baza/13/8.jpg
baza/13/9.jpg
baza/13/10.jpg
baza/13/11.jpg
baza/13/12.jpg
baza/13/13.jpg
baza/13/14.jpg
baza/13/15.jpg
baza/13/16.jpg
baza/13/17.jpg
baza/13/18.jpg
baza/13/19.jpg
baza/13/20.jpg
baza/13/21.jpg
baza/13/22.jpg
baza/13/23.jpg
baza/13/24.jpg
baza/13/25.jpg
baza/13/26.jpg
baza/13/27.jpg
baza/13/28.jpg

Все ссылки помещаются в переменную K:TStringList;

При скачивании добаляю название сайта и путь к файлу:
IDHTP.Get('http://sss.ucoz.ru/'+k[i], M);

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

IDHTP что такое? Не модуль ли случайно? может IDHTP1 всё таки? Перед применением создан?

Если хочешь можешь посмотреть дополнительные материалы... про компонент IdHTTP, это не мой модуль, а встроенный в Delphi. Его я использую для закачки файлов...

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

даже не знаю... эту функцию я использую не раз... почему тогда же она в одном месте идет а в другом нет?! Если сказать про предыдущую строчку...

[Kotofff]

Обрати внимание на косую черту !
Для работы с файлами на диске используется "\", а для инета - "/"

[kotzzz]

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

Обрати внимание на косую черту !
Для работы с файлами на диске используется "\", а для инета - "/"

Я знаю....

Тогда почему этот код работает: ?

k.LoadFromFile(SaveFolder +'\spisok2.txt');
       for I:= 0 to k.Count-1  do 
        begin
              IDHTP.Get('http://sss.ucoz.ru/'+k[i], M);
              path:='baza\13\'+Inttostr(i+1)+'.jpg';
              M.SaveToFile(path);
              M.Clear;
        end;
        M.Free;

А этот не идет: ?

k.LoadFromFile(SaveFolder +'\spisok2.txt');
       for I:= 0 to k.Count-1  do 
        begin
           If FileExists('baza\13\'+Inttostr(i+1)+'.jpg') then
             begin
             showmessage('Файл baza\13\'+Inttostr(i+1)+'.jpg существует');//17-jpg файлов есть на диске, он это сообщение показывает             
             end
             else
             begin
              IDHTP.Get('http://sss.ucoz.ru/'+k[i], M);
              path:='baza\13\'+Inttostr(i+1)+'.jpg';//на 18.jpg файле он выдает ошибку, которую я описывал выше... и выделяет строку path              
              M.SaveToFile(path);
              M.Clear;
             end;
        end;
        M.Free;

Вот ошибки при компиляции проекта, может они помогут найти истинную ошибку...

[Warning] Unit1.pas(49): Symbol 'faArchive' is specific to a platform
[Warning] Unit1.pas(50): Symbol 'FileSetAttr' is specific to a platform
[Warning] Unit1.pas(50): Symbol 'faArchive' is specific to a platform
[Warning] Unit1.pas(200): Return value of function 'GetInetFiles' might be undefined

[mihali4]

Это не ошибки, а предупреждения.
Поставьте бряку на строку

IDHTP.Get('http://sss.ucoz.ru/'+k[i], M);

с условием I=17
И - по шажочкам, с просмотром всех параметров и переменных...

[kotzzz]

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

Это не ошибки, а предупреждения.
Поставьте бряку на строку

IDHTP.Get('http://sss.ucoz.ru/'+k[i], M);

с условием I=17
И - по шажочкам, с просмотром всех параметров и переменных...

Всё, спасибо разобрался... в коде не было ошибки, проблема была свсем в другом...

Всем спасибо...