PC Toledo

ola, pessoal.

to usando uma api que me devolve a imagem qrcode, mas nao consigo salvar em PNG para exibi-la no sistema.

alguem pode me orientar ?

Código: Selecionar todos

    TRY
        oOle2:=CreateObject("MSXML2.ServerXMLHTTP")
    CATCH
        oOle2:=CreateObject("Microsoft.XMLHTTP")
    END
    //
    oOle2:Open( 'GET', "http:/.............../qr/"+rA_EMPTEXTO+'/image', .f. )
    oOle2:setRequestHeader("accept", 'image/png')
    oOle2:setRequestHeader("x-api-key", rA_TOKENN )
    //
    Try
      oOle2:Send()
    CATCH
          ALERT2('VERMELHO','COMUNICACAO FORA DO AR, NAO FOI POSSIVEL GERAR QRCODE.')
          RETURN .F.
    End    
    //    
    Do While oOle2:readyState <> 4
       millisec(500)
    ENDDO
    aRet:=oOle2:Responsetext
    MEMOWRIT('TESTE.PNG', ARET)
     RETURN .T.

Veja na documentação da API como ela retorna a imagem: Base64 ou a imagem pronta. Se for Base64 voce vai ter que decodifica-la antes de salvar no arquivo.

Abel escreveu:to usando uma api que me devolve a imagem qrcode, mas nao consigo salvar em PNG para exibi-la no sistema.

Tá dizendo isso baseado no que ?
Pelo fonte, parece um download comum, complicado pelo usuário.
Mas nunca se sabe....
Como já foi dito, é olhar a documentação da tal API, começando em descobrir se realmente é um webservice.

PC Toledo

SALVAR IMAGEM QRCODE DE UMA API

SALVAR IMAGEM QRCODE DE UMA API

SALVAR IMAGEM QRCODE DE UMA API

SALVAR IMAGEM QRCODE DE UMA API