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