Не могу сравнить две картинки!

[Yazon2006]

Хоть стой, хоть падай, никак попиксельно не могу сравнить две картинки. Я не новичок, и знаю, как это делаеться. НО, не получается. Пожалуйста, скажите, что с ними не так:

http://www.newrpg.ru/diz/img_dob.php...975&1308868799
http://www.newrpg.ru/diz/img_dob.php...975&1308868798

Возьмите две картинки по ссылкам выше, и с помощью любых компонентов, методов и извращений скажите, как их сравнить, т.е. "столько то пикселей совпало" (я так понимаю там всего чёрный цвет и прозрачный фон).

О-о-о-очень желательно с конкретным куском рабочего исходного кода.




вот архив с картинками:

[artemavd]

А что, нажать "Правка", а затем "Расширенный режим" и найти "Управление вложениями" религия не позволяет? Давай сразу будем учиться делать все по правилам. Тогда и помогать тебе будут.

[Yazon2006]

Покопался, нашёл, в чём особенность данных картинок. Они в 8 битном формате, в режиме индексированных цветов, при чём в таблице цветов есть чёрный цвет №1, чёрный цвет №2, белый цвет, и прозрачный цвет. Ни единого белого пикселя я не нашёл на картинке, зато с чёрными оказалось приятное обстоятельство (см. вложения). В конечном итоге, мне удалось получить изображение очищенное от шума и пыли с помощью фотошопа.

Вопрос 1: как это сделать програмно? (изменить таблицу цветов)
Вопрос 2: как работать с такими изображениями? (как определить цвет пикселя с координатами i,j)

В конце концов мне надо определить с некоторой точностью есть ли на изображении эталон.

[Yazon2006]

Всё, сделал. Если кому интересно:

FOR j := 0 TO gif.bitmap.Height-1 DO
     BEGIN
       Row := pByteArray(gif.Bitmap.Scanline[j]);
       FOR i := 0 TO gif.Bitmap.Width DO
       BEGIN
         memo1.Text:=memo1.Text+inttostr(Row[i]);
       END;
       memo1.Text:=memo1.Text+#13#10;
     END;

Получил следующее:



Как видим чёрный цвет №3 представлен здесь 2, и дальше легко можно работь с образами чистых цифр.