olecontainer报错

Question

从数据库里的二进制字段用流导入到olecontainer中显示的时候总是提示：“invalid stream format”.但是如果暂存成文档的话，通过CreateObjectFromFile打开则能正常显示。我查了一些资料感觉没有错误阿。请各位大大指教。代码如下：
var
  ost: TMemoryStream;
begin
  ADOTable1.Open;
  ost := TMemoryStream.Create;
  Try
  (ADOTable1.FieldByName('fmemo') as TBlobField).SaveTostream(ost);
  ost.Position := 0;
  OleContainer1.LoadFromStream(ost);
  olecontainer1.DoVerb(ovshow);
  Finally
    ost.Free
  end;

Answer 1

var
  ost: TMemoryStream;
begin
  ADOTable1.Open;
  ost := TMemoryStream.Create;
  Try
  (ADOTable1.FieldByName('fmemo')).SaveTostream(ost);
  ost.Position := 0;
  OleContainer1.LoadFromStream(ost);
  olecontainer1.DoVerb(ovshow);
  Finally
    ost.Free
  end;