gerar imagem qrcode de uma string base64

[Abel]

ola pessoal,
uso uma api de whatsapp que me retorna um qrcode base64, precisava em harbour uma funcao que pudesse ler essa string base64 e gerar a imagem do qrcode.

alguem poderia indicar um caminho ?

li varias postagens no forum mas nao entendi ...

utilizo harbour modo console, mas poderia ser ate mesmo uma funcao para abrir uma janela a parte do meu sistema.

Obrigado mais uma vez
ABEL

[lucimauro]

Abel der uma olhada no link abaixo que tem a rotina e a dll que gera o qrcode
http://fivewin.com.br/index.php?/topic/ ... ent-284381

[JoséQuintas]

uso uma api de whatsapp que me retorna um qrcode base64, precisava em harbour uma funcao que pudesse ler essa string base64 e gerar a imagem do qrcode.

hb_Base64Decode e hbzebra?

[Abel]

Jose Quintas,

vou dar uma procurada no forum sobre esses comandos.

é possivel gerar o qrcode e gravar em um jpg ou bmp pelo harbour ?

desde ja agradeço
ABEL

[JoséQuintas]

Por enquanto, que eu me lembre, talvez com o uso da bostaurus.
Mas não disse que é pra exibir? porque arquivo?

[Abel]

a ideia Jose quintas,

era exibir na tela, e depois salvar para impressao
como um pix de pagto generico.

Abel

[ANDRIL]

Tenta algo em HTML. Assim basta abrir o chrome com a pagina criada com o QRCode para exibi-lo.
Posta a string do QrCode em base64 para ver se consigo algo.

[sygecom]

Abel,

Seria algo mais ou menos assim. No exemplo que você está citando não precisa GERAR QR CODE, ele já vem gerado, você precisa apenas transformar em imagem e mostrar na tela.

cQrCodeBase64:= STRTRAN(::hHash['qrcode'], "data:image/png;base64,") // digamos que aqui você pega a STRING em BASE64 do QRCODE

cFileQRCode:= "teste_qrcode.png" // nome da imagem com QR CODE que vai gerar
MemoWrit( cFileQRCode , HB_BASE64DECODE(cQrCodeBase64), .F. ) // salva o conteúdo da STRING em uma IMAGEM

Agora você tem uma imagem com o QRCODE

[Abel]

sygecom, nao deu certo
vou postar aqui a funcao referente a api

Código: Selecionar todos

PROCEDURE GERA_QRCODEPIX(rA_NOME,rA_CIDADE,rA_CHAVE,rA_IDENT,rA_SAIDA,rA_TAMANHO)
Local oOle, aRet 
    //
    // rA_SAIDA=br retorna string brcode
    // rA_SAIDA=qr retorna qrcode
    // tamanho=256
    //
    rA_NOME  =STRTRAN(rA_NOME  ,' ','%20')
    rA_CIDADE=STRTRAN(rA_CIDADE,' ','%20')
    rA_CHAVE =ALLTRIM(rA_CHAVE)
    //
    Try
        oOle:=CreateObject("MSXML2.XMLHTTP")
    Catch
        oOle:=CreateObject("Microsoft.XMLHTTP")
    End
    //
    oOle:Open( 'GET', "https://gerarqrcodepix.com.br/api/v1?nome="+rA_NOME+"&cidade="+rA_CIDADE+"&chave="+rA_CHAVE+"&saida="+rA_SAIDA+"&tamanho="+rA_TAMANHO, .F. )
    oOle:setRequestHeader("Connection", "keep-alive" )
    oOle:setRequestHeader("Accept", "*/*" )
    oOle:setRequestHeader("Accept-Encoding", "gzip,deflate,br" )
    //
    Try
      oOle:Send() 
    CATCH
      ALERT2('VERMELHO','Problemas na Conexao para gerar a CHAVE PIX !')
      RETURN .F. 
    End    
    //    
    aRet:=oOle:Responsetext
    Do While oOle:readyState <> 4
       millisec(500)
    ENDDO
    //
    IF .NOT. oOle:status=200
       aRet='ERRO'
    ENDIF
RETURN aRet

preciso transformar o retorn aRet em um jpeg ou png

att
ABEL

[lucimauro]

Abel com a dll qrcodelib.dll eu consegui gerar a imagem uma bmp do QRcode do PIX, agora com sua string não sei se daria certo já que fiz baseado no PIX.

[Abel]

resolvi salvar o jpeg manualmente mesmo, apos ele aparecer no
navegador.

Obrigado pessoal !