Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Vfr123
1

Access violation при сравнении изображений

11.12.2014, 22:18. Показов 571. Ответов 1
Метки нет (Все метки)

делаю программу для сравнения изображений перевожу в битмапы и потом смотрю по цвету пикселя картинки одного размера
вот код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm1.img1Click(Sender: TObject);
var x, y, porog: integer;
   differences: Integer;
      procent: single;
   Bmp1: TBitmap;
   Bmp2: TBitmap;
   Jpeg1: TJpegImage;
   Jpeg2: TJpegImage;
 
begin
  porog:=5;
   differences:=0;
   Bmp1:=TBitmap.Create;
   Bmp2:=TBitmap.Create;
    Jpeg1:= TJpegImage.Create;
    Jpeg2:= TJpegImage.Create;
      Jpeg1.LoadFromFile('a.jpg');
      Jpeg2.LoadFromFile('aq.jpg');
      Bmp1.Assign(Jpeg1);
      Bmp2.Assign(Jpeg1);
   for y:=1 to  Bmp1.Width-2  do
   begin
 
     for x:=1 to bmp1.Height-2     do
       if (bmp1.Canvas.Pixels[x,y]-bmp2.Canvas.Pixels[x,y] > porog)or
       (bmp1.Canvas.Pixels[x,y]-bmp2.Canvas.Pixels[x,y] < porog)
        then
         inc(differences);
     if bmp1.Height*bmp1.Width>0 then
       procent:=100*(differences/(bmp1.Height*
       bmp1.Width))
     else
       procent:=0;
       Bmp1.Free; Jpeg1.Free; Jpeg2.Free;
       Bmp2.Free;
     ShowMessage('ðàçíèöà'+FloatToStr(procent)+'%');
   end;
end;
ошибку выдает ета строка for x:=1 to bmp1.Height-2 do
помогите срочно нужно
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2014, 22:18
Ответы с готовыми решениями:

Access Violation при BitMap.Create
Доброго Времени Суток! У меня в коде используется двусвязный список типа Tinf=record {тип...

Access violation at address при запуске потоков
Всем привет, запускаю несколько потоков но получаю ошибку http://************/13xzpg Код запуска...

TList. Ошибка Access Violation при создании.
Имеется такая структура данных: type TMyList = class private FMyList: TList; public...

Access Violation при вызове метода Open для Sqlquery из потока
Здравствуйте, очень нужна помощь. Использую dbexpress для работы с Oracle. В проекте есть модуль...

1
Модератор
3478 / 2601 / 741
Регистрация: 19.09.2012
Сообщений: 7,967
11.12.2014, 23:27 2
x, y перепутаны

Добавлено через 3 минуты
И освобождение изображений должно делаться после циклов.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2014, 23:27

Delphi 2010: получаю Access Violation при попытке настроить Build Configuration
Кликаю ПКМ на конфигурации &quot;Release&quot;, потом выбираю пункт &quot;Edit...&quot; и вылезает Access Violation....

Access Violation в подпрограмме
Доброго вечера, не сильно разбираюсь в Deplhi, почти написал программу, которая по заданным числам...

Access violation at adress
Собственно говоря, вот элемент кода, ошибка при попытке выполнить сроку setlength(masofFD2, fv2);...

AssignFile и access violation
Подскажите, в каких случаях может возникать ошибка access violation в строке с AssignFile? //...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru