FireMonkey 保存图片到JPG的方法 BMP转JPG

习惯VCL的做法了，到了FireMonkey里面，好像查不到单独的JPEG单元了，不少朋友就郁闷如何处理JPG了，这么大件事，不可能没有处理方法的，具体就请看代码：



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

转载于:https://www.cnblogs.com/zhqian/p/4074107.html