Farbwerte aus JPEG Bildern auslesen

[Kiste]

Dann wollen wir mal

Also das mit den Dateien auslesen

Delphi-Quellcode:

function GetJPG(Verzeichnis:string):TStringList;
var SR      : TSearchRec;
  VerzList:TStringList;
begin
  if Verzeichnis[length(Verzeichnis)]<>'\' then
    Verzeichnis:=Verzeichnis+'\';
  if (FindFirst(Verzeichnis+'*.jpg',$3F,SR)=0) then begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') then
        VerzListe.Add(Verzeichnis+SR.Name);
    until FindNext(SR)<>0;
    FindClose(SR);
  end;
  result:=VerzListe;
end;

Das sollte fürs erste mit den Verzeichnis funktionieren, denke ich.

Das mit den Pixels sollte so Funktionieren:
- Ihr lest die Datei in ein TImage ein.
- Dann bildet ihr 2 For-Schleifen mit i,j, die muessen so groß sein wie das Bild breit/groß ist.
- Dann muesst ihr nurnoch mit image1.canvas.pixels[i,j] das ding durchgehen
- Ihr erhaltet dann halt genuegend TColor werte, die ihr nurnoch abspeichern muesst

Denke das sollt helfen

mfg Kiste