Como obtener el color de un pixel

[juanchi]

Hola a todos.
Yo tengo un problema parecido, ya que tengo una imagen bmp con 256 colores en escala de grises. El problema es que quiero saber que número es un determinado nivel de gris, pero el valor que me arroja es muy grande. ¿Porqué si la imagen tiene 256 colores?, ¿No tendría que ser un valor en este rango?.


Saludos

[[seoane]]

Empezado por juanchi

¿No tendría que ser un valor en este rango?.

Pues no, la propiedad pixel devuleve el color en formato RGB. Es decir un byte para cada color (Rojo, Verde, Azul). Los colores grises tienen la peculiaridad de tener los tres bytes del mismo valor, lo que nos da un rango de 256 valores posibles, asi el negro es $000000, el blanco $FFFFFF, y un gris intermedio $7F7F7F.

Si quieres un valor entre 0 y 255 siempre puedes tomar el valor de uno solo de los bytes:

Código Delphi [-]
var
  Valor: Integer;
begin
  Valor:= Canvas.Pixels[5,5] and $FF;

[ilichhernandez]

Muchas Gracias ya me esta empezando a quedar mas clara la idea....existe alguna manera de calcular la distancia entre dos rectas dibujadas con canvas que sea distinto de revisar pixel por pixel y ver cuando cambia el color del punto. Si alguien sabe que me comente por favor....

Gracias.

[juanchi]

Hola.
Ahora tengo otro problema. Lo que pasa es que al recorrer una imagen me da que esta tiene pixeles blancos aunque la imagen original no tenga ninguno. Lo que hice fué pasar la imagen en RGB a 256 colores con la sentencia: imagen1.canvas.pixel[x,y] and $FF.

Salu2.

[[seoane]]

Empezado por juanchi

Hola.
Ahora tengo otro problema. Lo que pasa es que al recorrer una imagen me da que esta tiene pixeles blancos aunque la imagen original no tenga ninguno. Lo que hice fué pasar la imagen en RGB a 256 colores con la sentencia: imagen1.canvas.pixel[x,y] and $FF.

Salu2.

¿Puedes poner un poco de codigo?

[juanchi]

El código!!!. Ahí va...

procedure TForm1.BitBtn1Click(Sender: TObject);
var
X, Y, Z, W, MaxValor,TamLinea: Integer;
Color : LongInt;
Histograma : array[0..255] of Integer;
begin


MaxValor := 0;
for Z:=0 to 255 do
begin
Histograma[Z] := 0;
end;

for Y := (image1.Width - image1.Width) to image1.Width do
begin
for X := (image1.Height - image1.Height) to image1.Height do
begin
Color := image1.Canvas.Pixels[X, Y]and $FF; {De RGB a 256 colores}
Histograma[Color] := Histograma[Color]+1;
end;
end;

for Z:=0 to 255 do
begin
if( Histograma[Z] > MaxValor ) then
MaxValor := Histograma[Z];
end;

for Z:=0 to 255 do
begin
TamLinea := ((Histograma[Z] * 312) div MaxValor);
image2.Canvas.MoveTo(18+Z, 326);
image2.Canvas.LineTo(18+Z, 326-TamLinea);
end;


end;


Salu2

[[seoane]]

Bien, en tu código el problema es el siguiente (marcado en rojo), al hacer referencia a un pixel que no existe devuelve el color blanco por defecto, por eso te aparecía el color blanco aun cuando la imagen no lo contenía:

Código Delphi [-]
for Y := (image1.Width - image1.Width) to image1.Width -1 do
begin
  for X := (image1.Height - image1.Height) to image1.Height -1 do
  begin

Por otro lado, retoque un poco el código:

Código Delphi [-]
var
  i,j: integer;
  Histograma: array[0..255] of Integer;
  Max: Integer;
begin
  FillChar(Histograma,Sizeof(Histograma),0);
  for i:= 0 to Image1.Picture.Bitmap.Width - 1 do
    for j:= 0 to Image1.Picture.Bitmap.Height - 1 do
      inc(Histograma[Image1.Canvas.Pixels[i,j] and $FF]);

  Max:= 0;
  for i:= 1 to 255 do
    if Histograma[i] > Histograma[Max] then
      Max:= i;

  j:= Image1.Picture.Bitmap.Width * Image1.Picture.Bitmap.Height;
  Image2.Canvas.FillRect(Image2.Canvas.ClipRect);
  for i:= 0 to 255 do
  begin
    Image2.Canvas.MoveTo(i,0);
    Image2.Canvas.LineTo(i,(Image2.Height * Histograma[i]) div Histograma[Max]);
  end;
end;

Pero esto ultimo ya es cuestión de gustos. De todas formas para este tipo de operaciones usar la propiedad Pixels del canvas es poco eficiente. Echale un vistazo a la propiedad Scanline del bitmap, mucho mas apropiada para estos casos.

PD: Usa la etiquetas [delphi][/delphi] para incluir código, de esta manera se podrá leer mucho mejor.