[Resolvido] Webservice com ASP

[Khrys 0]

Olá. Sou novo no fórum e gostaria de tirar uma dúvida. Estou consumindo um webservice via asp clássico com sucesso. A questão é que tive que mudar alguns parâmetos e com essa mudança, não consegui adaptar o código. Como estou usando um editor de texto, não sei o que falta para que o código seja válido. Já pesquisei bastante mas não consegui encontrar exemplos similares.

 

O código abaixo funciona:

 

// Pega o usuário logado no ActiveDirectory
Usuario= "LoginDoUsuario"


Set ObjetoSOAPCliente= Server.CreateObject("MSSOAP.SoapClient30")
ObjetoSOAPCliente.ClientProperty("ServerHTTPRequest")= True
Call ObjetoSOAPCliente.mssoapinit("hxxp://.../WService?wsdl","","","")
CodigoDoUsuario= ObjetoSOAPCliente.getUserCode(Usuario)

 

 

Via browser o retorno é assim:

 

hxxp://.../WService?method=getUserCode&pUser=Usuario

 

<soapenv:Envelope>

<soapenv:Body>

<getUserCodeResponse>

<ns1:User xsi:type="xsd:long">1234</ns1:User>

</getUserCodeResponse>

</soapenv:Body>

</soapenv:Envelope>

 

Toda essa parte de cima está funcionando. A questão é a a URL do webservice agora tem alguns 'parâmetos', ao invés de:

 

hxxp://.../WService?method=getUserCode&pUser=LoginDoUsuario

 

é

 

hxxp://.../WService?method=getUserCode&Domain=NomeDoDominio&NetworkKey=LoginDoUsuario

 

Devido a esses parâmetros (Domain=NomeDoDominio&NetworkKey) não consegui modificar o código para resolver o valor.

 

Agradeço qualquer ajuda nesta questão. Obrigado antecipadamente.

[Ted k' 126]

Eu não entendi bem sua dúvida... No caso, não consegue mais resgatar o valor da query ou modificar o getUserCode() para receber os novos valores?

[Khrys 0]

Ted, antecipadamente, pelo seu tempo. Então, com esses novos parâmetros que tive que adicionar a URI, não sei como inserí-los no código..., antes quando era assim:

 

getUserCode&pUser=LoginDoUsuario

 

eu conseguia pegar pelo código ASP no tópico do tópico. Agora sendo assim:

 

getUserCode&Domain=NomeDoDominio&NetworkKey=LoginDoUsuario

 

não consegui modificar o código para ele entender corretamente.

 

O lance é que se eu acessar a página pelo browser o resultado é idêntico (isso é normal, já que o webservice está funcinando de boa e as 2 URI realmente tem o mesmo resultado).

 

Obrigado novamente.

 

PS: Vi seu site, e achei interessante o gerenciador de conteúdo... uma vez fiz um também, mas muito simples... mas me ajudou bastante num projetinho.

[Khrys 0]

Bem, fiz um teste com Javascript lendo o retorno do XML e ele pegou o valor, mas eu não queria fazer essa forma... queria poder adaptar o código em asp já pronto para essa nova url... se alguém tiver alguma dica, fico extremamente grato.

[Ted k' 126]

Bem, procurei aqui, analisei, e também conseguir essa forma como DOM/XML porém não postei pois não sabia como queria. Não estou mais programando com ASP porém vejo que essa é uma alternativa com você, pensa nisso, usar em XML

[Khrys 0]

Beleza. Obrigado cara. Consegui tratar usando MSXML2.ServerXMLHTTP e MSXML2.DomDocument.3.0.

 

Obrigado.

[Ted k' 126]

O DOM sempre resolve tudo :P

 

Se puder posta ai como resolveu...

[Khrys 0]

De boa, segue:

 

Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
Set xmlResult = Server.CreateObject("MSXML2.DomDocument.3.0")
URL= "hxxp://.../WService?method=UserCode&ParametroA=1&ParametroB=2"
xmlHttp.open "GET",URL,False
xmlHttp.Send()

xmlResult.loadXML(xmlHttp.ResponseText)
Valor= xmlResult.selectSingleNode("/Nivel1/Nivel2/Nivel3...").Text