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

[DarkHacker]

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

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

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

или

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

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

Я несовсем корректно выразился. Это БУДЕТ он работать по таймеру, а приведенный код в 2х циклах работает по кнопке. при таймере будет один цикл.

[Sibedir]

1. Библиотеки (dll) используешь?
2. Картинки дай посмотреть, жадина.

[Serge_Bliznykov]

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

Я несовсем корректно выразился. Это БУДЕТ он работать по таймеру, а приведенный код в 2х циклах работает по кнопке. при таймере будет один цикл.

т.е. сейчас, когда у Вас ошибка валится при удалении проверки if bmp.hanlde, никакого таймера у Вас в коде нет?

[DarkHacker]

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

т.е. сейчас, когда у Вас ошибка валится при удалении проверки if bmp.hanlde, никакого таймера у Вас в коде нет?

Да именно так.

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

1. Библиотеки (dll) используешь?
2. Картинки дай посмотреть, жадина.

Возьмите любое изображение 40 на 50 с pf4bit )))

[evg_m]

попробуй после каждой загрузки сделать FreeImage

bmp.LoadFromFile (OpenPictureDialog1.FileName);
.....
bmp.FreeImage;

[Sibedir]

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

попробуй после каждой загрузки сделать FreeImage

bmp.LoadFromFile (OpenPictureDialog1.FileName);
.....
bmp.FreeImage;

Да не в этом дело. Даже если это "поможет", то это не значит, что мы нашли ошибку.

DarkHacker
http://www.programmersforum.ru/showp...9&postcount=52

1. Библиотеки (dll) используешь?

[DarkHacker]

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

Да не в этом дело. Даже если это "поможет", то это не значит, что мы нашли ошибку.

DarkHacker
http://www.programmersforum.ru/showp...9&postcount=52

1. Библиотеки (dll) используешь?

Нет не использую.

[Sibedir]

Ну тады давай исходники.

LoadFromFile лично мной изнасилован по полной. Ошибки были. Но весьма предсказуемые: Нехватка памяти. Ещё рекурсия давала, опять же, предсказуемое переполнения стека. Ни чего сверхестественного не наблюдалось.

Пробуй удалять потихоньку и тестить. Только ни в коем случае не останавливайся, если "о-о-о!!! заработало! ура!!!".

Чё хоть пишешь-то? Столько тайн, столько загадок. Даже картинки не даёшь. Не приличные что-ли?
Выкладывай. Тут сильно смеяться не будут. Они добрые. Я знаю.

//-----------------------------------------------------------------------------------------------------------------------------
А, и кстати, если запускаешь не из Delphi, как себя ведет?

[DarkHacker]

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

Ну тады давай исходники.

LoadFromFile лично мной изнасилован по полной. Ошибки были. Но весьма предсказуемые: Нехватка памяти. Ещё рекурсия давала, опять же, предсказуемое переполнения стека. Ни чего сверхестественного не наблюдалось.

Пробуй удалять потихоньку и тестить. Только ни в коем случае не останавливайся, если "о-о-о!!! заработало! ура!!!".

Чё хоть пишешь-то? Столько тайн, столько загадок. Даже картинки не даёшь. Не приличные что-ли?
Выкладывай. Тут сильно смеяться не будут. Они добрые. Я знаю.

//-----------------------------------------------------------------------------------------------------------------------------
А, и кстати, если запускаешь не из Delphi, как себя ведет?

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

Последовал вашему совету, урезал до немогу. Я в тупике. Уверен что ошибка это какая-то мелочь которую я недоосужился прочитать в мане при изучении...

Исходник с траблой на 1254 итерации.

[Sibedir]

Блин. Теперь тока вечером смогу что-то сказать. У меня на работе Win7 и DelXE5. Дома XP и есть Del7.
Пока так:
1.
В pas-файле есть ошибки при переносе строк. 1 символ вместо 2-х. Такое у меня было вроди после копи-паста из браузера.
И вроди как из-за этого делфя не может корректно отобразить строку с ошибкой. Но это я могу сильно гнать
Я переформатировал абзацы.

2.
У меня на XE5 ошибка такая

Project Project1.exe raised exception class EOSError with message 'System Error. Code: 87.
Параметр задан неверно'.

Кликаю [Break] - подсвечивается "memo1.Lines.add(inttostr(j)+' -> '+AList_Actions[i]);"
Закоментариваю эту строку. Заново запускаю
Опять

Project Project1.exe raised exception class EOSError with message 'System Error. Code: 87.
Параметр задан неверно'.

Кликаю [Break] - теперь подсвечивается следующая строчка "bmp2.ReleaseHandle;"
Выходит что дебагер сам не в курсе на какой строчке ошибка.

3.
Зачем

      bmp2.ReleaseHandle;
      bmp2.Dormant;
      bmp2.FreeImage;

?
Я их закомментарил

  bmp2 := TBitmap.Create;
  for j := 0 to 150000 do begin
    for i := 0 to AList_actions.Count-1 do begin
      if {((bmp2.Handle=0) AND (} FileExists(AList_actions[i]){))} then begin
        bmp2.loadfromfile(AList_actions[i]);

        {БЛОК РАСПОЗНАВАНИЯ}

        memo1.Lines.add(inttostr(j)+' -> '+AList_Actions[i]);
      end;

//      bmp2.ReleaseHandle;
//      bmp2.Dormant;
//      bmp2.FreeImage;
    end;
  end;
  bmp2.Free;

и всё заработало


Вывод
Подобное проявление ошибки лично у меня было лишь при многопоточности. Это приложение само по себе однопоточное, но вот за API, которые ты вызываешь в

...bmp2.Handle=0...
...
      bmp2.ReleaseHandle;
      bmp2.Dormant;
      bmp2.FreeImage;

я не ручаюсь

ИМХО: Всё вышесказанное непрофессиональное мнение самоучки