DELPHI 压缩图片
发布网友
发布时间：2022-04-26 14:26
共1个回答
热心网友
时间：2022-04-20 00:05
不要这么使用dc，所有的带Canvas的控件直接使用Canvas.Handle
你的意思是图片已经在F里面了是吧？我是这样理解的
function TForm1.Bmp2Jpg(Bmp: TBitmap): boolean;
var
jpg: TJPEGImage;
begin
result := false;
jpg := TJPEGImage.Create();
try
jpg.Assign(Bmp);
jpg.CompressionQuality := 10;
jpg.SaveToFile('c:\Abc.jpg');
Form18.Image1.Picture.Assign(jpg);
result := true;
finally
jpg.Free;
end;
end;
