DELPHI压缩图片代码.pdf

Delphi 压缩图片代码 添加引用：uses JPEG; // 图片处理函数，将覆盖原图片文件 // filename:图片完整路径 PressQuality:压缩质量 Width:宽 Height: 高 function CompressMainFun(filename: String; PressQuality,Width,Height:integer):Boolean; var bmp: TBitmap; jpg: TJpegImage; i: Integer; sTemp:string; begin Result : False; if pos(UpperCase(.bmp), UpperCase(filename)) 0 then //bmp 格式 begin bmp.LoadFromFile(filename); jpg.Assign(bmp); jpg.CompressionQuality : PressQuality; jpg.Compress; bmp.height : Height; bmp.Width : Width; bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg); jpg.Assign(bmp); sTemp : filename + .jpg; jpg.SaveToFile(sTemp); DeleteFile(filename); CopyFile(PChar(sTemp), PChar(filename), True); DeleteFile(sTemp); end else //其它格 式 begin jpg.LoadFromFile(filename); bmp.height : Height; bmp.Width : Width; bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg); jpg.Assign(bmp); jpg.CompressionQuality : PressQuality; jpg.Compress; sTemp : filename + .jpg; jpg.SaveToFile(sTemp); DeleteFile(filename); CopyFile(PChar(sTemp), PChar(filename), True); DeleteFile(sTemp); end; Result : True; end; 压缩图像文件并转换成BMP 格式 function GraphicToBmp(P:TPicture;Quality:Integer 80):TBitmap; var Jpg:TJpegImage; begin Result : TBitmap.Create; with Result do begin Width : P.Width; Height : P.Height; Canvas.Draw(0,0,P.Graphic); end; ifAssigned(Result)then begin Jpg : TJpegImage.Create; Jpg.Assign(Result); Jpg.CompressionQuality : Quality; Jpg.JPEGNeeded; Jpg.Compress; ifAssigned(Jpg)then begin Jpg.DIBNeeded; Result.Assign(Jpg); end; end; end; delphi 显示 jpg、png、gif 图片及