在一个空白的 Delphi 11 项目中,我放置了一个按钮和一个 TIdHTTP 组件。
该按钮尝试获取 .txt 文件。
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
IdHTTPGetProgramUpdateFile.Get('https://www.bookup.com/cowupdates/build129.txt',
Stream);
except
on E: Exception do
begin
MessageDlg(E.Message,
TMsgDlgType.mtInformation,
[TMsgDlgBtn.mbOK],
E.HelpContext);
end;
end;
Stream.SaveToFile('downloaded.txt');
Stream.Free;
end;
如果 Windows 项目使用 https 请求 URL,则错误为“无法加载 SSL 库”。
如果 Windows 或 Macintosh 上的项目使用 http 请求 URL,则错误是“301 Moved Permanently”。(该文件在网站上。)
如果项目在带有 https 的 Macintosh 上运行,那么 PAServer 会报告项目“正在以不安全的方式加载 libcrypto”。
IdSSLOpenSSL.pas
在 Windows 上运行时,该项目会在源代码注释中引发异常:
这里的异常可能意味着您使用了错误版本的 openssl 库。请参阅此文件顶部的注释。
文件顶部的评论对我没有用。
我正在尝试从网站下载文本文件的内容,但我对互联网协议知之甚少。我错过了什么?