indy - TIdHTTP 10.6.2 エラー: ソケット エラー #11001 & #10051

Question

私は本当にあなたの助けが必要です。

C++ Builder XE8 で Indy 10.6.2.5263 (XE8 Update 1 に付属) の TIdHTTP を使用して、小さなダウンロード マネージャー アプリケーションを構築しようとしています。

Socket Error #11001 - Host not foundしかし、ターゲットのダウンロード アドレスが の場合、常にエラーが発生しますhttp://www.rarlab.com/rar/wrar53b1.exe。また、Socket Error #10051 - Network is unreachableダウンロードアドレスが に変更された場合http://5.135.104.98/rar/wrar53b1.exe。

インストールされている他のすべてのアプリケーション (Firefox、YM、 IDMなど) は通常インターネットに接続されているため、常にこれらのエラーが発生する理由がわかりませんでした。

次の簡単なコードを使用しています。

UNIT1.CPP

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DownloadClick(TObject *Sender)
{
   String FileName;
   String IB = InputBox("Download Manager", "Address", "");
   TFileStream* FStream = new TFileStream(FileName, fmCreate | fmOpenWrite);
    try
       {
        IdHTTP->ConnectTimeout = 1000;
        IdHTTP->ReadTimeout    = 1000;
        IdHTTP->Get(IB, FStream);
        ShowMessage("Download Complete");
       }
  __finally
     {
       delete FStream;
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdHTTPWork(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCount)
{
  if (ProgressBar->Max > 0)
  {
    DownloadStatus->Caption = IntToStr(AWorkCount) + "bytes of" + IntToStr(ProgressBar->Max) + "bytes.";
    ProgressBar->Position = AWorkCount;
  }
  else
    DownloadStatus->Caption = IntToStr(AWorkCount) + "bytes.";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdHTTPWorkBegin(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCountMax)
{
  ProgressBar->Position = 0;
  ProgressBar->Max      = AWorkCountMax;
  if (AWorkCountMax > 0)
  DownloadStatus->Caption = "Transfering: " + IntToStr(AWorkCountMax);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdHTTPWorkEnd(TObject *ASender, TWorkMode AWorkMode)
{
 if (AWorkMode != wmRead)
   return;

 DownloadStatus->Caption = "Done";
 ProgressBar->Position = 0;
}
//---------------------------------------------------------------------------