JPEG "on the Fly" Größe ändern

[Pfoto]

Hi!

schau dir mal das an (in einem Beitrag von User Hador gefunden):

Delphi-Quellcode:

var 
  jpg: TJPEGImage; 
  bmp: TBitmap; 
begin 
  jpg := TJPEGImage.Create; 
  bmp := TBitmap.Create; 
  jpg.LoadFromFile('...'); 
  bmp.Width := 100; //neue Breite 
  bmp.Height := 100; //neue Höhe 
  bmp.Canvas.StretchDraw(Rect(0, 0, 100, 100), jpg); 
  jpg.Assign(bmp); 
  bmp.Free; 
  jpg.SaveToFile('...'); 
  jpg.Free; 
end;

Bei Width und Height halt noch die richtige Proportion berechnen...

Wenn du bessere Verkleinerungs-Ergebnisse wünscht, musst
du nach einem anderen Algorhythmus schauen, z.B.:

Komponenten von Anders Melander auf Torry.net
Dann Komponente 'Interpolating Bitmap Resampler v.1.2' wählen.



Gruß
Pfoto