Delphi Indy: Внезапно обнаруживается 14094410: процедуры SSL: ssl3_read_bytes: сбой квитирования оповещения sslv3 - PullRequest
2 голосов
/ 20 марта 2019

Я использую

Следующий код работал до 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, но ошибка не исчезла. Ошибка возникает только на определенных сайтах, а не на всех.

Любые предложения, почемувнезапно начала появляться ошибка. В моей операционной среде не было никаких изменений.

Спасибо.

...