【搞定】以下代码添加ole附件保存不了？应该怎么修改？**

韩文斌

procedure TFormNetwork.BtnAddAssClick(Sender: TObject);
begin
  DataSetBrokerAccessorie.DataSet.Append;//附件数据集添加
  if OpenDialog.Execute then                        
  begin
    TOleContainer(INFONETWORKPLAN.TYJWLJH(DocView1.Doc).DataEditAss.InplaceControl).
    CreateObjectFromFile(OpenDialog.FileName, False);//加ole附件  INFONETWORKPLAN.TYJWLJH(DocView1.Doc).DataEditNumber.Text :=
  SysUtils.IntToStr(DataSetBrokerAccessorie.DataSet.RecordCount + 1);//添加序号
  INFONETWORKPLAN.TYJWLJH(DocView1.Doc).DataEditName.Text := OpenDialog.FileName;//添加路径
    DataSetBrokerAccessorie.DataSet.Post;
    DataSetBrokerAccessorie.DataSet.ApplyUpdates;
  end;

end;


但是执行后ole附件中还是空的，我把后面2句屏蔽后，可以看见DataEditNumber字段存在附件，但是直接保存还是保存不上，而打开一次后再保存才能保存，为什么？应该怎么修改？？

韩文斌

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

No.2  导入文档之后，如何保存到字段中
var
  lOle:TOleContainer;
begin
    lOle := (EDContent.InplaceControl) as TOleContainer;
    if lOle.InsertObjectDialog then
    begin
        StreamSaveToField(dsbOATpgroup.DataSet.FieldByName('OASendtpcontent'),lOle);
    end;
//  if  DLGLoaddoc.Execute then
//     lOle.CreateObjectFromFile(DLGLoaddoc.FileName, False);
end;


static procedure TOARsgroup.StreamSaveToField(AField:TDataField;AOle:TOleContainer);
var
  lStream: TMemoryStream;
begin
  lStream := TMemoryStream.Create;
  try
    AOle.AllowInPlace := True;
    AOle.SaveToStream(lStream);
    if  not AField.DataSet.Active then AField.DataSet.Open;
    AField.DataSet.Edit;
    TBlobField(AField).LoadFromStream(lStream);
    AField.DataSet.Post;
  finally
    lStream.Free;
  end;
end;


lOle := (EDContent.InplaceControl) as TOleContainer;中的EDContent是什么？

韩文斌

结贴吧，不好意思
if OpenDialog.Execute then
  begin
    DataSetBrokerAccessorie.DataSet.Append;
    TBlobField(DataSetBrokerAccessorie.DataSet.FieldByName('Accessories')).LoadFromFile(OpenDialog.FileName);
    DataSetBrokerAccessorie.DataSet.FieldByName('Number').AsInteger :=
    DataSetBrokerAccessorie.DataSet.RecordCount + 1;
    DataSetBrokerAccessorie.DataSet.FieldByName('Name').AsString :=
    OpenDialog.FileName.;
    DataSetBrokerAccessorie.DataSet.Post;
    DataSetBrokerAccessorie.DataSet.ApplyUpdates;
  end;

用以下这句解决了TBlobField(DataSetBrokerAccessorie.DataSet.FieldByName('Accessories')).LoadFromFile(OpenDialog.FileName);

韩文斌

不过现在又出这样的错误，刚开始还好一点，多试了几次就怎么出现这样的问题？ ;)  ;)  ;)  ;)

jiahaiminghr

多试几次：是什么意思？

同一条记录多次载入文件吗？

另外，错误定位在哪句代码上?

韩文斌

错误应该在TBlobField(FieldByName('Accessories')).LoadFromFile(OpenDialog.FileName); 代码上
多试几次就是多条记录都增加了附件。加了几次后报那个错误就再也加不了附件了

韩文斌

找了你们好多帖子，有的说能用TBlobField(FieldByName('Accessories')).LoadFromFile(OpenDialog.FileName);写入OLE字段，有的说必须要TOleContainer.CreateObjectFromFile这个，想想都乱了，自己再试几次吧，希望你们也尽量给我回复用那种好！

韩文斌

var
  I: Integer;
  lFileName: string;
  lOle: TOleContainer;
  lStream: TMemoryStream;
begin
  if OpenDialogAccessorie.Execute then
  begin
    lFileName := OpenDialogAccessorie.FileName;
    I := Pos('\',lFileName);
    while I<>0 do
    begin
      lFileName := Copy(lFileName,I+1,Length(lFileName)-I+1);
      I := Pos('\',lFileName);
    end;

    lOle := TOleContainer.Create(self);
    try
      lOle.Parent := Self;
      lOle.CreateObjectFromFile(OpenDialogAccessorie.FileName, False);
      try
        lStream := TMemoryStream.Create;
        lOle.SaveToStream(lStream);

        with DataSetBrokerAccessorie.DataSet do
        begin
          Append;
          TBlobField(FieldByName('Accessories')).LoadFromStream(lStream);
          FieldByName('Number').AsInteger := RecordCount + 1;
          FieldByName('Name').AsString := lFileName;
          Post;
          ApplyUpdates;
        end;
      finally
        lStream.Free;
      end;
    finally
      lOle.free;
    end;
  end;

结贴吧