El siguiente código es un fragmento de un programa que lee de una imagen BMP monocromática.
En teoría cuando leo con scanline los valores tendrían que ser 0 o 1, dependiendo si es blanco o negro, ya que es una imagen monocromática? O cada píxel es de 8 bit? Para mi un píxel representa un bit, no?
Haciendo pruebas, el valor de “a” es 0 siempre que leo un píxel negro, pero a los blancos los lee con diferentes valores, porque?
Gracias
Código Delphi
[-]
for y := 0 to BitMap.Height-1 do
begin
P := BitMap.ScanLine[y];
for x := 0 to BitMap.Width-1 do
begin
a := P[x];
if a=255 then
blanco:=blanco+1
else
otro:= otro+1;