mehrere Bilder skalieren, in einer Schleife

**nil**

Hallo,

Musste mich nun mal registrieren,
hab bisher immer alles gefunden,
was ich brauchte. Nur eine Sache
macht mir nun Kopfzerbrechen.

Bin gerade dabei, ein Bilder-
Skaliertool zu schreiben, welches
mehrere Bilder in einer Schleife
verarbeitet. Habe alles soweit
lauffähig, jedoch bei zb. 100
Bilder von einer Digitalkamera,
á ~ 4,50 MB (2336x3504x24) "steht"
das Programm, mit Anzeigefehlern,
funktioniert aber soweit.

Diese Anzeigefehler, und das
"stehen" des Programms, würde ich
gerne wenigstens ein bissl eingrenzen.

Hatte versucht jedes Bild auch per
Caption zb: "bearbeite... (img1222.jpg)"
aber die Caption wird nicht upgedated,
während der Laufzeit. Auch eine
Progressbar habe ich eingebunden,
beides "steht".

zum Quelltext:
da habe ich ein Script aus einem anderen
Thread benutzt, und dieses in der Schleife:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure BildgroesseAendernJPGExt(Quelle,Ziel:TFileName; MaxBreite,MaxHoehe:integer); 

var bmp:TBitmap; 

    jpeg:TJpegImage; 

    breite,hohe:integer; 

begin 

Jpeg:=TJpegImage.Create; 

jpeg.LoadFromFile(Quelle); 

//Seitenverhältnisgrößen berechnen 

if jpeg.Width/MaxBreite < 1 then MaxBreite := jpeg.Width; 

if jpeg.Height/MaxHoehe < 1 then MaxHoehe := jpeg.Height; 

if jpeg.Width/MaxBreite > jpeg.Height/MaxHoehe then 

  begin 

  breite := round( jpeg.Width / (jpeg.Width/MaxBreite)); 

  hohe := round( jpeg.Height / (jpeg.Width/MaxBreite)); 

  end else 

  begin 

  breite := round( jpeg.Width / (jpeg.Height/MaxHoehe)); 

  hohe := round( jpeg.Height / (jpeg.Height/MaxHoehe)); 

  end; 

//WANDLUNG 

   try 

   jpeg.LoadFromFile(Quelle); 

    bmp:=TBitmap.Create; 

      try 

       bmp.width:=breite; 

       bmp.height:=hohe; 

       bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg); 

       jpeg.assign(bmp); 

      finally 

       bmp.free; 

      end; 

     jpeg.SavetoFile(Ziel); 

   finally 

    jpeg.free; 

   end; 

end;

with ListView1 do

begin

for ii := -1 + Items.Count downto 0 do

begin

dateiname:='';

dateiname := ExtractFileName(ListView1.Items[ii].Caption);

Label3.Caption:='Status: bearbeite Bilder...('+dateiname+')';

BildgroesseAendernJPGExt(ListView1.Items[ii].Caption,'c:\test\'+lowercase(dateiname),800,800);

end;

end;

Bin auf Delphi gekommen, dadurch
weil ich erst einen Upload-Skalierer
gecoded hatte mit PHP, jedoch das
auch an seine Grenzen gestossen ist.

Interessanter Link Speicherverbrauch

Fürchte wird so ziemlich dasselbe sein,
wie beim Link beschrieben, der Speicherverbrauch.

Gäbe es da vllt eine ressourcen-schonendere Möglichkeit,
hab ich da prinzipiell was falsch gemacht ?
(Denke da an die Photoshop Batch, die es ja auch schafft)

Vielen Dank im Voraus,
Gruss Nil

mehrere Bilder skalieren, in einer Schleife

mehrere Bilder skalieren, in einer Schleife

Forumregeln