Delphi EIdOSSLUnderlyingCryptoError 异常 - SSL3_GET_RECORD 错误的版本号

Question

我尝试使用TRESTClient 连接到使用 TLS 1.2 的 HTTPS Web 服务。但是发送multipart/form-data 没有运气。

所以现在我正在尝试使用 Indy。我收到了这个“错误的版本号”错误。

我认为代码没有任何问题，因为它与 HTTP 一起使用。

可能我的 Delphi 缺少一些东西。我应该安装什么以及如何安装？

procedure TForm10.Button2Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  RequestBody: TStream;
  ResponseBody: string;
  myssl: TIdSSLIOHandlerSocketOpenSSL;
  Input: TIdMultipartFormDataStream;
begin
  ResponseBody := '';
  try
    try
      HTTP := TIdHTTP.Create;
      try
        Input := TIdMultipartFormDataStream.Create;
        try
          Input.Clear;
          Input.AddFormField('Email', 'xx@xx.com.tr');
          Input.AddFormField('Password', 'xx');

          myssl := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
          HTTP.IOHandler := myssl;
          myssl.SSLOptions.Mode := sslmUnassigned;
          myssl.SSLOptions.Method := sslvTLSv1_2;
          myssl.SSLOptions.SSLVersions := [sslvTLSv1_2];
          HTTP.HTTPOptions := [hoForceEncodeParams];

          HTTP.Request.CustomHeaders.FoldLines := False;
          ResponseBody := HTTP.Post('https://xxx.com.tr/api/Mobile/MobileLoginControl', Input);

        finally
          Input.Free;
        end;
      finally
        HTTP.Free;
      end;
    finally
    end;
  except
    ResponseBody := '"-20"';
  end;
end;

Answer 1

代码很好，尽管您在SSLIOHandler 上启用仅 TLS 1.2。也许有问题的网站不支持 TLS 1.2？尝试同时启用 TLS 1.0 和 1.1：

myssl.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];

并且根本不要设置SSLOptions.Method。设置SSLVersions 会更新Method，反之亦然。所以设置一个或另一个，而不是两个。