Bild(JPG) laden => Größe verändern => Speichern | Wie?

[SirThornberry]

So gehts

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var jpg: TJPEGImage;
    LBitmap: TBitmap;
begin
    jpg:=TJpegImage.Create;
    LBitmap := TBitmap.Create;
    try
      jpg.LoadFromFile('D:\Downloadz\Bilder\Fun\test.jpg');
      LBitmap.Assign(jpg);
      LBitmap.Height := LBitmap.Height - 30;
      jpg.Assign(LBitmap);
      jpg.SaveToFile('D:\Downloadz\Bilder\Fun\test.jpg');
    finally
      jpg.Free;
      LBitmap.Free;
    end;
end;