【结贴】抱错**

ccseasy

我在ie访问系统。
问题：当我点击”上传报告“按钮选择文件后会提示下图的错误信息。

”上传报告“按钮下的代码是如下写的：

procedure TGWSJPXLCKXS1form.ToolButton4Click(Sender: TObject);
var
  Dir,FileName,id:String;
begin
  id:=ds_XianShi.DataSet.FieldByName('id').AsString;

  if self.OpenDialog.Execute then
  begin
     Dir:=opendialog.FileName;
  end;
  FileName:=ExtractFileName(OpenDialog.FileName);
  if TSysFunc.AddAttach(Dir,FileName) then
  begin
    ds_update.DataSet.Filter:=' id='+sysutils.QuotedStr(id);
    ds_update.DataSet.Filtered:=true;
    ds_update.DataSet.Edit;
    ds_update.DataSet.FieldByName('TJBG').AsString:=FileName;
    ds_update.DataSet.ApplyUpdates;
    jsdialogs.ShowMsg('上传成功','提示');
  end;
end;

写完后保存编译并且嵌入，可是在访问系统上传附件后总是提示下图的错误

shangxy

关闭studio，再打开，找到出错的对应单元重新编译一下看看。

ccseasy

不行，已经编译过了，在开发环境运行此功能不会报上面的图片中的错误，在ie访问系统，打开窗体上传附件后就提示此错误！急，请提示！

atiger

1、重新编译，
2、编译后签入
3、签入后刷新缓存
4、客户端关闭，重新打开再看看

ccseasy

还是不行

lixy

确认是否链接的是一个服务器。并确认这个功能已经签入了，并刷新过缓存。

ccseasy

是的,确认

jiahaiming

楼主，ccseasy.dll是否你导入的第三方控件？

ccseasy

好像没倒，就说让我用公共资源集里的函数就可以了，也许他忘了倒了？还要倒地方控件吗？
我去哪找第三方控件？怎么倒？

ccseasy

这是资源集里的函数