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?
