fmx app将bitmap存成指定格式的流或文件

fmxapp将bitmap存成指定格式的流或文件(2018-04-04 16:50:29)转载▼分类：Delphi10.2有Q朋问我，想把拍照的BMP转JPG，按下面的代码即可。varsurf:TBitmapSurface;astream:TmemoryStream;beginsurf:=TbitmapSurface.Create...

hyfcsdn

280人浏览 · 2019-12-24 02:18:02

hyfcsdn · 2019-12-24 02:18:02 发布

fmx app将bitmap存成指定格式的流或文件

(2018-04-04 16:50:29)

转载▼

分类： Delphi10.2

有Q朋问我，想把拍照的BMP转JPG，按下面的代码即可。

var
    surf:TBitmapSurface;
    astream:TmemoryStream;
begin
    surf:=TbitmapSurface.Create;
    astream:=TmemoryStream.Create;
    try
       Surf.Asssign(Image1.Bitmap);
       TBitmapCodeManager.SaveToStream(astream,Sufr,'.jpg');
    finally
        surf.Disposof;
    end;
end;

其中，将.jpg换成.png就存成png格式的。