MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Consumir webservice

    Compartilhe
    avatar
    chsestrem
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    Registrado : 01/03/2010

    Consumir webservice

    Mensagem  chsestrem em Sex 15 Fev 2013, 11:45

    Bom dia pessoal,


    Estou precisando criar uma rotina para consumir o webservice do TJSC

    o endereço de homologação é este:

    [Você precisa estar registrado e conectado para ver este link.]

    Dentre as funções, existe a chamada "getSelos" e a resposta "getSelosResponse"

    Como posso enviar o getSelos e obter a resposta em XML?

    O webservice pede somente os parâmetros usuário(user) e senha(pass), que

    para o ambiente de testes são respectivamente "cartorio" e "selodigital"

    Se alguém puder ajudar, desde já agradeço.

    Sds,


    .................................................................................
    Charles Sestrem
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 282
    Registrado : 28/06/2010

    Re: Consumir webservice

    Mensagem  Marco Messa em Qua 03 Jul 2013, 17:03

    Dá uma olhada se ele link pode te ajudar:


    [Você precisa estar registrado e conectado para ver este link.]


    Abs Cool 


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    studioaccess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 19/03/2016

    Re: Consumir webservice

    Mensagem  studioaccess em Qua 31 Maio 2017, 14:46

    Você pode usar esse código

    Código:


    Function RequicaoHTTP(ByVal strSite As String, Metodo As MetodosRequisicao, Optional parametros As Variant) As String

    On Error GoTo ErrorHandler

    Dim XMLHttpRequest As New MSXML2.XMLHTTP60 '.ServerXMLHTTP
    Dim strMetodo As String

    If Metodo = GetEnum Then strMetodo = "GET"
    If Metodo = PostEnum Then strMetodo = "POST"

    With XMLHttpRequest
        .Open strMetodo, strSite, False
        .send parametros
    End With

    RequicaoHTTP = CStr(XMLHttpRequest.responseText)

    FecharRequisicao:
    Set XMLHttpRequest = Nothing
    Exit Function

    End Function


    Exemplo de uso


    Sub TestarInternet()

    Debug.Print RequicaoHTTP("https://www.ondetemfazendariogrande.com", GetEnum, "")

    End Sub


    Antes de usar precisa fazer referência à esta biblioteca

    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4397
    Registrado : 15/03/2013

    Re: Consumir webservice

    Mensagem  ahteixeira em Qua 31 Maio 2017, 23:44

    Olá Ivan Melo,

    Pode completar o código, está a faltar talvez modulo classe "Metodo As MetodosRequisicao".

    Abraço

      Data/hora atual: Sab 23 Set 2017, 06:45