JPeg verkleinern

[Daniel B]

Delphi-Quellcode:

procedure Resizepicture(filename: string; width, height: integer);
var
  bmp:TBitmap;
  jpeg:TJpegImage;
begin
  Jpeg:=TJpegImage.Create;
  try
    jpeg.LoadFromFile(filename);
    bmp:=TBitmap.Create;
      try
        if jpeg.width>jpeg.Height then
         begin
           bmp.width:=width;
           bmp.height:=height;
         end 
        else
         begin
           bmp.width:=height;
           bmp.Height:=width;
         end;
        bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg);
        peg.assign(bmp);
      finally
        bmp.free;
      end;
      jpeg.SavetoFile(filename);
  finally
    jpeg.free;
  end;
end;

Von RomanK

Grüsse, Daniel :hi:

[edit=fkerber]Überarbeitet, Fehler verbessert; Mfg, fkerber[/edit]