FMX保存JPG格式的Stream

刚刚看以前的笔记，估计这个用的人很少

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;    

这个生成的MemoryStream可以用INDY发送给vcl的程序

由TJPEGimage.LoadFromStream可以直接用