delphi - TDownloadURL 无法从 HTTPS 下载

Question

我一直在尝试通过 TDownloadURL 类创建 (TFileStream) PDF，但在从 URL 获取文件/流时确实遇到了麻烦，特别是如果 URL 是 HTTPS。

我不确定我是否清楚，但我将发布一个片段，以便它可能有助于理解:

implementation
var pdfStreamed: TDownloadUrl;
var fileStream : TFileStream;
  procedure generateStream;
  begin
    pdfStreamed:= TDownLoadURL.Create(nil);
    with pdfStreamed do
      begin
        URL := 'https://farm9.staticflickr.com/8327/8106108098_08e298f0d9_b.jpg'; //stream;
        FileName := 'D:\';
        ExecuteTarget(nil);
//        Execute;
      end;
  end;

HTTP 和 HTTPS 中都存在 URL 属性!但它给我一个错误:异常类异常，消息为“下载 URL 时出错:https://farm9.staticflickr.com/8327/8106108098_08e298f0d9_b.jpg” '.

能指出我做错了什么吗？我对此进行了很多搜索，但找不到任何有效且简单的东西!

非常感谢!

Answer 1

TDownloadURL 只是 Microsoft URLDownloadToFile() 的一个薄包装。功能，支持HTTPS就好了。

不幸的是，

TDownloadURL 没有告诉您为什么 URLDownloadToFile() 失败。但是，我可以看到您将 FileName 属性设置为文件夹路径，但您需要将其设置为要创建的目标文件的完整路径和文件名以保存下载的数据。 IOW，改变这个:

FileName := 'D:\';

对此:

FileName := 'D:\8106108098_08e298f0d9_b.jpg';