Histograma

[Javi_bcn]

Hola, yo tambien necesito saber como se hace el histograma de una imgen, y también me sería util saber como se ecualiza....
He intentado lo que poneis más arriba pero no hay manera... no tengo muchas nociones en esto y lo necesito para un trabajo..
Yo lo estaba haciendo de la siguiente manera pero sé que esta bastante mal, por no decir muy mal:

Procedure Mostrar_histograma(Image2:TImage;var Histograma:THist);
var
Histo:THistograma;
x,y:Integer;
w,h:Integer;
r,g,b:integer;
BM:TBitmap;
color2:Integer;
begin
BM:= TBitmap.Create;
BM.Height:=256;
BM.Width:=256;
BM.PixelFormat:=pf24bit;
Image3.Picture.Assign(BM);
BM.Free;
w:=Image1.Picture.Width;
h:=Image1.Picture.Height;
for y:=0 to h do
for x:= 1 to w do
begin
LlegirPixelRGB(Image2,X,Y,r,g,b);
color2:=(r+g+b) div 3;
Histo[color2]:= Histo[color2]+1;
r:=color2;
g:=color2;
b:=color2;
EscriurePixelRGB(Image3,X,Y,R,G,B);
end;
end;
no se si me podreis ayudar en algo, de todas formas gracias a todos de antemano.
un saludo!

[bustio]

Hola a todos:

Yo tambien ando interesado en el temilla del histograma. Me encontre un codigo que lo hace bastante bien para delphi buscando por ahi que si lo desean, lo puedo compartir con uds. Pero esa no es la solucion,,, "Si le das un pez a un hambriento hoy ya no tendra hambre... si lo ensennas a pescar jamas la tendra". Yo hice uno en C# que funciona bastante bien.. pero en sus inicios tenia problemas con el tiempo en que se demoraba calculandolo para imagenes grandes, y lo resolvi trabajando la imagen en vez de como una imagen como un fichero. Es decir, que en vez de cargar la imagen en un TBITMAp trabaje la imagen.bmp como un fichero, leyendo el encabezamiento y el del area de datos saque los datos que necesito.
Para una imagen de 250Mb me demore en un P4 a 2.4Gb solo 7 segundos; lo cual me parece un buen tiempo.

Solo queria hacer esta ackaracion que tal vez les resulte util... a mi me hubiese sido de muchisima utilidad que me hubiesen sugerido esto.. me habria ahorrado miles de problemas!!! Me gustaria ver los codigos que hayan logrado.. si es qe pueden compartirlos conmigo.