TDownloadURL无法从HTTPS下载

Arm*_*ire 6 delphi https pascal tfilestream delphi-xe2

我一直在尝试通过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;
Run Code Online (Sandbox Code Playgroud)

URL属性在HTTP中同样存在于HTTPS中!但它会抛出一个错误:异常类异常消息'下载URL时出错:https://farm9.staticflickr.com/8327/8106108098_08e298f0d9_b.jpg '.

可以指出我做错了什么?我为此搜索了很多,但找不到任何有效和简单的东西!

非常感谢!

Rem*_*eau 6

TDownloadURL只是微软URLDownloadToFile()功能的一个薄薄的包装,它支持HTTPS就好了.

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

FileName := 'D:\';
Run Code Online (Sandbox Code Playgroud)

对此:

FileName := 'D:\8106108098_08e298f0d9_b.jpg';
Run Code Online (Sandbox Code Playgroud)