FMX保存JPG格式的Stream

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13

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可以直接用