Delphi压缩图片代码.docxVIP

Delphi压缩图片代码 添加引用：uses JPEG; //=====================图片处理函数，将覆盖原图片文件 =========================== //=====filename:图片完整路径 PressQuality:压缩质量 Width:宽 Height: 高 function CompressMainFun(filename: String; PressQuality,Width,Height:integer): Boolean; var bmp: TBitmap; jpg: TJpegImage; i: Integer; sTemp:stri