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 调用外部程序获取程序id，并能关闭该程序

Delphi 虚拟键码对照表

Delphi 10.3.1 android沉浸式透明状态栏

Delphi xe8中的正则表达式提取日语（平假名，片假名，汉字）

Delphi 获取网卡物理地址之内存获取方式函数源码

Delphi 实现放大效果

Delphi 无类型文件读写

Delphi字符串拆分(字符数限制)

Delphi程序与chm帮助关联的简单实现

Delphi2009之timage

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

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