文档上传

dupit · 发表于 2010-1-21 10:27:28

请问平台自带的文档上传是哪个功能

atiger · 发表于 2010-1-21 10:50:27

你是功能上定义文档上传用平台的哪个功能来实现？如果不是，具体指啥？

dupit · 发表于 2010-1-21 11:00:57

任务中心有个文档上传功能

问题是右键菜单有上传和从我电脑引入这两个功能请问有什么区别吗还有就是两个操作上传和引入的文档是保持在数据库还是保存在服务器文件夹下

dupit · 发表于 2010-1-21 11:05:21

我想参考平台自带的文档上传功能，调用平台可用的函数

在自己设计的界面上实现文档上传，和下载我需要把文档保存在服务器的文件夹下，而不是数据库里

dupit · 发表于 2010-1-21 14:03:17

我就想问一下我可以调用平台的哪个函数可以实现文件上传到服务器的文件夹下同时要把这个文件的一些属性保存到我自己创建的一个表中我要实现的就是这个功能

atiger · 发表于 2010-1-21 14:46:27

上传是指上传你当前编辑的文件，上传到服务器上去；而从我的电脑引入是指，就是把机器上的文件传到服务器，是新建一个文件

还有就是两个操作上传和引入的文档是保持在数据库还是保存在服务器文件夹下
服务器的文件夹下。

atiger · 发表于 2010-1-21 15:28:21

那两个东东在业务模型\协同系统\文档\关联\文档关联信息\文档关联网格的 ActionList 上，

dupit · 发表于 2010-1-21 15:44:20

procedure TRelevancyGrid.NewDocFromLocal(const AOSFileName: string);
var
  lFileName: string;
begin
  lFileName := TDocSystem.GetANewFileName(Dir,
FileSys.FileUtils.GetFileExt(AOSFileName), TDocUtils.DefaultFileExtName);

  DataSetDocRelevancy.DisableControls;
  try
DataSetDocRelevancy.Insert;
DataSetDocRelevancy.FieldByName('FDOCNAME').AsString := FileSys.FileUtils.GetFileName(AOSFileName);;
DataSetDocRelevancy.FieldByName('FDOCURL').AsString := SysUtils.UpperCase(lFileName);
DataSetDocRelevancy.FieldByName('FDOCGUID').AsString := FileSys.FileUtils.GetFileNameNoExt(lFileName);
DataSetDocRelevancy.FieldByName('FOSFILENAME').AsString := AOSFileName;
DataSetDocRelevancy.FieldByName('FKIND').AsString := SysUtils.UpperCase(FileSys.FileUtils.GetFileExt(lFileName));
DataSetDocRelevancy.FieldByName('FSIZE').AsInteger := GetFileSize(AOSFileName);
DataSetDocRelevancy.FieldByName('FDEFAULTDIR').AsString := FDefineItem.Dir;
DataSetDocRelevancy.FieldByName('FSUBDIRNAME').AsString := SubDirName;
DataSetDocRelevancy.FieldByName('FFILESTATE').AsInteger := TDOCRELEVANCYINFO2.FileState_New;
DataSetDocRelevancy.Post;
  finally
DataSetDocRelevancy.EnableControls;
  end;
end;

这就是从电脑引入后运行的函数但是我发现这只是把文件的一些属性保存在数据字段里，没发现怎样实现把本地的文件上传到服务器文件夹，请问这段代码在哪里啊

atiger · 发表于 2010-1-21 16:49:35

DoUpLoadFile

		自动登录	找回密码
密码			立即注册