附件下载问题**

ccseasy

点击打开附件时，能否显示附件正在下载的过程，但是最后就是不能打来此附件，请看图片，请给与提示，谢谢！

打开附件的代码如下：
sLocalFile:=Tstringlist.Create;
   sServerFile:=Tstringlist.Create;

   sFileName:=DataSetBroker1.DataSet.fieldbyname('fa_file_path').AsString;
   if sFileName='' then exit;
   if sFileName='' then exit;
   sTempPath:=OAZYJ.TOAZYJ.getTempDir;
   if sTempPath='' then sTempPath:='c:ccse';
   sLocalFileName:= sFileName;
   inum:=StringUtils.Pos('',sLocalFileName);
   while inum>0 do
   begin
     sLocalFileName:=StringUtils.copy(sLocalFileName,inum+1,Length(sLocalFileName) - inum);
     inum:=StringUtils.Pos('',sLocalFileName);
   end ;
   try
     SysUtils.Createdir(sTempPath)
   except
   end;
   sTempPath:=sTempPath+'公文管理\;
   try
     SysUtils.Createdir(sTempPath);
   except
   end;
   sLocalFileName:=sTempPath+sLocalFileName;
   //if SysUtils.FileExists(sLocalFileName)=true then
   //begin
   //  dialogs.showmessage('存在本地文件!');
   //end;
   sLocalFile.add(sLocalFileName);
   sServerFile.Add(sFileName);
   ftpStr:=OAZYJ.TOAZYJ.GetFtpIpAddress;
   ftpPort:=Sysutils.StrToInt(OAZYJ.TOAZYJ.GetFtpPort);
   ftpPwd:= OAZYJ.TOAZYJ.GetFtpUserPass;
   ftpUser:=OAZYJ.TOAZYJ.GetFtpUserName;

   if ccseasy.justftp.UpDownFile(self.handle,ftpStr,ftpUser,ftpPwd,ftpPort,sServerFile,sLocalFile,'2')=1 then
   begin
     Borland.Delphi.ShellAPI.ShellExecute(0, 'open', sLocalFileName, '', '', Borland.Delphi.Windows.SW_SHOW);
   end;
   sLocalFile.Free;
   sServerFile.Free;
   close;

jiahaiming

不太明白楼主的意思，这个代码应该是你自己写的吧，是有问题错误吗？

ccseasy

从图片上看，我有三个附件，但是不管打开哪个附件，都打不开，以前一点问题没有的，现在就不能打开了。请问是怎么回事？

jiahaiming

哦，楼主调试运行一下，看看有没有什么异常。
有没有执行Borland.Delphi.ShellAPI.ShellExecute(0, 'open', sLocalFileName, '', '', Borland.Delphi.Windows.SW_SHOW);
文件是否被成功下载。

lixy

你要调试下，看看报的什么异常，或者看看各个变量是否正常。

ccseasy

不报异常，是不是缺东西啊？

lixy

如果不保异常，你调试看看各个变量的值，然后用ftp工具，或者ie去访问你们的ftp，手工打开这些文件，看看是否正常。如果正常，再看看变量里面目标路径是否正常，看看是否下载到了指定目录。如果下载正确，用4楼方法试验下。