Histograma en Delphi

[[seoane]]

Podemos empezar por contar cuantos píxeles de cada color hay en la imagen:

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

[[seoane]]

Y para terminar podemos dibujar la gráfica en otro TImage con un ancho de 256 píxeles:

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

  j:= 1;
  for i:= 1 to 255 do
    if Histograma[i] > j then
      j:= Histograma[i];
  Image2.Canvas.FillRect(Image2.Canvas.ClipRect);
  for i:= 0 to 255 do
  begin
    Image2.Canvas.MoveTo(i,Image2.Height);
    Image2.Canvas.LineTo(i,Image2.Height - ((Image2.Height * Histograma[i]) div j));
  end;
end;

[Cesar Junior]

Empezado por seoane

Y para terminar podemos dibujar la gráfica en otro TImage con un ancho de 256 píxeles:

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

j:= 1;
for i:= 1 to 255 do
if Histograma[i] > j then
j:= Histograma[i];
Image2.Canvas.FillRect(Image2.Canvas.ClipRect);
for i:= 0 to 255 do
begin
Image2.Canvas.MoveTo(i,Image2.Height);
Image2.Canvas.LineTo(i,Image2.Height - ((Image2.Height * Histograma[i]) div j));
end;
end;

Amigo, muchas gracias por la ayuda!!!! ya tenia dias quebrando cabeza, te agardezco por ocupar tu tiempo ayudandome!!! quedo de maravilhas!!!


Valeu cara muito obrigado!!!

[chinnamasta]

hola muy buenos días después de estar mas de tres días de tratar de encontrar la manera de crear el histograma de una Timage que me lea el RGB por fin encontré en que es que estaba fallando jeje.