Delphi中下载图片的问题

Question

我正在编写一个图像下载软件。但我在下载一些图像时遇到问题，例如：

https://books.google.com/books/content?id=8_pCYmpCu6UC&pg=PT4&img=1&zoom=3&hl=en&bul=1&sig=ACfU3U10JF_yd0n7gvCllBts88O_ufTWxA&w=1280

您可以在浏览器中查看（你应该看到一个标题为1.Introduction的页面。如果你看不到，这与你的区域限制有关。使用美国代理可以解决这个问题）。

我在Win 10中使用Delphi 10.3 update 2。我的项目是32版本。

1-我使用 TIdHttp 下载文件，但我得到了另一个图像（包含以下内容的图像：“图像不可用”）。

procedure DownloadeImage(FURL, FFileName :string);
var
  HTTPClient: TIdHTTP;
  FileStream: TFileStream;
begin
  try
    HTTPClient := TIdHTTP.Create;
    HTTPClient.HandleRedirects := True;
    HTTPClient.AllowCookies := True;
    //HTTPClient.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    //(HTTPClient.IOHandler as TIdOpenSSLIOHandlerClient).Options.VerifyServerCertificate := False;
    HTTPClient.Request.UserAgent := 'Mozilla/5.0'; //'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
    HTTPClient.Request.Connection := 'keep-alive';
    try
      FileStream := TFileStream.Create(FFileName, fmCreate);
      try
        HTTPClient.Get(FURL, FileStream); //(TIdURI.URLEncode(FURL), FileStream);
      finally
        FileStream.Free;
      end;
    finally
      HTTPClient.Free;
    end;
  except
    // error handling ignored for this example
  end;
end;

2-使用 TNetHttpClient 时的结果相同

procedure DownloadeImage(FURL, FFileName :string);
var
  HTTPClient: TNetHTTPClient;
  FileStream: TFileStream;
begin
  try
    HTTPClient := TNetHTTPClient.Create(nil);
    HTTPClient.HandleRedirects := True;
    HTTPClient.AllowCookies := True;
    //HTTPClient.SecureProtocols := [THTTPSecureProtocol.SSL2, THTTPSecureProtocol.SSL3, THTTPSecureProtocol.TLS1, //THTTPSecureProtocol.TLS11, THTTPSecureProtocol.TLS12];
    //HTTPClient.Accept := 'image/png, image/gif, image/jpg, image/jpeg, image/tif, image/tiff, image/bmp, //image/x-bmp;q=0.9,*/*;q=0.8';
    HTTPClient.UserAgent := 'Mozilla/5.0';
    try
      FileStream := TFileStream.Create(FFileName, fmCreate);
      try
        HTTPClient.Get(FURL, FileStream); //(TIdURI.URLEncode(FURL), FileStream);
      finally
        FileStream.Free;
      end;
    finally
      HTTPClient.Free;
    end;
  except
    // error handling ignored for this example
  end;
end;

3-但是我使用以下代码达到了目标：

URLMon.URLDownloadToFile(nil, PChar(FURL), PChar(FFileName), 0, nil)

为什么？！！！ 我认为这与 TIdhttp 和 TNetHttpClient 的某些默认值或某些 SSL 协议有关。

有人可以指导我吗？

Answer 1

根据AmigoJack的评论：

这与cookies有关。
UrlMon 默认支持 cookies，但对于 TIdHttp 我们应该强制它使用这些 cookies。