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:

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

[Sir Rufo]

Delphi-Quellcode:

procedure BildgroesseAendernJPGExt(Quelle,Ziel:TFileName; MaxBreite,MaxHoehe:integer);
var 
  bmp : TBitmap;
  jpeg : TJpegImage;
  breite, hohe : integer;
begin
  Jpeg:=TJpegImage.Create;
  try // <--- wir tryen mal schon ab hier
    jpeg.LoadFromFile( Quelle );  // <--- Laden 1
    //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  <--- etwas zu spät
    jpeg.LoadFromFile( Quelle ); // <--- Laden 2 - Warum schon wieder?
    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;

[... sonstiger Code ...]

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;

So nachdem man den Code jetzt auch lesen kann :mrgreen: habe ich mal die Sachen die mir aufgefallen sind entsprechend kommentiert.

cu

Oliver

[Morphie]

Entweder in einen Thread auslagern, oder application.ProcessMessages verwenden.

[Sir Rufo]

Nach dem ganzen Formatieren habe ich den Blick für das wesentliche vergessen :mrgreen:

Ja, genau Thread ... das hatten wir heute schon mal ... :mrgreen:

Schau mal da: http://www.delphipraxis.net/internal...=965602#965602

Zitat:

Zitat von nil

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

Mein Monitor ist ein 4:3-Schirm, also breiter als höher, da wären ein wenig weniger Zeilenumbrüche besser ...

cu

Oliver

[nil]

Vielen Dank für eure Antworten. Habe es jetzt über das "application.ProcessMessages" hinbekommen.
Die Threads schau ich mir auch näher an.

Zitat:

Mein Monitor ist ein 4:3-Schirm, also breiter als höher, da wären ein wenig weniger Zeilenumbrüche besser ...

ist notiert. :)