| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сравнение двух изображений [D5, D6, Win95/98, NT4, Win2k]

deep-forest ©   (2003-01-04 00:12:00) 

Подскажите, как можно сравнить два изображения в bmp-форматеи определить процент несовпадения.
Заранее благодарен.

---

deep-forest   (2003-01-04 21:18:00) [1]

Все ответившим спасибо, отдельное спасибо MBoза кусок кода.
Попробую, думаю, что вопрос снят.

---

MBo   (2003-01-04 10:10:00) [2]

набросок для 24-битных картинок (для других форматов еще проще),
результат от 0 до 1 при полном совпадении

function CompareBmp24(bmp1, bmp2: TBitmap): Double;
var
i, j, Sum: Integer;
SLine1, SLine2: PByteArray;
begin
Assert((bmp1.PixelFormat = pf24bit) and (bmp2.PixelFormat = pf24bit),
"24bit only!");
Assert((bmp1.Width <> 0) and (bmp1.Height <> 0), "Empty bitmap!");
if (bmp1.Height <> bmp2.Height) or (bmp1.Width <> bmp2.Width) then
begin
Result := 0;
Exit;
end;
Sum := 0;
for i := 0 to bmp1.Height - 1 do
begin
SLine1 := bmp1.ScanLine[i];
SLine2 := bmp2.ScanLine[i];
for j := 0 to bmp1.Width - 1 do
if (PInteger(@SLine1[j * 3])^ and $FFFFFF00) =
(PInteger(@SLine2[j * 3])^ and $FFFFFF00) then
inc(Sum);
end;
Result := Sum / (bmp1.Width * bmp1.Height);
end;



---

KA_   (2003-01-04 10:02:00) [3]

А что значит "процент несовпадения"? Процент несовпадающих пикселей? Если да, то насколько точно он должен быть вычислен? И какие примерно изображения (размер, глубина цвета)?

---

Gigabyte   (2003-01-04 08:46:00) [4]

Могу прислать глюкавинький примерчик:
Сравнивает изображения с шаблонами в БД и выдает %-т совпадения
P.S. Натыкано много лишнего, но вполне рабочий

---

Наверх