如何把存放在image类型中的文件通过OleContainer读出？来者有分

Question

procedure........
var
  mttream:TMemoryStream;
  YourFileName:String;
begin  
  mttream := TMemoryStream.Create;
  AdoQuery1.Edit;
  TBlobField(AdoQuery1.FieldByName('Roads')).SaveToStream(mttream);
  AdoQuery1.Post;
  OleContainer1.LoadFromStream(mttream);//程序执行到这句总是报错。
  mttream.Free;
end;
//'Roads'是sqlserver数据库中 image类型的字段.其中有数据（excel文件）
//错误提示stream read error
为什么不行？

Answer 1

用ADOQuery：
TBlobField(FieldByName(零件图')).SaveToStream(Stream);
      Stream.Position:=0;
      OleContainer1.LoadFromStream(Stream);
      Stream.Free;
你把AdoQuery1.Edit;这句话删除看看，我得没有这句话。