您现在的位置:首页 >> 网络通讯 >> Indy >> 内容

Delphi中轻松实现TIdFtp的断点续传

时间:2011/9/3 15:47:21 点击:

  核心提示:1、“先获取服务器文件的大小,把本地文件流指向该位置,然后用Put方法并把Append设置为true。” - 我估计他压根就没实验过,文件还是会直接整个附加在上次传的后面的。本地FileStream的...
1、“先获取服务器文件的大小,把本地文件流指向该位置,然后用Put方法并把Append设置为true。” - 我估计他压根就没实验过,文件还是会直接整个附加在上次传的后面的。本地FileStream的位置指定不起任何作用。

 2、“设法修改idFTP单元,让它支持断点续传。” - 我觉得没把握,切勿轻易修改VCL的自带单元,尤其是暂处于初心者阶段的朋友。不过就算改出来了,以后重装DELPHI后,还得再次覆盖该单元。且对于公司项目来说,如果接你手的人不知道你改了VCL源代码,那后果是很严重的。所以,如果有其它更好的方法,我建议最好不这样做。

 3、“直接用FTP指令进行交互。” - 除非你很熟悉FTP协议了,我觉得一般人可能不会这样的方法。

 转入正题,其实我们只要结合一个MemoryStream,就可以轻松实现断点续传了。代码如下:

 

procedure TFtpThread.Resume(AFileName: string);
const
 SEND_BUFFER = 1048576;  // 一次提交1M的东西
var
 AFileStream: TFileStream;
 AMemStream: TMemoryStream;
 sFileName: string;
begin
 sFileName := ExtractFileName(AFileName);
 AFileStream := TFileStream.Create(AFileName, fmOpenRead);
 try
  // 连接服务器,假设帐号密码那些已经设好了
  FIdFtp.Connect;
  // 获取断点
  AFileStream.Seek(FIdFtp.Size(sFileName), soFromBeginning);
  // 开始断点续传
  AMemoryStream := TMemoryStream.Create;
  try
   while (not Terminated) and (AFileStream.Position < AFileStream.Size) do
   begin
    AMemStream.Clear;
    AMemStream.CopyFrom(AFileStream, Min(SEND_BUFFER, AFileStream.Size - AFileStream.Position));
    FIdFtp.Put(AMemStream, sFileName, true);
   end;
   AMemStream.Free;
  except
   AMemStream.Free;
   raise;
  end;
  // 判断是否上传完毕
  if AFileStream.Position = AFileStream.Size then
   ShowMessage('上传完毕!')
  else
   ShowMessage('下次记得继续续传哦~');
  AFileStream.Free;
 except
  AFileStream.Free;
  ShowMessage('出错啦... - -');
 end;
end;

 代码很简单,不说了,主要就是把续传部分分块读进一个临时的MemoryStream中。这样做不但让Put方法中的Append参数真正发挥其作用,而且线程停止的时候,也可以随时把上传停下来。注意千万不要把续传部分一次过读进MemoryStream里,当你续传一个1G的文件时,可能你立刻就会后悔的哦。

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号