Obter token de API Error connecting with SSL. error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number

[johnbh3]

function GetAccessToken: string;
var
  IdHTTP: TIdHTTP;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  Params: TStringList;
  AccessTokenResponse: string;
begin
  Result := '';
  IdHTTP := TIdHTTP.Create(nil);
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
  Params := TStringList.Create;
  try
    // Configurando o gerenciador SSL para permitir conexões seguras (HTTPS)
    IdHTTP.IOHandler := SSLHandler;

    // Configurando a versão do protocolo SSL/TLS para TLSv1.1
    SSLHandler.SSLOptions.Method := sslvTLSv1_2;

    // Habilitar suporte ao protocolo TLSv1.1 e TLSv1.2
    SSLHandler.SSLOptions.SSLVersions := [sslvTLSv1_2];

    // Configurando o cabeçalho da solicitação
    IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
    IdHTTP.Request.UserAgent := 'PostmanRuntime/7.32.3';
    IdHTTP.Request.Accept := '*/*';
    IdHTTP.Request.AcceptEncoding := 'gzip, deflate, br';
    IdHTTP.Request.Connection := 'keep-alive';

    // Configurando a autenticação básica (Basic Auth)
    IdHTTP.Request.BasicAuthentication := True;
    IdHTTP.Request.Username := '123';
    IdHTTP.Request.Password := '123';

    // Parâmetros do corpo da solicitação
    Params.Add('grant_type=client_credentials');
    Params.Add('scope=pos.api agreements.api b2bplatform.api accounts.api wallet.api');

    try
      // Realizando a solicitação POST com os parâmetros no corpo
      AccessTokenResponse := IdHTTP.Post('https://utldoparceiro', Params);

      // Processando a resposta...
      // (código de processamento da resposta permanece o mesmo)

    except
      on E: Exception do
      begin
        ShowMessage(E.Message);
      end;
    end;
  finally
    Params.Free;
    IdHTTP.Free;
  end;
end;

no postman retorna sem problemas

no delphi Obter token de API Error connecting with SSL. error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number

[Juliomar Marchetti]

algo com dll do openssl ou atualização do windows

tente desabilitar SSL e deixar só TLS

[Renato Rubinho]

Copie as dlls dos da OpenSSL para a pasta da aplicação seguindo a arquitetura da aplicação.

../trunk2/DLLs/OpenSSL/1.1.1.10

[johnbh3]

1 hora atrás, Renato Rubinho disse:

Copie as dlls dos da OpenSSL para a pasta da aplicação seguindo a arquitetura da aplicação.

../trunk2/DLLs/OpenSSL/1.1.1.10

nesta para tem x86 e 64 - como a aplicação e 32. Até fiz com as duas 
Copei as duas unicas dll dela: libcrypto-1_1.dll e libssl-1_1.dll junto do exe
Mesmo assim erro permanece :

Citar

Error connecting with SSL.
error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number

desabilitar SSL e deixar só TLS? como exatamente? 

 

Estou usando o delphi xe7
Baixei o delphi novo o mesmo codigo funciona

Editado 27 Julho, 2023 por johnbh3
erro

[Renato Rubinho]

1 hora atrás, johnbh3 disse:

nesta para tem x86 e 64 - como a aplicação e 32

Então use apenas as x86 mesmo 

Tenta também instalar está versão de runtimes do c++

https://github.com/abbodi1406/vcredist/releases

1 hora atrás, johnbh3 disse:

Estou usando o delphi xe7
Baixei o delphi novo o mesmo codigo funciona

Pode ser a versão do Indy que está fazendo diferença.