Obter o payload (url) a partir do qrcode lido

[marciost]

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.

[Juliomar Marchetti]

Ler o QrCode?

não. temos para gerar o mesmo

[marciost]

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;

[Juliomar Marchetti]

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

[marciost]

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?

[marciost]

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....