Farbwerte aus JPEG Bildern auslesen

[sniper_w]

Zitat:

Wir haben im der Hilfe von Delphi nach setlength gesucht aber nur sachen für dynamische Arrays gefunden. Wir wollen aber nur eine simple Array mit 439280 Positionen .

Ich würde das so machen :

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var                //Hier wird das Bild in Image1 eingelesen
  Jpeg: TJpegImage;
//  FBitmap:TBitmap;
begin
  Jpeg := TJpegImage.Create;
  try
    Jpeg.LoadFromFile(edit1.text);
//    FBitmap := TBitmap.Create;
//    FBitmap.Assign(Jpeg);
//    Image1.Picture.Bitmap := FBitmap;
     Image1.Picture.Bitmap.Assign(Jpeg);
  finally
    Jpeg.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var farben:array of integer;
    i,j,k:integer;
begin              //Hier werden die Farbwerte ausgelesen
 SetLength( farben, Image1.Picture.Bitmap.Width * Image1.Picture.Bitmap.Height );
 k := 0;
for i:= 0 to Image1.Picture.Bitmap.Width - 1 do 
  for j:= 0 to Image1.Picture.Bitmap.Height - 1 do 
  begin
   farben[k]:=image1.canvas.pixels[i,j]
   Inc(k);
  end;
end;
{
procedure TForm1.FormCreate(Sender: TObject);

  VAR Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Width := 760;
  Bitmap.Height := 578;
  Image1.Picture.Graphic := Bitmap;
end;
}