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 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi使程序的窗口出现在最前面并激活

Delphi 双进程监控保护

如何在Delphi xe中通过ftp下载文件

Delphi 通过注册表获取系统版本和cpu型号

Delphi里实现彩色图片转为黑白图像的功能

Delphi通过url获取网页源码

Delphi 双击richedit高亮所有关键字

Delphi 通过有道接口实现翻译

Delphi抓屏代码

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

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