起步软件技术论坛-X3

 找回密码
 立即注册
搜索
12
返回列表 发新帖
楼主: roice

【结贴】[问题] 升级后,文档栏内原来的下载菜单没有了!**

[复制链接]
发表于 2008-4-23 17:32:21 | 显示全部楼层
那就应该可以了啊,楼主现在是另存为,不是下载了。有没有看错呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-23 17:41:52 | 显示全部楼层
奇怪了,为什么没有呢? 编译签入也没有效果:

11111.jpg

106.93 KB, 下载次数: 67

回复 支持 反对

使用道具 举报

发表于 2008-4-23 19:35:40 | 显示全部楼层
太奇怪了,还是远程看一下吧。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-29 09:16:02 | 显示全部楼层
将这行代码放到过程的最后一句起效果了:
  for I := AURLs.Count - 1 downto 0 do
    if not ValidOperation(AURLs[I]) then
      AURLs.Delete(I);
  AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\DownLoad.Operation');
end;

发现另一个问题:
原来28版本的下载文档后,有一个提示对话框“下载文件ABC.DOC到D:\TEMP\DOC\ 成功!”,现在的版本用“另存为...”保存文档成功后没有提示,提示的代码也没找到,请问如何在下载完文档能提示用户文档下载成功,在哪里添加代码?
回复 支持 反对

使用道具 举报

发表于 2008-4-29 10:54:17 | 显示全部楼层
楼主,这是另存为的函数:
procedure TRELEVANCYDOC.SaveToLocal;
var
  I: Integer;
  lToOSFileName, lOSFileName: string;
  lListItemData: TListItemData;
  lStringList: TStringList;
begin
  SaveDialog.FileName := ListView.Selected.Caption;

  if not SaveDialog.Execute then
    Exit;

  lStringList := TStringList.Create;
  try
    lOSFileName := SaveDialog.FileName;
{    if SysUtils.FileExists(lOSFileName)
      and not JSDialogs.ConfirmBox(SysUtils.Format('%s 已经存在,要替换它吗?', [lOSFileName]), '', 1) then
      continue;}

    lStringList.Add(SysUtils.Format('%s=%s', [SelectedListItemData.DocURL, lOSFileName]));

    for I := 0 to lStringList.Count - 1 do
      SaveToLocal(lStringList.Names[I], lStringList.Values[lStringList.Names[I]]);
  finally
    lStringList.Free;
  end;
end;

可以在这里修改一下
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-29 11:45:59 | 显示全部楼层
新版本和原28版本这个过程的代码是完全相同的,但原版本的菜单是“下载”,下载成功后有个提示,3000版本菜单是“另存为”,对比楼上的代码完全一样,但却没有下面提示:

下载提示.jpg

208.25 KB, 下载次数: 62

回复 支持 反对

使用道具 举报

发表于 2008-4-29 11:58:04 | 显示全部楼层
我的意思是楼主可以通过修改这个函数来添加一个提示对话框

这这个函数里调用了SaveToLocal(lStringList.Names[I], lStringList.Values[lStringList.Names[I]]);来下载保存。
如果楼主有兴趣,可以研究一下这个函数。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-7 13:06:28 | 显示全部楼层
能不能在不修改代码基础上保留原来版本的功能(下载成功后弹出提示对话框)呢?
回复 支持 反对

使用道具 举报

发表于 2008-5-7 14:46:27 | 显示全部楼层
抱歉,不写代码就没有提示对话框了。
回复 支持 反对

使用道具 举报

发表于 2008-5-14 11:47:50 | 显示全部楼层

由于长时间未回,先结贴,有反馈请发新贴

由于长时间未回,先结贴,有反馈请发新贴
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-12 21:01 , Processed in 0.053601 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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