自己用代码打开ole后的保存问题

lisb

自己通过  TOleContainer(DataEdit1.InplaceControl).DoVerb(1); 这种方式
打开ole的时候需要下面代码才能把对文档的修改保存到字段上

在数据集的BeforePost事件中加一段
procedure TMainForm.DataSetBroker1BeforePost(DataSet: TDataSet);
var
  lStream: TStream;
begin
  lStream := DataEditOLE.DataSource.DataSet.CreateBlobStream(DataEditOLE.DataSource.DataSet.FieldByName(DataEditOLE.DataField), TBlobStreamMode.bmWrite);
  try
    TOleContainer(DataEditOLE.InplaceControl).SaveToStream(lStream);
  finally
    lStream.Free;
  end;
end;