1,183
社区成员
发帖
与我相关
我的任务
分享
uses jpeg;
procedure TForm13.btn1Click(Sender: TObject);
var
jpg: TJpegImage;
bmp: TBitmap;
begin
jpg := TJpegImage.Create;
bmp := TBitmap.Create;
try
jpg.LoadFromFile('c:\1.jpg');
bmp.Width := jpg.Width;
bmp.Height := jpg.Height;
bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg);
jpg.Assign(bmp);
jpg.CompressionQuality := 40;
jpg.Compress;
jpg.SaveToFile('C:\AA.jpg');
finally
bmp.free;
jpg.free;
end;
end;