我一直在使用
以下代码在2019年3月5日之前有效
procedure TForm2.Button1Click(Sender: TObject);
var URL, SS: string;
AStream : TMemoryStream;
begin
URL := 'https://www.barchart.com/futures/quotes/ESM19';
SS := 'c:\dump.txt';
try
AStream := TMemoryStream.Create;
try
IdHttp.Get(URL, AStream);
AStream.SaveToFile(SS);
finally
SSL.Free;
end;
finally
IdHTTP.Free;
AStream.Free;
end;
end;
我现在得到了错误
Error connecting with SSL.
error: 149094410:SSL routines:ssl3_read_bytes:sslv3 alert
handshake failure
此后,我已经下载了新的OpenSSL 1.0.2r。但是错误仍然存在。我也尝试了SSLVersions属性的所有可能组合,但错误仍然存在。该错误仅在某些站点上发生;并非所有网站。
关于为什么突然开始出现错误的任何建议。我的操作环境没有任何变化。
谢谢。