idFTP多线程下载并发问题，并发无法超过2个，谢谢高手指点。

2015-02-11 04:12:25 398 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用delphi实现ftp多线程下载源代码(转载) //接收文件 function TForm1.GetURLFileName(aURL: string): string; var i: integer; s: string; begin //返回下载地址的文件名 s := aURL; i := Pos(/, s); while i begin Delete(s, 1, i); i := Pos(/, s); end; Result := 阅读详情

服务器用的IIS/Serv-U，默认配置，用Indy FTP开发的客户端，多线下载文件（每个线程一个FTP连接），发现下载时并发数不能超过2个（其它处于等待状态），如果开多个进程，也是如此，累计的下载线程无法超过2个，怀疑是FTP服务器的问题，但没找到解决问题的有效办法，特来求教。
另外，哪位大侠有FTP方面的资料或示例代码，烦请不吝赐教，感谢！

...全文

delphi中利用Indy的TIdFtp控件实现FTP协议现在很多应用都需要上传与下载大型文件，通过HTTP方式上传大文件有一定的局限性。幸好FTP作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载，并且可以完美地实现续传。就拿我写的电影服务器管理端程序来说，各种方案比较后，发现使用FTP可以完美地实现要求。但是要通过WinSocket库实现FTP比较麻烦，幸好有Indy--一个包装了大多数网络协议的组件包。通过Indy，阅读详情

yuetianbao

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

sxper 2015-03-06

打赏
举报

procedure Tmainform.download ;
var
  name:string;
  tt :TIdFTPListItems; //ftp列表
  t : TIdFTPListItem;  //ftp单条记录
  j,f:Integer;
  ls:TStringList ;
begin


    if idftp.Connected =False then btn1.Click;
        //idftp.ChangeDir('/Ext');
        ls := TStringList.Create;
      try
        idftp.ChangeDir('/Ext');
        idftp.ChangeDir(ip.Text);
        idftp.ChangeDir(ftp_date.Text);
        edt1.Text := IdFTP.RetrieveCurrentDir;
        idftp.List(ls);  //这句很关键啊
        f:=idftp.DirectoryListing.Count-1 ;
        {
        if Trim(ip.Text)='255.255.8.80' then
        begin
        ShowMessage(IntToStr(f));
        end;
              on e: Exception do
      Begin
        log4error(PChar(E.Message)+'_连接超时');
      End;
        }
      except
        on e: Exception do
        begin
        log4error(PChar(E.Message)+'_改变目录错误');
        mmo1.Lines.Add(PChar(E.Message));
        mmo1.Lines.Add(ip.Text+'_'+ftp_date.Text+'无数据');

        Exit;//没有会出现list index out of bounds 错误
        f:=0;
        end;

      end;

      //IdFTP.TransferType := ftBinary;
      tt:=IdFTP.directorylisting;
      forcedirectories ('.\'+ip.text+'\'+ftp_date.Text);
      for j :=0  to f   do
      begin
        t:=tt.items[j];
        if (IdFTP.DirectoryListing.Items[j].ItemType = ditfile) and (f>0) then //如果是文件
        begin
          if Length(t.FileName)<11   then name :='data.txt'
          else name:=t.FileName;
          try
           IdFTP.Get(t.FileName ,ip.text+'\'+ftp_date.Text+'\'+name,True,False);
          except

              on e: Exception do
              Begin
                mmo1.Lines.Add(PChar(E.Message)+name);
                log4error(PChar(E.Message)+'_下载失败');
                mmo1.Lines.Add(name+'_'+'下载失败');
              End;



        end;


      end;
    //mmo1.Lines.Add(ip.text+'_'+ftp_date.Text+'下载完毕');


      end;
       //下载完毕当前目录后退出到根目录
      mmo2.Lines.Add(ip.text+'_'+ftp_date.Text+'='+inttostr(f)+'下载完毕');
      idftp.ChangeDir('../');
      idftp.ChangeDir('../');
      idftp.ChangeDir('../');
end;

lyhoo163 2015-03-02

打赏
举报

这是服务器的问题，共享版连接线程有限制。

oushengfen 2015-03-02

打赏
举报

没有遇到个此问题，你换一个FTP服务器

idFTP多线程下载并发问题，并发无法超过2个，谢谢高手指点。

相关推荐