【结贴】OleContainer的问题**

linson

procedure TCT1.ToolButton1Click(Sender: TObject);
var
  fileName: string;
  sm: TStringStream;
begin
  try
    if OpenDialog1.Execute then
    begin
      fileName := OpenDialog1.FileName;
      OleContainer1.CreateObjectFromFile(fileName,true);
      //OleContainer1.CreateLinkToFile(fileName,true);
      OleContainer1.DoVerb(Business.Forms.OleCtnrs.ovPrimary);
      sm := TStringStream.Create('');
      OleContainer1.SaveToStream(sm);
      DataSetBroker1.DataSet.Open;
      DataSetBroker1.DataSet.First;
      DataSetBroker1.DataSet.Edit;
      TBlobField(DataSetBroker1.DataSet.FieldByName('Doc')).LoadFromStream(sm);

      DataSetBroker1.DataSet.Post;
      DataSetBroker1.DataSet.ApplyUpdates;
    end;
  finally
    sm.Free;
  end;

end;
运行后报错，错误指向这一句：OleContainer1.CreateObjectFromFile(fileName,true);
错误信息如图：

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=468
http://bbs.justep.com/forum.php?mod=viewthread&tid=1951

zfang

还有问题吗，楼主？

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。