新普京网站-澳门新普京 > 前端 > jpeg图片压缩新普京网站:

jpeg图片压缩新普京网站:

2020/01/04 22:38

uses jpeg;

procedure ZipJPEG;
var
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  jpg := TJpegImage.Create;
  bmp := TBitmap.Create;
  try
    jpg.LoadFromFile('c:A.jpg',',',');

    bmp.Width := jpg.Width;
    bmp.Height := jpg.Height;
    bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg,',',');
    jpg.Assign(bmp,',',');

    jpg.CompressionQuality := 10;
    jpg.Compress;
    jpg.SaveToFile('C:AA.jpg',',',');
  finally
    bmp.free;
    jpg.free;
  end;
end;

上一篇:Delphi从内存流中判断图片格式,简单判断图片类型 下一篇:MSGPACK序列和还原TFDParams【澳门新普京】,在Delphi中基于内容检测图片格式