Как свойством BitMap.ScanLine проверить изображение (200х200 пкс) на наличие черных пикселей?

Posted by Chas under Delphi, Пост-обзор

Результат вывести в двумерный массив 200х200 ячеек.

Asinkrit

type
  _RGB = record

    b,

    g,

    r: byte;

  end;
  ARGB = array[0..1] of _RGB;
  PARGB = ^ARGB;
  TBuffer = array[0..199,0..199] of boolean;
...
var

  p: PARGB;

  x, y: Integer;

  FBuffer:TBuffer;

begin

  for y:=0 to 199 do

    begin

    p:=aBitMap.ScanLine[y];

    for x:=0 to 199 do

      FBuffer[x,y]:=((p[x].b = 0) and (p[x].g = 0) and (p[x].r = 0));

    end;

end;