可否将以下的代码稍为修改，使图片直接存入一个TMemoryStream
各位朋友，代码如下，但小弟希望不将图片SaveToFile('D:\zhy.jpg')，而是直接SaveToStream，即将当前图片存入一个
TMemoryStream，请问该如何实现，请各位朋友赐教，谢谢！！！
var
jp: TJPEGImage; //Requires the "jpeg" unit added to "uses" clause.
begin
jp := TJPEGImage.Create;
try
with jp do
begin
jp.CompressionQuality := 2;
jp.Compress ;
Assign(Image1.Picture.Bitmap);
SaveToFile('D:\zhy.jpg');
end;
finally
jp.Free;
end;
[解决办法]
var
ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
SaveToStream(ms);
[解决办法]
用他的savetostream函数啊
