刚刚看以前的笔记，估计这个用的人很少
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可以直接用
原文：http://www.cnblogs.com/jspdelphi/p/5456898.html