Я использую
Следующий код работал до 5 марта 2019 года
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, но ошибка не исчезла. Ошибка возникает только на определенных сайтах, а не на всех.
Любые предложения, почемувнезапно начала появляться ошибка. В моей операционной среде не было никаких изменений.
Спасибо.