習(xí)慣VCL的做法了，到了FireMonkey里面，好像查不到單獨(dú)的JPEG單元了，不少朋友就郁悶如何處理JPG了，這么大件事，不可能沒(méi)有處理方法的，具體就請(qǐng)看代碼：



uses?FMX.Surfaces;

procedure?TForm1.Button1Click(Sender:?TObject);
var
??Surf:?TBitmapSurface;
??Stream:?TMemoryStream;
begin
??Surf?:=?TBitmapSurface.Create;
??Surf.Assign(Image1.Bitmap);
??Stream?:=?TMemoryStream.Create;
??try
????TBitmapCodecManager.SaveToStream(Stream,?Surf,?'.jpg');
????Stream.SaveToFile(ExpandFileName('~/Test.jpg'));
??finally
????Stream.Free;
????Surf.Free;
??end;
end;


原文地址：http://qc.embarcadero.com/wc/qcmain.aspx?d=108621

轉(zhuǎn)載于:https://www.cnblogs.com/zhqian/p/4074107.html

總結(jié)

以上是生活随笔為你收集整理的FireMonkey 保存图片到JPG的方法 BMP转JPG的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。