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

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格式的。