1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var jpeg:TJPEGImage;
begin
jpeg:=TJPEGImage.Create;
jpeg.LoadFromFile('E:\movie\燕塞湖之旅\100_3162.JPG');
Image1.Picture.Bitmap.Assign(jpeg);
jpeg.Assign(Image1.Picture.Bitmap);
jpeg.CompressionQuality:=25;
jpeg.Compress;
jpeg.SaveToFile('c:\aa.jpg');
end;