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

[snock]

Delphi-Quellcode:

uses jpeg [...]

TImage.LoadFromFile('deineJPGbild.jpg');

// Und als JPG Format speichern:
procedure DeineProcedure;
var ImgPic:TJPEGImage;
begin
ImgPic := TJPegImage.Create;
ImgPic.Assign(TImage);
IMgPic.SaveTOFile('DeineJPGBild.jpg');
ImgPic.Free;
end;

(Ich übernehme keine Garntie ob dieser Code funktioniert!)


mfg