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

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;

来源：https://www.cnblogs.com/zhqian/p/4074107.html

推荐分享