VPF::Сравнение двух изображений. Как реализовать?

rembo2010

Дата 5.12.2010, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.12.2010

Репутация: нет
Всего: нет

Здравствуйте, уважаемые! Понимаю, что тема, возможно, уже и не раз обсуждалась, но хочу повторится. Я пишу алгоритм сравнения двух изображений, а именно фотографий. Сравнивать нужно попиксельно, и, выводить в процентах. Если они похожи более чем, допустим, 60%, программа выполняет какое-то действие.
Надо их, как я понимаю поместить изображения в байтовые массивы и затем сравнить их.
Вот такой напиал код, но, как понимаю что-то в нем не так. При запуске и нажатии на кнопку вылетает Access Violation.
Что я делаю не так? Помогите, пожалуйста. Заранее спасибо!

Код


var
BytesPerPixel, PixelsPerByte: LongInt;
s, f: TmemoryStream;
b1, b2: TBitmap;
c1, c2: PByte;
x, y, i,
different: Integer; // Counter for different pixels
begin
s:=TmemoryStream.create;
f:=TmemoryStream.create;
s.LoadFromFile('C:\1.bmp');
f.LoadFromFile('C:\2.bmp');
b1 := s.Memory;
b2 := f.Memory;
Assert(b1.PixelFormat = b2.PixelFormat); // they have to be equal
different := 0;
for y := 0 to b1.Height - 1 do
begin
c1 := b1.Scanline[y];
c2 := b2.Scanline[y];
for x := 0 to b1.Width - 1 do
for i := 0 to BytesPerPixel - 1 do // 1, to 4, dep. on pixelformat
begin
Inc(different, Integer(c1^ <> c2^));
Inc(c1);
Inc(c2);
end;
end;
end;

M
Alexeis

используйте подсветку кода

Alexeis

Дата 5.12.2010, 19:28 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

b1 := s.Memory; - это че такое? b1 объявлен как класс, а присваивается ему указатель на некий буфер.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

rembo2010

Дата 5.12.2010, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.12.2010

Репутация: нет
Всего: нет

Alexeis, а можете тогда привести пример кода, а то я чего-то никак не разберусь...

Alexeis

Дата 5.12.2010, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Код


b1 := TBitmap.Create;
b1.LoadFromFile('C:\1.bmp');

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »