小7的大店铺【淘宝店】 游戏引擎剖析-全篇 公积金相关帖子汇总 魅族M8SDK学习系列不断更新中

[Delphi] Indy实现FTP上传下载，支持断点续传

[ 3677 查看 / 0 回复 ]

返回列表
发新话题 回复该主题
5207
头像

  • 皇帝
  • 1983-12-1
  • 1523
  • 1992
  • 94
  • 3656.8 M
元老奖章人格奖章人才奖章劳动奖章勇士奖章雅月奖章烈日奖章水神奖章老马奖章荣誉奖章
2008-12-17 00:25 |只看楼主 发表者
t T
这两天一直在研究Indy的TIdFTP，用来实现FTP操作。 完整的代码请到此下载：http://www.mini188.com/showtopic-855.aspx 因为是Delphi7自带的，好像有许多 BUG，使用时也确实是这样，总是有些奇怪的问题出现。但简单的功能还是实现了。使用他的Put和Get方法可以完成基本的操作。 简单代码如下： 下载代码
  1. //下载，支持断点续传
  2. procedure TForm1.Button5Click(Sender: TObject);
  3. var
  4.   stream: TFileStream;
  5.   sDownToFileName: string;
  6.   bIsDir: Boolean;
  7.   sDir: string;
  8. begin
  9.   if ListView1.Selected = nil then Exit;
  10.   if not IdFTP1.Connected then
  11.     raise Exception.Create('未连接FTP服务器');

  13.   if SaveDialog1.Execute then
  14.   begin
  15.     sDownToFileName := SaveDialog1.FileName;
  16.     if FileExists(sDownToFileName) then
  17.       stream := TFileStream.Create(sDownToFileName, fmOpenWrite)
  18.     else
  19.       stream := TFileStream.Create(sDownToFileName, fmCreate);
  20.     try
  21.       if ListView1.Items.Count > 0 then //ListView1是从FTP服务器取的当前目录列表
  22.       begin
  23.         sDir := GetNameFromDirLine(FFtpDirList.Strings[ListView1.ItemIndex], bIsDir);//取得当前选中的是否为文件
  24.         if not bIsDir then
  25.         begin
  26.           pb1.Max := IdFTP1.Size(sDir);//pb1是ProgressBar控件，进度条
  27.           pb1.Position := stream.Size;
  28.           stream.Position := stream.Size;//如果本地文件存在将位置移动到尾部
  29.           IdFTP1.Get(sDir, stream, True);//这个不就说了 吧，最后一个参数使用True就表明是支续传
  30.           ChageDir(IdFTP1.RetrieveCurrentDir);
  31.         end;
  32.       end;
  33.     finally
  34.       FreeAndNil(stream);
  35.     end;
  36.   end;
  37. end;

  39. function TForm1.GetNameFromDirLine(Line: string; var IsDirectory: Boolean): string;
  40. var
  41.   i: Integer;
  42.   DosListing: Boolean;
  43. begin
  44.   IsDirectory := Line[1] = 'd';
  45.   DosListing := false;
  46.   for i := 0 to 7 do begin
  47.     if (i = 2) and not IsDirectory then
  48.     begin
  49.       //IsDirectory := Copy(Line, 1, Pos(' ', Line) - 1) = '<DIR>';
  50.       IsDirectory := Copy(Line, 1, Pos(' ', Line) - 1) = '<DIR>';
  51.       if not IsDirectory then
  52.         DosListing := Line[1] in ['0'..'9']
  53.       else
  54.         DosListing := true;
  55.     end;
  56.     Delete(Line, 1, Pos(' ', Line));
  57.     While Line[1] = ' ' do Delete(Line, 1, 1);
  58.     if DosListing and (i = 2) then break;
  59.   end;
  60.   Result := Line;
  61. end;
复制代码
上传的代码
  1. procedure TForm1.PutFile(const AFileName: string);
  2. var
  3.   mm: TFileStream;
  4.   iFileSize: Int64;
  5. begin
  6.   mm := TFileStream.Create(AFileName, fmOpenRead);
  7.   try
  8.     pb1.Max := mm.Size;
  9.     iFileSize := IdFTP1.Size(ExtractFileName(AFileName));
  10.     if iFileSize <> -1 then// 如果不是-1表明服务器上有同名文件，则需要续传
  11.     begin
  12.       pb1.Position := iFileSize;
  13.       mm.Position := iFileSize;
  14.       IdFTP1.Quote('REST ' + FloatToStr(iFileSize));
  15.       IdFTP1.Put(mm, ExtractFileName(AFileName), True);//最后一个参数就是打开Append，这样可以不重新上传文件了
  16.     end
  17.     else
  18.       IdFTP1.Put(mm, ExtractFileName(AFileName));

  20.     ChageDir(IdFTP1.RetrieveCurrentDir);
  21.   finally
  22.     FreeAndNil(mm);
  23.   end;
  24. end;
复制代码
上面的代码只是简单的实现了上传和下载，在测试过程中下载比较顺利，但是上传时如果中途中断了操作会报一个异常。必须断开连接重新连接上后再传就可以了。 在Delphi2009中也测试了一下新版本的Indy，发现有个更郁闷的问题，IdFTP.List读取过来的中文都是乱码。也不知道是为什么，看代码应该是字符编码问题，但不知道如何解决。更新了字符编码也无用。
最后编辑5207 最后编辑于 2008-12-17 19:53:33
本主题由 皇帝 5207 于 2009-7-3 22:59:21 执行 主题分类 操作
分享 转发
相信与不相信都是矛盾的.  5207宣!
欢迎您来到迷你论坛
TOP
返回列表
上一主题 | 下一主题