我尝试使用idHTTP组件下载文件,但它无法正常工作。 我将OpenSSL DDL(libeay32& ssleay32.dll)包含在我的项目文件夹中,但它无效。
我将idHTTP组件与TidSSLIOHandlerSocketOpenSSL IOHandler和SSL版本SSLv3一起使用。
使用此代码,我收到一条EIdHTTPProtocolException消息" HTTP / 1.1 403 Forbidden"。
为什么我会收到此错误,如何让下载工作?
procedure TForm_Main.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
inherited;
fs := TFileStream.Create('E:\abc.html', fmCreate or fmShareDenyWrite);
try
LoadOpenSSLLibrary;
IdHTTP1.Get('https://www.testcloud.de/index.html', fs);
finally
fs.Free;
end;
end;