Eduardo Jose Bonfante

@Juliomar Marchetti Fiz tudo que sugeriu, mas infelizmente não consegui Obrigado pela ajuda, e fico por aqui com esse assunto (o meu cliente trocou de banco e abortou esse projeto de PIX/Boleto), não tenho mais como testar

V3

Tentei fazer isso e não obtive sucesso. Esse é o retorno que tenho 01/10/24 16:13:44:747 - Autenticando Token... 01/10/24 16:13:44:751 - Comando Enviar: TOAuth 01/10/24 16:13:44:751 - Header Envio:Authorization: Basic ZmQ2Nzg5MGYtNTQxMS00N2VjLThjNDQtZDI4YTJkNWQyZjI2OmZkNjc4OTBmLTU0MTEtNDdlYy04YzQ0LWQyOGEyZDVkMmYyNg== 01/10/24 16:13:44:751 - URL: [POST] https://auth.sicoob.com.br/auth/realms/cooperado/protocol/openid-connect/token 01/10/24 16:13:44:751 - Body Envio (Payload):client_id=************************************&scope=boletos_inclusao boletos_consulta boletos_alteracao&grant_type=client_credentials 01/10/24 16:13:45:021 - Erro: HTTP_Code=400 Erro=Invalid client credentials 01/10/24 16:13:45:021 - Header Resposta:HTTP/1.1 400 Bad Request Cache-Control: no-store X-XSS-Protection: 1; mode=block Pragma: no-cache X-Frame-Options: SAMEORIGIN Referrer-Policy: no-referrer Date: Tue, 01 Oct 2024 19:06:01 GMT Strict-Transport-Security: max-age=16070400; includeSubDomains X-Content-Type-Options: nosniff Content-Type: application/json Content-Length: 80

Bom dia a todos Estou com o mesmo problema relatado no link https://www.projetoacbr.com.br/forum/topic/77351-erro-na-geração-de-token-acbrboleto-api-sicoob/ Erro: 'Expected "{" but found identifier (1, 10)'. function TOAuth.GerarToken: Boolean; var LToken : String; LExpire: TDateTime; begin if (Assigned(FACBrBoleto.OnAntesAutenticar)) then begin FACBrBoleto.OnAntesAutenticar(LToken, LExpire); FToken := LToken; FExpire := LExpire; end; if (Token <> '') and (CompareDateTime(Expire, now) = 1) then //Token ja gerado e ainda válido Result := true else //Converte Basic da Autenticação em Base64 ERRO NESSA LINHA>>>>>> Result := Executar('Basic ' + String(EncodeBase64(AnsiString(ClientID + ':' + ClientSecret)))); if (Assigned(FACBrBoleto.OnDepoisAutenticar)) then FACBrBoleto.OnDepoisAutenticar(Token, Expire); end; Como estou enviando... Boleto.Configuracoes.WebService.Ambiente := taProducao; Boleto.Cedente.CedenteWS.ClientID := vAPI_SICOOB_PROD_CLIENT_ID; Boleto.Cedente.CedenteWS.ClientSecret := vAPI_SICOOB_PROD_CLIENT_ID; Boleto.Cedente.CedenteWS.KeyUser := ''; //Deixar em branco (Access token (Bearer) criado pela solucao ACBr) Boleto.Configuracoes.WebService.ArquivoKEY := vAPI_SICOOB_PROD_ARQ_PRIVADA; //'c:\ChavePrivada.key'; Boleto.Configuracoes.WebService.ArquivoCRT := vAPI_SICOOB_PROD_ARQ_CERTIF; //'c:\ChavePublica.pem'; Boleto.Configuracoes.WebService.ChavePrivada := vAPI_SICOOB_PROD_CHAVEPIX; Boleto.Configuracoes.WebService.ArquivoKEY := vAPI_SICOOB_PROD_ARQ_PRIVADA; //'c:\ChavePrivada.key'; Boleto.Configuracoes.WebService.Certificado := 'E:\Sistemas\****\Certificado\******************.pfx'; Boleto.Configuracoes.WebService.Senha := '*****************'; Algupem pode me ajudar?