JPEG beliebig skalieren und speichern

[Hador]

Ansonsten kannst du folgenden Code nutzen:

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;

EDIT: Vergessen das Bitmap zu initialisieren