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

[DarkHacker]

Ну многопоточности точно нет.

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

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

Точнее вы хотели сказать скомпилировалось?) Потому что ошибки те же)

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

но вот за API, которые ты вызываешь в

Я особо не шарю, но вроде как оно тоже однопоточное.

Буду ждать вечера, может все таки что-то придумаете) я тоже без дела не сижу, но результатов 0 ..

[Аватар]

и ни чего не вылетает

procedure TForm1.Button1Click(Sender: TObject);
var
bmp,bmp2:TBitmap;
i,j:integer;
begin
bmp:=TBitmap.Create();
bmp.Assign(image1.picture.bitmap);

memo1.lines.add('Ошибка на 1254 итерации');

memo1.lines.add('Найдено шаблонов: '+inttostr(AList_actions.count));

for j:=0 to Alist_actions.count-1 do
    memo1.lines.add(AList_actions[j]);

memo1.lines.add('');
bmp2 := TBitmap.Create;

for j:=0 to 1500 do
begin

for i:=0 to (AList_actions.count)-1 do
  begin
//         bmp2 := TBitmap.Create;

//         if((bmp2.Handle=0) AND (FileExists(AList_actions[i]))) then
         if 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;
//         bmp2.Free;
        end;
end;
bmp2.Free;
end;

[DarkHacker]

Сообщение от Аватар

и ни чего не вылетает

procedure TForm1.Button1Click(Sender: TObject);
var
bmp,bmp2:TBitmap;
i,j:integer;
begin
bmp:=TBitmap.Create();
bmp.Assign(image1.picture.bitmap);

memo1.lines.add('Ошибка на 1254 итерации');

memo1.lines.add('Найдено шаблонов: '+inttostr(AList_actions.count));

for j:=0 to Alist_actions.count-1 do
    memo1.lines.add(AList_actions[j]);

memo1.lines.add('');
bmp2 := TBitmap.Create;

for j:=0 to 1500 do
begin

for i:=0 to (AList_actions.count)-1 do
  begin
//         bmp2 := TBitmap.Create;

//         if((bmp2.Handle=0) AND (FileExists(AList_actions[i]))) then
         if 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;
//         bmp2.Free;
        end;
end;
bmp2.Free;
end;

Точно?
Привел скрин результата

[Sibedir]

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

Ну многопоточности точно нет.
...
Я особо не шарю, но вроде как оно тоже однопоточное.

Всё было бы так просто, если бы не было так сложно.

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

Точнее вы хотели сказать скомпилировалось?) Потому что ошибки те же)

Скомпилировалось и работает без ошибок:
Project1.zip
Project1.z01.zip (переименновать в "Project1.z01")

[Аватар]

Точно?
Привел скрин результата

Видимо мы разный код выполняем
А почему проект и исполнимый файл в Program Files?

[DarkHacker]

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

Всё было бы так просто, если бы не было так сложно.


Скомпилировалось и работает без ошибок:
Вложение 75452
Вложение 75453 (переименновать в "Project1.z01")

Точно. Значит у нас разные опции компиляции. Можете "показать" свои настройки? У вас результирующий файл несколько МБ, а у меня 400кб

[DarkHacker]

Сообщение от Аватар

Видимо мы разный код выполняем
А почему проект и исполнимый файл в Program Files?

Та я уже ничему не удивлюсь, скопмилированый проект который выше давали работает, а если у себя соберу - ошибка. Может я и еще 5 дней назад изначально нормальный код написал, я теперь уже ничего не понимаю.

Я просто делал вырезку из основного проекта, куда дельфи предложил там и сохранил))

[Sibedir]

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

Точно. Значит у нас разные опции компиляции. Можете "показать" свои настройки? У вас результирующий файл несколько МБ, а у меня 400кб

Размер не главное. У меня просто Delphi XE5 а у тебя Delphi 7 (как я понял). Эт еще чё, Lazarus вообще по 10МБ делает.

[DarkHacker]

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

Размер не главное. У меня просто Delphi XE5 а у тебя Delphi 7 (как я понял). Эт еще чё, Lazarus вообще по 10МБ делает.

Да Delphi7. Проблема в нем или может в ОС?

И что ж теперь делать с этой бедою ? )

[Sibedir]

Сообщение от Аватар

и ни чего не вылетает
...

Аватар, а ты на delphi 7 и windows XP проверял?