AcbrPSP Shipay autenticando a cada requisição

[gilfgfilho]

Boa tarde,

Finalizei a implementação do PIX utilizando o acbrpspshipay e acbrpixcd porém quando fui fazer a homologaçao o pessoal da shipay comentou que a autenticação estava sendo feita a cada requisição o que não pode, por esse motivo minha homologação ficou pendente.

Eu coloquei um breakpoint na linha 600 do ACBrPIXPSPShipay, 

  Wallets.Clear;
  if (ResultCode = HTTP_OK) then
  begin
    js := TACBrJSONObject.Parse(RespostaHttp);
    try
      fpToken := js.AsString['access_token'];
      fpRefreshToken := js.AsString['refresh_token'];
    finally
      js.Free;
    end;

    if (Trim(fpToken) = '') then
      DispararExcecao(EACBrPixHttpException.Create(ACBrStr(sErroAutenticacao)));

    fpValidadeToken := IncHour(Now, 24);
    fpAutenticado := True;     coloquei o breakpoint aqui

    GetWallets;
    if (fWallets.Count < 1) then
      DispararExcecao(EACBrPixHttpException.Create(sErrNoWallet));
  end
  else
    DispararExcecao(EACBrPixHttpException.CreateFmt( sErroHttp,
       [Http.ResultCode, ChttpMethodPOST, AURL]));

 

 

Porém a cada requisição o sistema para nessa linha.

Coloquei o arquivo do log em anexo.

 

Obrigado

 

 

 

 

logpixacbr.rar

[gilfgfilho]

14 minutos atrás, gilfgfilho disse:

Boa tarde,

Finalizei a implementação do PIX utilizando o acbrpspshipay e acbrpixcd porém quando fui fazer a homologaçao o pessoal da shipay comentou que a autenticação estava sendo feita a cada requisição o que não pode, por esse motivo minha homologação ficou pendente.

Eu coloquei um breakpoint na linha 600 do ACBrPIXPSPShipay, 

  Wallets.Clear;
  if (ResultCode = HTTP_OK) then
  begin
    js := TACBrJSONObject.Parse(RespostaHttp);
    try
      fpToken := js.AsString['access_token'];
      fpRefreshToken := js.AsString['refresh_token'];
    finally
      js.Free;
    end;

    if (Trim(fpToken) = '') then
      DispararExcecao(EACBrPixHttpException.Create(ACBrStr(sErroAutenticacao)));

    fpValidadeToken := IncHour(Now, 24);
    fpAutenticado := True;     coloquei o breakpoint aqui

    GetWallets;
    if (fWallets.Count < 1) then
      DispararExcecao(EACBrPixHttpException.Create(sErrNoWallet));
  end
  else
    DispararExcecao(EACBrPixHttpException.CreateFmt( sErroHttp,
       [Http.ResultCode, ChttpMethodPOST, AURL]));

 

 

Porém a cada requisição o sistema para nessa linha.

Coloquei o arquivo do log em anexo.

 

Obrigado

 

 

 

 

logpixacbr.rar 536.54 kB · 0 downloads

Mais um detalhe

nessa rotina do acbrpixcd sempre passa com Autenticado igual a false, ou seja, sempre entra no autenticar, pode ser algum parametro que nao estou configurando corretamente

procedure TACBrPSP.VerificarAutenticacao;
begin
  if not Autenticado then
  begin
    if (NivelLog > 2) then
      RegistrarLog('Autenticar');
    Autenticar;
  end;
  VerificarValidadeToken;
end;

 

 

[Diego Foliene]

Bom dia.
Foi criada a #TK-3256 para que o consultor responsável pelo componente possa analisar o seu caso e fornecer um parecer.

[EliasCesar]

Olá @gilfgfilho,

Enquanto o componente estiver instanciado ele conseguirá gerenciar a autenticação corretamente, utilizando a validade dela.

Porém quando ele é destruído, essas informações são perdidas.

Pelo seu log verifiquei que está "matando" o componente após as requisições. Isso realmente vai fazer com que o componente autentique novamente.

[gilfgfilho]

Boa tarde

Eu estava destruindo o Form onde estava o componente. Já ajustei e aparentemente está ok agora. Vou finalizar a homologação agora a tarde.

 

Muito obrigado pela ajuda

[gilfgfilho]

Sistema Homologado, mais uma vez obrigado.

 

Nao achei onde fechar o post.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.