Распознание лиц на фото.

[koshel]

Добрый день!!!! Опять прошу помощи у вас!!!! Проблема с распознанием лиц(другие способы распознания не оглашать я их знаю, нужно именно так)
Нужно на фото(фото хора) которое загруженное в timage найти все лица по цвету и выделить их. то есть все кроме лиц залить другим цветом.
вроди не сложно, но возникла проблема человеческое лицо имеет кучу цветов, которые лежат в определенном диапазоне, как мне узнать границы этого диапазона, и как во время проверки вбить этот диапазон.
то есть как if вбить диапазон например от 53000 до 84000 для проверки.

[raxp]

if getpixel() = {..} then...

[koshel]

Спасибо за оперативность!!!
не подскажите програмку с помощью которой можно узнать диапазон цветов выделенной области???

[Arigato]

Тут не только лица разного цвета, но и на разных фотках могут быть совсем разные цвета, что будет связано с режимами съёмки: выдержка + диафрагма, баланс белого, вспышка, освещение и т.д.

[koshel]

по поводу фоток то они примерно одинаковы.
не могу все равно вбить проверку диапазона выдает ошибку
Expression expected but 'THEN' found.

[raxp]

ваш код...

[koshel]

вот код.

procedure TForm1.Button3Click(Sender: TObject);
    var X5,Y5:integer;
begin

for X5:=0 to image1.Picture.Width do
for Y5:=0 to image1.Picture.Height do

if Image1.canvas.Pixels[X5, Y5] ={50000..85000}
then
  
 else Image1.Canvas.Pixels[X5,Y5] := clwhite
end;

[raxp]

с:= Image1.canvas.Pixels[X1, Y1];
if  (c>=50000) and (c<=85000) then ...

[koshel]

спасибо работает!!!!
Только теперь надо диапазон более удачный подобрать))) а то отобрало бред какой то!!

[JTG]

страшно