Vorschaubilder ähnlich schnell wie Win-XP erstellen

[axelf98]

Hi

Ich hab es nach einigem Probieren geschafft, einen Code zu "schreiben", der Thumbnails, also Vorschaubilder schnell (ähnlich wie in Windows XP) erstellt. Der braucht ungefähr 7 Sekunden für 60 6-Megapixel-Bilder für beliebig große Thumbs auf einem 1,6 Ghz Centrino. Folgend der Code:

Delphi-Quellcode:

procedure ...
    Extention: String;
    LadBitmap, Vorschau: TBitmap;
    jpg: TJPEGImage;
begin
 Extention := Ansilowercase(Extractfileext(sFoto.FileScr));

 if (Extention = '.jpg') OR (Extention = '.jpeg') then
 begin     ///  JPGS schnell!!!!  ---------------------------------
  LadBitmap := TBitmap.Create;
  Vorschau := TBitmap.Create;
  jpg := TJPEGImage.create;
  jpg.LoadFromFile(sFoto.FileScr);
  jpg.Scale := jsEighth;   // schnell, da nur 1/8 der Größe
  LadBitmap.Assign(jpg); // rüberkopieren

  Vorschau.Canvas.StretchDraw(Rect(0,0,VorschauGr,VorschauGr),LadBitmap); 
 
  jpg.Free;
  LadBitmap.Free;
end;

Vielleicht für einen Eintrag in die Code-Lib zu gebrauchen?