Qualität eines JPEG-Bildes verringern

[bitsetter]

Hallo,

versuche es mal so:

Delphi-Quellcode:

  var
JpegImage1, j: TJpegImage;
bmp: TGraphic;
begin
  bmp:= TBitmap.Create;
  JpegImage1 := TJpegImage.Create;
  try
    JpegImage1.LoadFromFile('c:\meinbild.jpg');
    bmp.Assign(JpegImage1);
    JpegImage1.Assign(bmp);
    JpegImage1.CompressionQuality := 50;
    JpegImage1.Compress;
    JpegImage1.SaveToFile('c:\meinbild.jpg');
  finally
    JpegImage1.Free;
    bmp.Free;
  end;