image resizen??

[phreax]

Hier hab ich grad nen passendes Stück Code zur Hand, es wird mit Kantenglättung aus der Graphics32 Bibliothek gearbeitet.
LongSideLength gibt die Sollgröße der längeren Bildseite an (damit nichts verzerrt wird).
Das lässt sich aber auc auf beliebige Seitenlängen anpassen...

Delphi-Quellcode:

uses Jpeg, Gr32, GR32_Resamplers, FileCtrl;

procedure ScaleImages(SrcFile,DstFile: String; LongSideLength: integer);
var
  R: TKernelResampler;
  tbmpDest  : TBitmap32;
  tbmpSource: TBitmap32;
  NewWidth,NewHeight: integer;
  TempWinBmp: TBitmap;
  JpgImage: TJPEGImage;
begin
      tbmpSource := TBitmap32.Create;
      try
      tbmpSource.LoadFromFile(SrcFile);
      R := TKernelResampler.Create(tbmpSource); //<-einen Resampler fürs verkleinern benutzen
      R.Kernel := TCosineKernel.Create;
      tbmpDest := TBitmap32.Create;
      try
      if tbmpSource.Width > tbmpSource.Height then
       begin
         NewWidth := LongSideLength;
         NewHeight := round(tbmpSource.Height*NewWidth / tbmpSource.Width);
       end
      else
        begin
          NewHeight := LongSideLength;
          NewWidth := round(tbmpSource.Width*NewHeight / tbmpSource.Height);
        end;
      tbmpDest.SetSize(NewWidth, NewHeight);
      tbmpDest.Draw(tbmpDest.BoundsRect, tbmpSource.BoundsRect, tbmpSource);
      JpgImage :=TJPEGImage.Create;
      TempWinBmp := TBitmap.Create;
       try
         TempWinBmp.Assign(tbmpDest);
         JpgImage.CompressionQuality := 100; //Qualitätseinstellung...
         JpgImage.Assign(TempWinBmp);
         JpgImage.SaveToFile(DstFile);
       finally
         TempWinBmp.Free;
         JpgImage.Free;
       end;
      finally
      //Aufräumen :)
        tbmpDest.Free;
      end;
      finally
        tbmpSource.Free;
      end;
end

mfg phreax