delphi - 如何在 Delphi 7 中使用 ICS THttpCli 实现下载恢复功能？

Question

我想用 HttpCli 实现一个下载管理器，它具有 FtpClient (ICS Components) 中的下载恢复功能。在 FtpClient 中，这是使用RestGetAsync. 我遇到了两个属性ContentRangeBegin和ContentRangeEnd.

我设置了ContentRangeBegin= 192 和ContentRangeEnd500 个字节。我将 URL 设置为“ http://www.google.com ”。我只希望ContentRangeEnd-ContentRangeBegin被下载。但完整的文件已下载。

我将 RcvdStream 设置为 HttpCli1.RcvdStream := TFileStream.Create('c:\a.txt',fmCreate); // 设置为 OpenWrite 模式仅将完整文件附加到现有文件。

a.txt 存在于 C:\ 驱动器中，大小为 197 字节。

还需要做什么？

提前致谢

Answer 1

代码很好。我将 URL 更改为“www.overbyte.be”，文件已部分下载。这是我的代码，可以对其他人有所帮助。

   HttpCli2.URL := 'http://www.overbyte.be';
   HttpCli2.Proxy := 'xxxx';
   HttpCli2.ProxyPort := 'xxxx';

   Try
      HttpCli2.RcvdStream := TFileStream.Create('E:\sanj\t1.txt',fmCreate);

   Except 

   End;
    HttpCli2.ContentRangeBegin := '100';

   HttpCli2.ContentRangeEnd   := '232';
   Try
     HttpCli2.Get;
     httpCli1.RcvdStream.Free;
    httpCli1.RcvdStream := nil;
    ShowMessage('Status code  =' + IntToStr(HttpCli2.StatusCode) + ' , reason -> '   +HttpCli2.ReasonPhrase);


   Except
   End;