在不重新启动下载的情况下恢复 EIdSocketError 连接 - Delphi

Question

美好的一天……

我下载了一个程序，它使用except on E: EIdSocketError the begin 生成错误 Socket'm ...他向我展示了生成的错误...但我想解决这个错误...因为它与我的站点断开连接正在下载，他为程序，我无法返回任何下载...除非您关闭程序并重新打开...

我怎么会得到这个错误，让他尝试重置与站点的新连接，而无需重新启动程序......所以我回去下载最新下载的文件......因为套接字错误有重新启动程序并返回下载零 ... 1mb 文件很小，但下载量约为 200：

on E: EIdSocketError do begin
                     ShowMessage('Socket 2');

                     // +++++------
                     FreeAndNil(fileDownload);
                     fileDownload := TFileStream.Create(local_exe+'media_'+IntToStr(down_num)+'.mp4', fmCreate);
                     IdHTTP.Get(montarURL, fileDownload);
                     Memo1.Lines.Add(formatdatetime('dd/mm/yyyy',now)+' '+formatdatetime ('hh:mm:ss',now)+' Lista '+IntToStr(numero_tentativa_loop_um)+'. Connection restored.');
                 end;

Answer 1

EIdSocketError 就像它的名字所说的那样——发生了一个套接字错误。在没有看到所涉及的实际套接字错误代码的情况下，通常您可以做的只是Disconnect() 套接字、Clear、IOHandler.InputBuffer 和重新Connect() 并从中断的地方继续下载（如果可能）或重新从头开始下载。

对于 HTTP，如果正在下载的资源接受 Range: bytes=... 请求标头（请参阅 TIdHTTP.Request.Range 属性），例如它报告了 Accept-Ranges: bytes 响应标头（请参阅 TIdHTTP.Response.AcceptRanges 属性），您可以恢复下载) 在较早的下载尝试中。详情请见RFC 2616 Section 14.35。

更新：例如：

try
  IdHTTP.Get(montarURL, fileDownload);
except
  on E: EIdSocketError do begin
    IdHTTP.Disconnect;
    if IdHTTP.IOHandler <> nil then IdHTTP.IOHandler.InputBuffer.Clear;
    ...
    if IdHTTP.Response.AcceptRanges = 'bytes' then begin
      IdHTTP.Request.Range := IntToStr(fileDownload.Size) + '-';
    end else begin
      fileDownload.Size := 0;
    end;
    IdHTTP.Get(montarURL, fileDownload);
    ...
  end;
end;

Answer 2

Socket Error #10054 必须改正，因为是他出现的。。。不知道会不会和其他人一起使用：

RemoveComponent(IdHTTP);
IdHTTP.Free;
IdHTTP := Nil;
IdHTTP := TIdHTTP.Create(Self);

ATT MT