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;
Super das klappt, allerdings wird das Bild skaliert (also verkleinert). Ich versuche das Bild zu beschneiden, also sagen wir ich habe ein 600x600 Bild (JPG) und möchte dieses auf 300x300 beschneiden und als JPG wieder abspeichern. Also nicht verkleinern / skalieren, sondern abschneiden. Alle bisherigen Versuche sind gescheitert, da ich immer den Fehler erhalte (JPG-Größe kann nicht geändert werden), selbst beim Code vom Unwissenden.
Jemand ne Idee? Thx