Farbwerte aus JPEG Bildern auslesen

[Khabarakh]

Code:

procedure TForm1.Button1Click(Sender: TObject);
var farben:array of integer;
    i,j,k:integer;
begin              //Hier werden die Farbwerte ausgelesen
for i:= 1to 760 do begin
  for j:= 1to 578 do begin
  k:=k+1;
  farben[k]:=image1.canvas.pixels[i,j]

  end;
end;
end;

Die Dimensionen des Arrays müssen erst mit SetLength festgelegt werden. Außerdem sollte es wohl

Delphi-Quellcode:

for i := 0 to 759 do begin
  for j := 0 to 577 do begin

heißen.
Warum arbeitet ihr nicht gleich mit dem eingelesenen Bitmap? Das wäre die beste Lösung.

Zitat:

@Kiste:
Haben das mit dem TOpenDialog gefunden und wollten es gleich mal zum Test bringen, aber wenn ich des in mein Formblatt einfüge und das Programm starte erscheint das Teil nicht auf dem ausgeführten Programm...

Zum Ausführen musst du Execute benutzen. Siehe auch die OH zu TOpenDialog.