功能中挂附件时遇到的问题**

yushengli

我在窗体中作了一个挂附件的功能，挂附件的时候有点问题。
    挂Word各式文档或者图片各式文档或者PPT格式文档的时候，几十KB到100多KB大小的还能挂上去，但是比较慢，有的时候需要十几秒到几十秒，有的时候死机。
    几百KB以上，就挂不上去了，显示提示“内存不足”（我试了一下，想挂个5百K的照片，挂不上去，显示提示“内存不足）
    但是挂压缩文件的时候就没有问题，例如试了一个压缩文件是4.6M ，很快就挂上去了，只用了不到2S。
    是不是挂附件根附件的格式有关，只能挂压缩文件包，不能挂Office形成的格式的文件？
    或者是哪里有问题？
    挂附件的功能应该不会有错，是来台电的技术支持做的。
   
（
注：
建立挂附件的方法：
附件数据表
1、建立相应的数据项
建立三个相应的字段：
文档名称    DocFileName
文档类型    DocFileKind
文档内容    DocContent    二进制流   OLE
2、引用功能函数
  COMMONFORMLIB.TCOMMONFORMLIB.EditorOleDocAdjunct(Self.Context,dsbFile,'DocContent','DocFileName','DocFileKind');
）
                                                                    国华台电

zfang

是不是所有的客户端机器都如此？

潇湘君

最初由 zfang 发布
[B]是不是所有的客户端机器都如此？ [/B]

是所有机器都如此。

zfang

COMMONFORMLIB.TCOMMONFORMLIB.EditorOleDocAdjunct
这个函数在哪里？我怎么找不到呢？

yushengli

那个挂附件引用的函数是公共窗体库中的函数阿[公告]
函数库中该函数的代码为：
static procedure TCOMMONFORMLIB.EditorOleDocAdjunct(AContext : TContext ; ADatasetBroker : TDataSetBroker ; ABlobFieldName,AFileFieldName,AFileExtFieldName : string);
var
  lForm : TOleDocAdjunctForm;
begin
  lForm := TOleDocAdjunctForm.Create(AContext);
  try
    lForm.DataSetBroker.InfoBroker := ADatasetBroker.InfoBroker;
    lForm.DataSetBroker.DataSetDefID := ADatasetBroker.DataSetDefID;
    lForm.BlobFieldName := ABlobFieldName;
    lForm.FileFieldName := AFileFieldName;
    lForm.ExtFieldName := AFileExtFieldName;
    lForm.ShowModal;
  finally
    lForm.Free;
  end;

end;

zfang

抱歉，楼主，我这边反复找了看了，这个代码就是没有找到。
是你们自己做的吗？

zfang

楼主，这个问题的话，能通过远程看下效果吗？