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;
}

[ChinEnte]

super funktioniert alles
haben beim deklarieren setlengt Farben (Zahl) eingegeben
die paar sachen die du blau gemacht hast haben wir schon rausgehabt weil wir die bilder direkt als *bmp einlesen. Damit heben sich die beiden sachen auf :).
Noch mals vielen dank von uns beiden

[Cheffu]

Hallo,
ich habe mir den Code mal angeschaut und einfach mal den letzten übernommen. Nur was sagt mir die Ausgabe? Ich habe mit das Array mal in einem Memo ausgeben lassen un ich habe zumeist 7-stellige Ziffernblöcke und ab und zu 6-stellige.
Was sagt das mir aber nun? Vermutlich sind es ja die Rot-, Blau- und Gelbwerte, aber wie kann ich diese nun voneinander abgrenzen?

mfg
Cheffu