Qlik Community

Qlik Brasil

Group community for Brazil users. discussion only in Portuguese.

Highlighted
thiagopcleite
Not applicable

Dados de Site que precisa de autenticação

Boa tarde pessoal,

Preciso pegar os dados de um site, mas esse site necessita de uma autenticação (Login / Senha) antes de chegar a tabela que preciso acessar.

É possível fazer isso no Qlikview????

Grato,

Thiago Leite

1 Solution

Accepted Solutions
Clever_Anjos
Not applicable

Re: Dados de Site que precisa de autenticação

É possível executando uma macro, segue um exemplo

Public Function httpGET(fn As String, _

        Optional authUser As String = vbNullString, _

        Optional authPass As String = vbNullString) As String

    pHtml = fn

    Dim oHttp As Object

    Set oHttp = CreateObject("Microsoft.XMLHTTP")

    Call oHttp.Open("GET", pHtml, False)

    If (authUser <> vbNullString) Then

        oHttp.SetRequestHeader "Content-Type", "application/json"

        oHttp.SetRequestHeader "Accept", "application/json"

        oHttp.SetRequestHeader "Authorization", "Basic " + _

            Base64Encode(authUser + ":" + authPass)

    End If

    Call oHttp.Send("")

    httpGET = oHttp.ResponseText

    Set oHttp = Nothing

End Function

3 Replies
nicolett_yuri
Not applicable

Re: Dados de Site que precisa de autenticação

Deve ter outra maneira, mas você pode resolver isso gravando esse usuário e senha utilizando o browser IE (após efetuar o primeiro login). Mas lembre-se de fazer essa ação com o usuário que esta executando os serviços do QlikView (em caso de carga pelo QvServer).

Clever_Anjos
Not applicable

Re: Dados de Site que precisa de autenticação

É possível executando uma macro, segue um exemplo

Public Function httpGET(fn As String, _

        Optional authUser As String = vbNullString, _

        Optional authPass As String = vbNullString) As String

    pHtml = fn

    Dim oHttp As Object

    Set oHttp = CreateObject("Microsoft.XMLHTTP")

    Call oHttp.Open("GET", pHtml, False)

    If (authUser <> vbNullString) Then

        oHttp.SetRequestHeader "Content-Type", "application/json"

        oHttp.SetRequestHeader "Accept", "application/json"

        oHttp.SetRequestHeader "Authorization", "Basic " + _

            Base64Encode(authUser + ":" + authPass)

    End If

    Call oHttp.Send("")

    httpGET = oHttp.ResponseText

    Set oHttp = Nothing

End Function

Clever_Anjos
Not applicable

Re: Dados de Site que precisa de autenticação

Já conseguiu solucionar? Se sim, marque uma das respostas como "Correta" e nos ajude a manter os foruns organizados