Var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile('C:/DEMO.BMP');
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
CompressionQuality:=10;
Compress;
SaveToFile('C:/DEMO.JPG');
Free;
end;
finally
Free;
end;
end;
BMP转换为JPEG
最新推荐文章于 2017-01-08 18:07:16 发布