FMX save stream in jpg format

Just looking at the notes of the past, estimating the use of the few people

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    

The generated MemoryStream can be sent to the VCL program with Indy

Can be directly used by Tjpegimage.loadfromstream

FMX save stream in jpg format