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;
end;

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

相关阅读 >>

Delphi nethttpclient1 数据库查询

Delphi 判断字符串是否为纯字母组合

Delphi中coinitialize作用

Delphi 得到不同平台的录音文件保存路径

Delphi 获取android包名称

Delphi搜索文件夹和文件

Delphi utf-8

Delphi 使用 tedgebrowser 组件

Delphi xe5 给edit增加自定义按钮

Delphi延时4种方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi FireMonkey 保存图片到JPG的方法 BMP转JPG