Wenn du einen hochwertigen Resampler haben willst, kannst du dir unter
http://www.open-ware.de/tmp/Resample.ace runterladen. Das ist ein Source + Beispiele zu einem Resampler, mit dem du Bitmaps mit verschiedenen Algorithmen qualitativ hochwertig vergrößern / verkleinern kannst.
Delphi-Quellcode:
uses Resample;
var
JPG: TJPEG;
BMP: TBitmap;
begin
JPG := TJPEG.Create;
JPG.LoadFromFile ('...');
BMP := TBitmap.Create;
BMP.Width := NeueBreite;
BMP.Height := NeueHoehe;
StretchImage (JPG.Bitmap, BMP, ResampleFilters[3].Filter, ResampleFilters[3].Width);
// Alten Inhalt kicken und Picture leeren, sonst könnte
// es Probleme bei neuen Bild-Größen geben
Image1.Picture.Assign (nil);
// ... und neu zuweisen
Image1.Picture.Assign (BMP);
JPG.Free;
BMP.Free;
end;
// Das hier ist nicht getestet
Grüße,
Mario