[firewall]

Добрый день Помогите пожалуйста.

Допустим есть на форме Image, в нём цветное изображение. Как мне узнать какого цвета там больше всего?

Пробовал с помощью цыкла прочитать каждый пиксель (GetPixel), но как затем выбрать тот цвет, который больше всего повторяется?

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

п.п.с вообще изображение в image берётся с рабочего стола с помощью BitBlt (примерно 20х300 пикселей). Может можно напрямую работать?

[AND_REY]

Интересная задачка. Функция работает относительно быстро, я не оптимизировал. Проверял на рис(1920х1080) 2-3 сек гдето.

Код:

Function GetMaxColorBmp(B: TBitmap): TColor;
Const
 Pixels = MaxInt div SizeOf(TRGBTriple);
Type
 PRGBArray = ^TRGBArray;
 TRGBArray = Array[0..Pixels - 1] of TRGBTriple;
Var
 Line: PRGBArray;
 Mx, My: Array of Integer;
 i, j: Integer;
 Function GetMaxPovtor(M: Array of Integer): Integer;
 Var
  x, y, mi, mk, k: Integer;
 begin
  mi:= M[1]; mk:= 1; k:= 0;
  For x:= 0 To High(M) Do
   begin
    For y:= 0 To High(M) Do if M[x] = M[y] Then Inc(k);
    if ((mk = k) And (mi > M[x])) Or (mk < k) Then
     begin
      mi:= M[x];
      mk:= k;
     end;
    k:= 0;
   end;
  Result:= mi;
 end;
begin
 Result:= clWhite;
 B.PixelFormat:= pf24bit;
 SetLength(Mx, B.Width);
 SetLength(My, B.Height);
 For j:= 0 To B.Height - 1 Do
  begin
   Line:= B.ScanLine[j];
   For i:= 0 To B.Width - 1 Do
    begin
     Mx[i]:= Line[i].rgbtRed + (Line[i].rgbtGreen Shl 8) + (Line[i].rgbtBlue Shl 16);
    end;
   My[j]:= GetMaxPovtor(Mx);
  end;
 Result:= GetMaxPovtor(My);
end;

[firewall]

Спасибо!! Проверил, работает. Но вот такого я не ожидал... както упустил из виду. Допустим изображение с моего раб. стола http://piccy.info/view3/3124218/1318...79d52281d9e59/ так код определяет белый цвет. а визуально больше синего же... тоесть градиент синего, это не точно синий, а разные.... не подскажите что в таком случае делать?

[Bargest]

Думаю, в таком случае логичнее было бы делать не цвет, которого больше всего, а среднее арифметическое всех цветов картинки. Или же сравнивать с допущениями (+/- столько-то по каждой компоненте цвета). Правда при этом сильно усложнится код, да и вести себя будет не всегда предсказуемо (будет немного зависеть от того, какой цвет раньше попался).

[Pyro]

можно уменьшить качество картинки

[firewall]

Сообщение от Bargest

Думаю, в таком случае логичнее было бы делать не цвет, которого больше всего, а среднее арифметическое всех цветов картинки.

а как примерно такое реализовать? просто с таким я ещё не встречался, поэтому даже не знаю(

[Bargest]

а как примерно такое реализовать? просто с таким я ещё не встречался, поэтому даже не знаю

Пройти по всем пикселям, просуммировать компоненты RGB в соответствующие переменные и поделить все 3 переменные на количество пикселей.
Тогда частенько цвет, который будет на выходе, не будет встречаться на самой картинке; это будет какой-то средний цвет для всего изображения. Для того скрина, скорее всего, это будет синий с небольшим отливом в бледно-желтый.
Кстати, совет от Pyro тоже может помочь.