Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как сравнить два Image

Автор: Teran 28.1.2007, 16:03

Как программно сравнить два Image?
smile

Автор: VICTAR 28.1.2007, 16:10

попиксельно?

Автор: Guedda 28.1.2007, 16:14

Цитата(VICTAR @ 28.1.2007, 16:10

)

попиксельно?

Ответ в вопросе. Попиксельно.

Автор: aktuba 28.1.2007, 16:31

я раньше MD5 использовал...

Автор: VICTAR 28.1.2007, 16:44

Не красиво, но работает

Код


function CompareImage(Img,Img2: Timage): boolean;
var i,j: integer;
begin
  result:=true;
  if (Img.Width<>Img2.Width)or
    (Img.Height<>Img2.Height) then result:=false;
  if not result then exit;
  for j:=0 to pred(Img.Height) do
    for i:=0 to pred(Img.Width) do
      if Img.Canvas.Pixels[i,j]<>Img2.Canvas.Pixels[i,j]
        then begin
              result:=false;
              break;
             end;
end;

Автор: Teran 28.1.2007, 16:47

Цитата(aktuba @ 28.1.2007, 16:31

)

я раньше MD5 использовал...

работало нормально?

Автор: Snowy 28.1.2007, 17:12

Вычитаешь одно изображение из другого: http://forum.vingrad.ru/topic-94492/0.html#entry720737
Получаешь разницу.
Как её оценивать (в процентах или ещё в чём) - это уже как тебе надо.

Автор: Alexeis 28.1.2007, 17:20

Цитата(Guedda @ 28.1.2007, 16:14

)

Ответ в вопросе. Попиксельно.

Не факт, можно сравнивать картинку как файл. Все зависит от того в чем цель сравнения. Проверить н целостность или на потерю цвета при кодировании-декодировании или использовании фильтров и .т.д.

Автор: Teran 28.1.2007, 18:16

Хочу сделать базу из capcha картинок против автороботов а потом их сравнивать - такое возможно?

Автор: mishapost 30.1.2007, 22:22

Почитай любую книгу по цифровой обработке изображений и все станет ясно...