ASP组件输出图形的难题！！！（另外有个150分的帖子一起结）

收取到了你的消息，呵呵，很久很久没有来到delphi版了咯：）
这几天很忙，恩，我看了一下你的代码，恩，这样做试试：
function Twp.Get_bmp: OleVariant; 
var
 Img: TImage; 
 tmpStream: TMemoryStream;
 ImgData: array of byte;
 imglen: Integer;
begin ......
 //首先是你要的工作，比如在img上画出图形
 ...... tmpStream := TMemoryStream.Create;
 img.Picture.SaveToStream(tmpStream);
 img.Destory;
 tmpStream.Position := 0;
 imglen := tmpStream.Size;
 SetLength(ImgData, imglen);
 tmpStream.Read(ImgData[0], imglen);
 tmpStream.Free;
 Response.Set_Expires(0);
 Response.Buffer := True;
 Response.Clear;
 Response.ContentType := 'image/bmp';
 Result := ImgData;
end;