Jpeg Auflösung ändern

[DGL-luke]

zum beispiel per Stretchdraw. Der Filter, der da drni ist, versaut dir das Ergebnis aber. Ich würd zum stretchen Graphics32 benutzen. Der Code wär dann ungefähr so:

Delphi-Quellcode:

procedure Stretch(OldFile: string; ResX,ResY: Integer);
var b: TBitmap32;
begin
  b := TBitmap32.Create;
  with b do
   begin
    LoadFromFile(OldFile); //eventuell brauchst du bereits dafür die unit "jpeg" in den uses
    StretchFilter := sfLanczos;
    Draw(rect(0,0,Width-1,Height-1),b,rect(0,0,ResX-1,ResY-1));
    Width := ResX;
    height := ResY;
    SaveToFile(OldFile); //ich weiss nicht, ob das funktioniert; evtl. musst du es selber noch (z.B. mit jpeg.TJpegImage) in JPEG umwandeln und speichern
   end;
end;