摘要： uses jpegprocedure TForm1.Button1Click(Sender: TObject);var myjpeg:tjpegImage; myBmp:Tbitmap;beginmyBmp:=tbitmap.Create;myBmp.LoadFromFile('C:\Documents and Settings\111\桌面\练习\1.bmp');myjpeg:=tjpegimage.Create;myjpeg.Assign(mybmp);myjpeg.CompressionQuality:=20;//转化的压缩率，越大效果越好myjpeg.Compress; 阅读全文