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