Показать сообщение отдельно
  #2  
Старый 19.06.2009, 15:11
Аватар для mak-karpov
mak-karpov mak-karpov вне форума
Активный
 
Регистрация: 18.09.2008
Сообщения: 235
Версия Delphi: 2010 и 7
Репутация: 1242
По умолчанию

1. Делиш изображение на 4 части.
2. Проходиш по всем пискелям картинки и сравниваешь
Пусть с - цвет пикселя эталона, а с1 - изображения.
Тогда:
Код:
c := (GetRValue(c) + GetGvalue(c) + GetBValue(c)) div 3;
c1 := (GetRValue(c1) + GetGvalue(c1) + GetBValue(c1)) div 3;
sum := sum + Abs(c-c1);
3.У кого sum окажется меньше, тот и победил
Ответить с цитированием