【搞定】远程文件操作"38"的代理类没有注册？？**

dragonsoft

我要下载服务器上的一个文件, 文件已经放在BizDBXTYXKddbhelp.doc

在 业务模型系统空间\简洁风格界面库\窗体库标准风格主窗体 中修改代码:
procedure TSTANDARDSTYLEMAINFORM.OpenHelpFile;
var lX3Tmpfile:string;
const FILEURL:string='BizDBXTYXKddbhelp.doc';
begin
  lX3Tmpfile:='file:'+fTempHelpFile;
  jsDialogs.ShowMsg(lX3Tmpfile, '');
  //拷贝帮助文件到临时文件
  if sysUtils.fileExists(fTempHelpFile)=false then
  begin
    Business.System.FileSys.FileSystem.copyfile(FILEURL,lX3Tmpfile,'',[TCopyFileOption.cfOverwriteExisting]) ;
  end;
  if sysUtils.fileExists(fTempHelpFile)=false then
    jsDialogs.ShowMsg('没有找到帮助文件。', '')
  else
    Borland.Delphi.ShellAPI.shellexecute(0, 'open', fTempHelpFile, '', '',borland.Delphi.Windows.Sw_ShowNormal);
end;

其中,在formcreate中设置:
  //生成临时文件(以GUID命名,保证不重名)  fTempHelpFile:=jsSysUtils.GetSystemTempPath+Business.System.JSCommon.CreateGUIDStr+'.doc';

运行协同后错误信息(见附件), 远程文件操作"38"的代理类没有注册. 我要如何注册才能下载这个文件到本地?

alang

在复制文件之前，请首先关闭文件系统缓存
  FSMNGR.FileSystemManager.UseLocalCache := False;

dragonsoft

UP下, 希望早上能解决.
网速实在是狠慢... =.=

dragonsoft

procedure TSTANDARDSTYLEMAINFORM.OpenHelpFile;
var lX3Tmpfile:string;
const FILEURL:string='Biz:\DDB\XTYXK\ddbhelp.doc';
begin
  lX3Tmpfile:='file:\'+fTempHelpFile;
// jsDialogs.ShowMsg(lX3Tmpfile, '');
  //拷贝帮助文件到临时文件
  if sysUtils.fileExists(fTempHelpFile)=false then
  begin
   /// **********加了这句,可是问题依旧是那个*****************
    FSMNGR.FileSystemManager.UseLocalCache := False;
    Business.System.FileSys.FileSystem.copyfile(FILEURL,lX3Tmpfile,'',[TCopyFileOption.cfOverwriteExisting]) ;
  end;
  if sysUtils.fileExists(fTempHelpFile)=false then
    jsDialogs.ShowMsg('没有找到帮助文件。', '')
  else
    Borland.Delphi.ShellAPI.shellexecute(0, 'open', fTempHelpFile, '', '',borland.Delphi.Windows.Sw_ShowNormal);
end;

alang

在Studio中运行会出现这个错误，但是签入刷新缓存以后，用客户端运行就没有错误了

dragonsoft

OK
问题解决, 谢谢