刚刚看以前的笔记,估计这个用的人很少
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可以直接用
时间: 2024-12-15 02:49:19