marciost Postado 12 Março Compartilhar Postado 12 Março Boa tarde Gostaria de ver se é possível com os componentes obter a url do payload e inclusive ler esse payload para obter dados como beneficiário, valor e vencimento. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 12 Março Moderadores Compartilhar Postado 12 Março Ler o QrCode? não. temos para gerar o mesmo Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
marciost Postado 12 Março Autor Compartilhar Postado 12 Março Não seria ler o QRCode, isso está lido, já tenho a string com a representação. O que eu queria ver é se existe algum método onde eu passo essa string e ele me devolve a url do payload; Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 12 Março Moderadores Compartilhar Postado 12 Março 3 minutos atrás, marciost disse: Não seria ler o QRCode, isso está lido, já tenho a string com a representação. O que eu queria ver é se existe algum método onde eu passo essa string e ele me devolve a url do payload; tenta olhar as units do ACBrPIXCD que pode ser que tenha algo mas não lembro mesmo de cabeça Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
marciost Postado 12 Março Autor Compartilhar Postado 12 Março var BRCode : TACBrBRCode; EMVList: TACBrEMVList; begin BRCode := TACBrBRCode.Create; try // Aqui passa todo o QRCode BRCode.AsString := Edit1.Text; EMVList := TACBrEMVList.Create; try // Aqui pego somente o bloco onde fica a URL ou chave EMVList.AsString := BRCode.ID[cID_MerchantAccountInformation]; // Aqui trato se tem chave ou URL if EMVList.ID[cID_PixKey] <> '' then Edit2.Text := EMVList.ID[cID_PixKey] else Edit2.Text := EMVList.ID[cID_URL] finally EMVList.Free; end; finally BRCode.Free; end; Pessoal, para quem precisar, de maneira geral isso funciona. Melhor seria se tivesse uma chamada mais pronta, mas isso ai meio que quebra o galho. Alguém tem sugestão melhor? 1 Link para o comentário Compartilhar em outros sites More sharing options...
Solution marciost Postado 12 Março Autor Solution Compartilhar Postado 12 Março function TForm1.ExtrairURLChave(pQRCode: String): String; begin with TACBrBRCode.Create do begin // Todo o QRCode AsString := pQRCode; // Somente a parte que tem a chave/url AsString := ID[cID_MerchantAccountInformation]; // Aqui busca a chave ou url if ID[cID_PixKey] <> '' then Result := ID[cID_PixKey] else Result := ID[cID_URL]; Free; end; end; Aqui já melhorado.... 1 Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora