Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1226839
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2009-03-02 11:35:52



大家看一下,我用WINDOWS   FTP服务没有问题,而用Serv-U时,在LIST时,总报一个导常.将FTP设置成APassive也不行啊,高手帮忙.  
  function   TCompareFinance.GetDirList:   Boolean;  
  var   i:integer;  
          tempList:TStringS;  
  begin  
      result   :=   true;  
      tempList:=TStringList.Create;  
      try  
          try  
              DirList.Clear;  
              GetFTPInfo;       //得到FTP信息,如IP,PORT,USER等  
              if   not   ftp.Connected   then  
                  ftp.Connect(true,   5000);  
              ftp.Passive   :=   true;  
              ftp.List(tempList,'*.*',false);  
              for   i:=0   to   tempList.Count-1   do  
                  try  
                      ftp.ChangeDir(tempList.Strings[i]);  
                      ftp.ChangeDirUp;  
                      DirList.Add(tempList.Strings[i]);  
                  except  
                  end;  
          except  
              result:=false;  
          end;  
      finally  
          tempList.Free;  
          ftp.Disconnect;  
      end;  
  end;

我用Serv-U,好像List(*.*)没问题。



--------------------------
新闻:上海最快3月底推TD上网本
导航:博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看
阅读(437) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~