JPEG vergrößer/verkleiner und anzeigen

[Nuclear-Ping]

Wenn du einen hochwertigen Resampler haben willst, kannst du dir unter http://www.open-ware.de/tmp/Resample.ace runterladen. Das ist ein Source + Beispiele zu einem Resampler, mit dem du Bitmaps mit verschiedenen Algorithmen qualitativ hochwertig vergrößern / verkleinern kannst.

Delphi-Quellcode:

uses Resample;

var
  JPG: TJPEG;
  BMP: TBitmap;

begin
  JPG := TJPEG.Create;
  JPG.LoadFromFile ('...');

  BMP := TBitmap.Create;
  BMP.Width  := NeueBreite;
  BMP.Height := NeueHoehe;

  StretchImage (JPG.Bitmap, BMP, ResampleFilters[3].Filter, ResampleFilters[3].Width);

  // Alten Inhalt kicken und Picture leeren, sonst könnte 
  // es Probleme bei neuen Bild-Größen geben
  Image1.Picture.Assign (nil);

  // ... und neu zuweisen
  Image1.Picture.Assign (BMP);

  JPG.Free;
  BMP.Free;
end;
// Das hier ist nicht getestet

Grüße,
Mario