请教kelichen(颗粒尘): 关于indy9里的Idftp上传文件短点许穿问题,我只有50分了

Question

跪请： kelichen(颗粒尘)，发布一下您修改的Idftp.pas里的put代码，不胜感激
我只有50分了,以后有分就给您。

Answer 1

procedure DownloadFile(AURL,AFileName:string;bResume:boolean);
  var
    tStream:TFileStream;
  begin    
    if FileExists(AFileName) then
      tStream:=TFileStream.Create(AFileName,fmOpenReadWrite)
    else
      tStream:=TFileStream.Create(AFileName,fmCreate);
    
    if bResume then
    begin    
      HttpFile.Request.ContentRangeStart := tStream.Size - 1;
      tStream.Position := tStream.Size - 1; //移动到最后继续下载
      HttpFile.Head(aURL);
      HttpFile.Request.ContentRangeEnd := HttpFile.Response.ContentLength;
    end
    else
    begin  
      HttpFile.Request.ContentRangeStart := 0;
    end;
    
    try
      HTTPFile.Get(AURL,tStream);
    finally
      tStream.Free;
    end;   
  end;
这是我写的http断点续传的方法，希望对楼主有所帮助。有问题可以给我发短信。

Answer 2

楼上，我想要的是上传代码，不是下载代码，不过还是很感谢的您的热心，若有TIdFtp上传的断点续传代码，还请贴一下