ACBrPIXCD no Android

[paulosilva0306]

Bom dia Pessoal...

Alguém já tem algum exemplo usando ACBrPIXCD no Android que possa dispoinibilizar? Até consegui criar e fazer Deploy para o Android, porém, na hora de Gerar o Pagamento, ocorre um erro na linha: PintarQRCode(edFluxoCopiaECola.Text, imFluxoQRCode.Bitmap, qrUTF8BOM); 

[paulosilva0306]

Quando compilo para Windows no FMX, ocorre o erro abaixo:

[danieloliveira-mm]

Boa tarde,

Esse método usa código vcl e provavelmente não funcionará no FMX

[EliasCesar]

Olá @paulosilva0306

Você precisa adicionar a diretiva de compilação FMX no seu projeto.

Veja que ele não está usando o uses que deveria no seu print:

[paulosilva0306]

Olá Pessoal, o problema acima citado foi resolvido, porém, ao fazer um Pagamento, na linha: Result := TransmitirHttp(AMethod, AURL, ResultCode, RespostaHttp);
a variável RespostaHttp está vindo vazia e é claro não confirmando assim a Transação. Ao debugar, também observei que o valor de vBody := StreamToAnsiString(fHttpSend.Document);
está vindo com valor estranho: '{tascinaon"1"amn_ehdi""i""aeo_xiain:22-91T35:3620:0,pyr:"mi""[email protected]""is_ae:FACSACEAA,ietfcto"{tp""P""ubr:764338}}'#0#0#0#0#0#0#0#0#0#0#0#0#0#0' '#16#0'W'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0

Obs: esse comportamento só ocorre quando compilo no Android, no Windows gera tudo sem problemas.

[Juliomar Marchetti]

Gera o log do componente. e anexe o mesmo.
parece erro de enconding

[paulosilva0306]

Opa, segue o Log gerado...

Atribuindo PSP: TACBrPSPMercadoPago, Nome: ACBrPSPMercadoPago1
CriarCobrancaImediata(  )
PrepararHTTP
Autenticar
LimparHTTP
AcessarEndPoint( POST, /cob )
ConfigurarAutenticacao( POST, /cob )
CalcularURLEndPoint( POST, /cob )
  https://api.mercadopago.com/v1/payments
ChamarEventoQuandoAcessarEndPoint( /cob, https://api.mercadopago.com/v1/payments, POST )
TransmitirHttp( POST, https://api.mercadopago.com/v1/payments )
ConfigurarHTTP
ConfigurarProxy
ConfigurarTimeOut
ConfigurarHeaders( POST, https://api.mercadopago.com/v1/payments )
  Req.Headers:
Authorization:Bearer APP_USR-3958155841215417-101523-c9cd31d357dcdc7a6a54ba6d69b013ca-39365532
Accept-Encoding: gzip, compress, deflate
X-Idempotency-Key: BD2DFE1E-D9A6-4A9A-9DD7-361E1FA4DD5A

  Req.Body:
{"transaction_amount":1,"payment_method_id":"pix","date_of_expiration":"2025-09-17T21:49:20.377-04:00","payer":{"email":"[email protected]","first_name":"PAULO SILVA","identification":{"type":"CPF","number":"00000000000"}}}
  ResultCode: 500 - 
  Sock.LastError: -2
  Resp.Headers:
POST /v1/payments HTTP/1.0
Host: api.mercadopago.com
Keep-Alive: 300
Connection: keep-alive
User-Agent: Mozilla/4.0 (compatible; Synapse)
Content-Type: application/json
Content-Length: 227
Authorization:Bearer APP_USR-3958155841215417-101523-c9cd31d357dcdc7a6a54ba6d69b013ca-39365532
Accept-Encoding: gzip, compress, deflate
X-Idempotency-Key: BD2DFE1E-D9A6-4A9A-9DD7-361E1FA4DD5A

Resp.Body:

ChamarEventoQuandoReceberRespostaEndPoint( /cob, POST )
  ResultCode:500
  RespostaHttp: 
TratarRetornoComErro( 500 )

[Juliomar Marchetti]

Sinceramente teria que depurar no aparelho pra ver

pois pra mim vem mais mensagens além do 500. só que não tá salvando no componente ou no log pra gente ver

[paulosilva0306]

12 horas atrás, Juliomar Marchetti disse:

Sinceramente teria que depurar no aparelho pra ver

pois pra mim vem mais mensagens além do 500. só que não tá salvando no componente ou no log pra gente ver

Bom dia!
Como a gente pode ver esse caso Juliomar ?
Se for o caso posso enviar o código do meu exemplo, é bem pequeno...

[Juliomar Marchetti]

4 horas atrás, paulosilva0306 disse:

Bom dia!
Como a gente pode ver esse caso Juliomar ?
Se for o caso posso enviar o código do meu exemplo, é bem pequeno...

está parecendo algo com permissões do android. 

Deu todas as necessárias?

[paulosilva0306]

2 horas atrás, Juliomar Marchetti disse:

está parecendo algo com permissões do android. 

Deu todas as necessárias?

Opa, você pode listar algumas que possa me ajudar no caso ?

[Juliomar Marchetti]

7 minutos atrás, paulosilva0306 disse:

Opa, você pode listar algumas que possa me ajudar no caso ?

os de conexões e certificados.

mas aqui pensando eu acho que vai é precisar fazer IFDEF em algumas coisas que muda strings no android no caso no fmx.

sugestão depura. e usa F7 pra ver o retorno e envio pra ver senão está efetuando a mundança em algum ponto

[paulosilva0306]

36 minutos atrás, Juliomar Marchetti disse:

os de conexões e certificados.

mas aqui pensando eu acho que vai é precisar fazer IFDEF em algumas coisas que muda strings no android no caso no fmx.

sugestão depura. e usa F7 pra ver o retorno e envio pra ver senão está efetuando a mundança em algum ponto

Juliomar, nesse momento você está disponível?
Pois estou agora mesmo vendo isso.
Segue meu Zap 88 992067713

[paulosilva0306]

Sobre as permissões, eu coloquei as seguintes permissões no Android e fiz a chamada das mesmas:
 

procedure TFormPrincipal.PedirPermissoes;
Var
  Ok: Boolean;
begin
  Ok := True;
  {$IfDef ANDROID}
  PermissionsService.RequestPermissions( [JStringToString(TJManifest_permission.JavaClass.BLUETOOTH),
                                          JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_ADMIN),
                                          JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_PRIVILEGED),
                                          JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE),
                                          JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE),
                                          JStringToString(TJManifest_permission.JavaClass.INTERNET)
                                          ],

      procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray)
      var
        GR: TPermissionStatus;
      begin
        for GR in AGrantResults do
          if (GR <> TPermissionStatus.Granted) then
          begin
            Ok := False;
            Break;
          end;
      end );

  if not OK then
    raise EPermissionException.Create( 'Sem permissões para acesso a Internet');
  {$EndIf}
end;

Fiz a chamada ao abrir o Aplicativo e o mesmo pediu permissão.

 

[paulosilva0306]

Alguém que possa dar uma ajuda ?

[Juliomar Marchetti]

3 horas atrás, paulosilva0306 disse:

Alguém que possa dar uma ajuda ?

Conseguiu depurar no delphi e passar com F8 e entrar nas funções F7 pra entender o envio  e quando vem o retorno?

[paulosilva0306]

33 minutos atrás, Juliomar Marchetti disse:

Conseguiu depurar no delphi e passar com F8 e entrar nas funções F7 pra entender o envio  e quando vem o retorno?

Fiz sim, porém, não consegui identificar...

[paulosilva0306]

Bom dia Pessoal...
Sobre esse tópico ainda, alguém já conseguiu usar o ACBrPICD no Android?
Se tiver alguém que tenha feito, por gentileza pode dar uma ajuda...