如题。。能不能给下思路

解决方案 »

  1.   


    with IdFTP1.DirectoryListing do  //目录列表
      begin
        for i:=0 to Count-1 do
        begin
          if AbortTransfer then  //中止传输
            Break;
          if Items[i].ItemType = ditFile then //如果是文件
          begin
              Name := Items[i].FileName;
              if Name <> 'list.ini' then  //无需下载
              begin
                transFileName := Name;
                Inc(k);
                BytesToTransfer := IdFTP1.Size(Name);
                //IdFTP1.Get(Name,'E:\MySoftTest\MyUpdateTest\down\'+Name,False,True); //断点续传
                ShowState(transFileName,'下载中');
                try
                  IdFTP1.Get(Name ,ExtractFilePath(ParamStr(0)) + Name ,True); //重新下载
                except
                  MessageBox(handle, 'FTP网络连接异常中断,请尝试重新更新!', '提示信息', MB_OK or MB_ICONINFORMATION );
                  configIsOk :=False;
                  IdFTP1.Quit;
                  IdFTP1.Disconnect;
                end;
                ShowState(transFileName,'√');
              end;
          end;
        end;
      end;