.. noch als Nachschlag:
Wenn ich das jpg lade verschwindet das Bild auch bei mir.
Ich habe den Code dann so angepasst, dann klappe es auch mit jpg.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j : Integer;
blackCount: Integer;
jpg : TJpegImage;
begin
blackCount := 0;
jpg := TJpegImage.Create;
jpg.LoadFromFile('d:\unbenannt.jpg');
image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
for i:= 0 to image1.Picture.Bitmap.Height -1 do
for j:=0 to image1.Picture.Bitmap.Width -1 do
if image1.Picture.Bitmap.Canvas.Pixels[j,i] = clBlack then
inc(blackCount);
edit1.Text:=FloatToStr(blackCount/((i+1)*(j+1)));
end;
Grüße
Klaus