Количество пикселей определенного цвета

[zih]

Есть картинка на форме, которая постоянно меняется. Так вот нужно узнать количество пикселей одного цвета в этой картинки и вывести это на memo1. За поиск цвета пикселей использовать точку 0,0 этой картинки. Я так понял для быстроты это делается все с помощью scanline. Но как все это связать в одно ума не приложу.

[DomiNick]

Где именно у вас эта картинка?


Пример http://dominickdark.narod.ru/Pr0grams/ScanLine.html
Если в Image1 (и в bmp), то вместо создания MyBmp можно взять Image1.Picture.Bitmap...

[Sparkman]

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

Есть картинка на форме, которая постоянно меняется. Так вот нужно узнать количество пикселей одного цвета в этой картинки и вывести это на memo1. За поиск цвета пикселей использовать точку 0,0 этой картинки. Я так понял для быстроты это делается все с помощью scanline. Но как все это связать в одно ума не приложу.

procedure TForm1.Button2Click(Sender: TObject);
var i,j,n:integer;
    p:PByteArray;
    colors : array [0..255] of integer;
begin
     if not (Image1.Picture.Bitmap.PixelFormat in [pf24Bit, pf32Bit]) then
        raise exception.create('Error, Format File not supported!');
     Memo1.Lines.Clear;
     FillChar(colors,SizeOf(colors),0);
     n := Abs(Integer(Image1.Picture.Bitmap.ScanLine[1]) - Integer(Image1.Picture.Bitmap.ScanLine[0]));
     Gauge1.MaxValue:=100;
     Gauge1.Progress:=0;
     for i:=0 to Image1.Picture.Bitmap.Height-1 do
     begin
          P:=Image1.Picture.Bitmap.ScanLine[i];
          for j:=0 to n-1 do
              inc(colors[P^[j]]);
          Gauge1.Progress:=Round((i+1)*100/Image1.Picture.Bitmap.Height);
     end;
     for i:=0 to 255 do
     if colors[i]>0 then
     Memo1.Lines.Add('Цвет №'+IntToStr(i)+', количество='+IntToStr(colors[i]));
end;

[zih]

for i:=0 to Image1.Picture.Bitmap.Height-1 do
begin
P:=Image1.Picture.Bitmap.ScanLine[i];
for j:=0 to n-1 do
inc(colors[P^[j]]);
Gauge1.Progress:=Round((i+1)*100/Image1.Picture.Bitmap.Height);
Я так понял он начинает искать пиксели сверху вниз, а не слева направо. Думал если вместо height поставить width будет сканировать по ширине, но почему то выдает ошибку. Как сделать чтоб сканировал по ширине image. Заранее спс.

[zih]

А как найти количество пикселей уже заранее известного цвета в формате ffffffff в image? Заранее спасибо кто ответит и прошу сильно не ругать