Сравнение изображений.

[stlcrash]

Как сделать сравние цветов? чтоб не делать лабуду типа:
If (RGB=rgb1) or (RGB=rgb2) or ()..... or (RGB=rgb50) then

[min@y™]

Как сделать сравние цветов?

про сортированный список и бинарный поиск в нём слыхал?

[Smitt&Wesson]

Сообщение от min@y™

ну а чо не получается-то?

Грива от копы отличается. Структуризация - разная.

[stlcrash]

Сообщение от min@y™

про сортированный список и бинарный поиск в нём слыхал?

Неа, я нуб в программировании полный. По этому коды которые сюда скидывал так выглядят. Могу ток с нескольких кусков как с конструктора лего собрать то что мне нужно и потом сидеть такой довольный )

[min@y™]

Могу ток с нескольких кусков как с конструктора лего собрать то что мне нужно

Ну и дурак молодец! Меньше у меня конкурентов - больше зарплата (и борзеть можно на работе).

и потом сидеть такой довольный )

[Pavia]

Честно я думал, что тут уже решение напишут.
Задача, то простая.
Считаем гистограмму из неё находим пороги.
Далее применить.

procedure DeleteColor(var bp:TBitmap; T1, T2:Integer);
var
 x,y:Integer;
 Line:PA_BGR;
 BGR, BGR_Withe:TBGR;
 HSV:THSV;
begin
BGR_Withe.b:=$FF;
BGR_Withe.g:=$FF;
BGR_Withe.r:=$FF;

for y:=0 to bp.Height-1 do
 begin
 Line:=bp.ScanLine[y];
 for x:=0 to bp.Width-1 do
   begin
     BGR:=Line[x];
     HSV:=BGR2HSV(BGR);
     if (T1<HSV.h) and (HSV.h<T2) then
         BGR:=BGR_Withe;
     Line[x]:=BGR;
   end;
 end;
end;

[Smitt&Wesson]

. Для конкретного случая - тривиально. А для общего? Ой-нимагу.
Я сейчас захожу на форум, только для того, что-бы - поржать. Позитива молодь даёт такого, что практически из патстала не вылезти

[Pavia]

 А для общего? Ой-нимагу.

А для общего код платный - дорого. Его писать значительно дольше.

[stlcrash]

как их посчитать? Можно исходник вашего проекта? Распилить и в свою программу вставить

[Pavia]

Забыл пороги написать:

var bp:TBitmap;
begin
 bp:=nil;

 bp:=TBitmap.create;
 bp.PixelFormat:= pf24bit;
 bp.Assign(Image1.Picture.Graphic);
 DeleteColor(bp ,100,140);
 Image2.Picture.Bitmap:=bp;
 bp.Free;
end;

BGR2HSV в интернете есть.