起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 297|回复: 3

咨询附件关联?

[复制链接]
发表于 2010-6-9 09:21:28 | 显示全部楼层 |阅读模式
一条记录对应一张图片,图片存储在文件服务器上(非X3系统)。现在需要将这些数据导入到X3系统中,数据方面没有什么问题,问题出在图片上。
  我们的想法是,将图片放在X3的文档里,并且保证记录与图片间的关系不发生变化,如何实现?附带说明一下,记录数很多,图片有8G?
回复

使用道具 举报

发表于 2010-6-9 09:40:08 | 显示全部楼层
在平台上可以使用代码来上传附件
首先在你的文件服务器根据你的业务数据去掉记录所对应的附件,然后使用代码来上传附件。参考:代码如下

引用【业务模型\协同系统\文档\文档库】
procedure TFRMDOCCENTER.UpLoadClick(Sender: TObject);
var
  lFileName, osFile, lExt: string;
  lFileAttribute: TFileAttribute;
begin
  if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') then
    begin
      jsDialogs.ShowMsg('请选择上文件和存储路径!', '提示:');
      exit;
    end;
  lFileAttribute := TFileAttribute.Create;
  try
    lFileAttribute.DisplayName := edit1.Text;
    lFileAttribute.Size := 0;
    lFileAttribute.CreateTime := SysUtils.Now;
    lFileAttribute.IsDirectory := false;
    lFileAttribute.IsHidden := false;
    lFileAttribute.IsSpace := false;
    lFileAttribute.LastWriteTime := SysUtils.Now;
    lFileAttribute.ValuesAsString['OSFILENAME'] := edit3.Text;

    lExt := Sysutils.ExtractFileExt(edit1.Text);
    lFileName := edit2.text + jsCommon.CreateGUIDStr + lExt;
    osFile := TUnStructureDocUtils.NewFile(Context, lFileName, lFileAttribute);
    //TDocSystem.CheckIn(Context, lFileName);
  finally
    lFileAttribute.Free;
    jsDialogs.ShowMsg(osFile, 'UpLoad:');
  end;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-6-9 10:59:56 | 显示全部楼层

??

2楼只是一个上传代码,测试了一下,可以将指定的文件上传到alf_data,我是否可以这样理解,是让我将数据导进来后,图片再一个一个挂上去吗?如果是这样的话,晕。。。
 不知我一楼说的要求能否实现!
回复 支持 反对

使用道具 举报

发表于 2010-6-9 11:12:24 | 显示全部楼层
楼主理解正确。
需要用代码将文档一个一个导入到x3知识中心
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-8 14:10 , Processed in 0.039682 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表