DBR Delphi-Ecke

// Wenn man ein Bitmap einem Jpeg zuweist, hat dieses hohe Qualität und eine
// dementsprechende Größe. Um Platz zu sparen kann man das Bild komprimieren.

// Getestet mit D4 unter WinME

procedure TForm1.Button2Click(Sender: TObject); 
var 
  jp: TJpegimage; 
  bm: TBitmap; 
begin 
  bm := tbitmap.create; 
  jp := TJpegimage.create; 
  bm.loadfromfile('d:\zeitung\monalisa.bmp'); 
  jp.assign(bm); 
  bm.free; 
  jp.CompressionQuality := 10; // 1..100 --> 1 höchste Komprimierung, 100 keine 
  jp.compress; 
  jp.smoothing := not jp.smoothing; 
  canvas.draw(0, 0, jp); 
  jp.savetofile('c:\monalisa.jpg'); 
  jp.free; 
end;