Ошибка при загрузке BMP

[DarkHacker]

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

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  if OpenPictureDialog1.Execute then begin
    for i := 0 to 1000000 do begin
      bmp.LoadFromFile (OpenPictureDialog1.FileName);
      Button2.Caption := IntToStr (i);
      Application.ProcessMessages;
    end;
  end;
end;

Для одной картинки все ок.
Пофакту: имеем 5 директорий в 4х из них по одному файлу, в 1 лежит 15 файлов.
При цикле что я писал выше на 418 элементе выкидает ошибку, пробовал удалять этот файл и т.д. это не влияет, т.е. проблема не в файле.

UPDATE

Сделал

if(bmp.Handle<=0) then
         bmp.loadfromfile(AList_actions[i]);

Выполнило все итерации..

[Sibedir]

Ну а как в посте #45 делал?

Короче, метода такая:
1. копируешь проект (делаешь копию)
2. методично удаляешь всё подряд поочередно проверяя наличие ошибки
3. когда ошибка исчезает - возвращаешь последнее и на п. 2
4. если больше нечего удалять (т.е. удалил всё, что не влияет на появление ошибки), а непонимание осталось - выкладываешь сюда

Ну или просто
1. выкладываешь проект сюда

[DarkHacker]

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

Ну а как в посте #45 делал?

Нет. В том методе ничего "принципиального" вроде как нет. Тот же перебор и т.д. Просто сейчас я один раз строю список и потом уже по нему гоняю итерации

Только что погонял 10к, на 6к выбило такую же ошибку.
Но уже хоть какой-то прогресс.

UPDATE
Изменил

if(bmp.Handle<=0) then
         bmp.loadfromfile(AList_actions[i]);

На

if(bmp.Handle<0) then
         bmp.loadfromfile(AList_actions[i]);

Выполнились все 10к итераций.

[Аватар]

Все нормально с LoadFromFile. Нет утечек. Откуда Picture?
Код из #47 запустил в главном 5000, 15 файлов в каталоге - без проблем

[Sibedir]

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

Нет. В том методе ничего "принципиального" вроде как нет.

DarkHacker, давай без "вроде как". У меня у самого таких "вроде как" знаешь сколько было. Программа работает не по задуманному алгоритму, а по фактической его реализации. Сам понимаешь о чём я.

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

UPDATEИзменил
...
На

if(bmp.Handle<0) then
         bmp.loadfromfile(AList_actions[i]);

Выполнились все 10к итераций.

Вообще ничё не понял. Зачем проверка хэндела понадобилась? bmp кто-то еще трогал?

[DarkHacker]

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

DarkHacker, давай без "вроде как". У меня у самого таких "вроде как" знаешь сколько было. Программа работает не по задуманному алгоритму, а по фактической его реализации. Сам понимаешь о чём я.

Так мне ваш алгоритм и не подходит

Правда, тратит он на это больше 2 секунд.

У меня за 2 секунды с 10-15 вариантов уже пробежит.

[DarkHacker]

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

DarkHacker, давай без "вроде как". У меня у самого таких "вроде как" знаешь сколько было. Программа работает не по задуманному алгоритму, а по фактической его реализации. Сам понимаешь о чём я.

Вообще ничё не понял. Зачем проверка хэндела понадобилась? bmp кто-то еще трогал?

Помогите найти ошибку тогда...

for j:=0 to 10000 do
begin
 bmp := TBitmap.Create;
        
for i:=0 to (AList_actions.count)-1 do
  begin
         if(bmp.Handle<0) then
         bmp.loadfromfile(AList_actions[i]);
         application.ProcessMessages;

         memo2.Lines.Add(inttostr(j)+' ==>'+AList_actions[i]);

                end;
                
         bmp.ReleaseHandle;
         bmp.Dormant;
         bmp.FreeImage;
         bmp.Free;

end;

Если убираю валятся ошибки. И да я понимаю что ВЫШЕ создается обьект но у меня ошибки появляются без этой строки...
Я уже 5 день с этим целые сутки, не смейтесь пожалуйста если сделал невероятную глупость)

[Sibedir]

1. Это вызывается в таймере?
2. Winda - x64?
3. Еще раз пожалуйста: на какой строчке ошибка и её текст? "too many consecutive exceptions"?

[DarkHacker]

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

1. Это вызывается в таймере?
2. Winda - x64?
3. Еще раз пожалуйста: на какой строчке ошибка и её текст? "too many consecutive exceptions"?

1. Да, это вызывается в таймере в с интервалом "30".
2. Нет, XP.
3. На строке загрузки bmp из списка. Да такая ошибка.

[Sibedir]

Скинь сюда архивом пару типовых картинок.

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

1. Да, это вызывается в таймере в с интервалом "30".

1. В таймере ставь самоотключение: Timer1.Enable := False
2. После отработки цикла заново его врубай: Timer1.Enable := True

или

избався от application.ProcessMessages;

Трабла всё-таки с памятью. Это 99%. При загрузке есть вложенные try. Там следы у тебя скорее всего и теряются.