delphi – 动态制作indy使用TLSv1.2

GitHub已停止支持TLS v1.0和v1.1( https://githubengineering.com/crypto-deprecation-notice/),因此我的代码不再想从中下载.我已经检查了,似乎我需要让Indy使用TLS v1.2,如下所述： Using Indy 10 IdHTTP with TLS 1.2.

我已经将OpenSSL DLL更新到http://indy.fulgan.com/SSL/的最新版本,并且Indy似乎加载它们很好,但我仍然收到错误.

我得到的错误：

如果我在工作线程中动态创建Indy对象,如何让Indy使用TLS v1.2？

现行代码：

constructor TDownload.Create(CreateSuspended: Boolean; aurl,afilename: string);
begin
  inherited Create(CreateSuspended);
  httpclient := TIdHTTP.Create(nil);
  httpclient.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML,like Gecko) Chrome/61.0.3163.100 Safari/537.36';
  httpclient.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(httpclient);
  httpclient.HandleRedirects := True;
  httpclient.OnWorkBegin := idhttp1WorkBegin;
  httpclient.OnWork := idhttp1Work;
  url := aurl;
  filename := afilename;
end;

TIdSSLIOHandlerSocketOpenSSL(httpclient.IOHandler).SSLOptions.SSLVersions := [sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2];