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

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