Problemas de acceso a wsdl con MSXML2.XMLHTTP

10/12/2004 - 12:33 por Andrea | Informe spam
Hola,

Estoy intentando llamar a un método de un Web Service .NET
desde una página .asp

EL problema que tengo es que nose cómo acceder a los
métodos para poder visulizar lo que devuelve el método en
pantalla.

El código que estoy usando es :
<%
Function GetASPNetResources()

Dim returnString
Dim myXML
Dim SoapRequest
Dim SoapURL

Set SoapRequest = Server.CreateObject
("MSXML2.XMLHTTP.3.0") 'o MSXML2.XMLHTTP
Set myXML =Server.CreateObject("MSXML.DOMDocument")

myXML.Async=False

SoapURL = "http://webservices.mug.org.ar/motor.wsdl?"
SoapRequest.Open "GET",SoapURL , False
SoapRequest.Send()

if Not myXML.load(SoapRequest.responseXML) then 'an
Error loading XML

returnString = ""
Else 'parse the XML

Dim nodesURL
Dim nodesName
Dim nodesDateUpdated
Dim nodesDomain
Dim NumOfNodes
Dim ResourceList
Dim i



Set nodesURL=myXML.documentElement.selectNodes
("//Motor.GetListas") ¿?¿?¿? ns q poner aqui

NumOfNodes = nodesURL.Length

ResourceList = "<font face=verdana size=2>Latest
ASP.NET Resources</font><ul>"
ResourceList = ResourceList
& "NumOfNodes: "&NumOfNodes

For i = 0 to NumOfNodes -1
ResourceList = ResourceList & "<li><a href=" &
nodesURL(i).text & "><font face=verdana size=2>" & nodesURL
(i).text & "</font></a></li>"
next

ResourceList =ResourceList & "</ul>"
Response.Write ResourceList
returnString = ResourceList

Set nodesURL = Nothing
Set nodesName = Nothing
End If

Set SoapRequest = Nothing
Set myXML = Nothing


GetASPNetResources = returnString
End Function
%>
Se supone que GetListas devuelve un listado como
resultado, peron ns ni cómo invocarlo ni cómo ver el
resultado.

Espero que alguien pueda ayudarme

Un saludo y gracias

Preguntas similare

Leer las respuestas

#1 pablo crosio
11/12/2004 - 08:11 | Informe spam
hola!

con la forma en que estas trabajando y para invocar los metodos deberias
enviar un requerimiento web en formato SOAP a mano; aunque podrias hacerlo,
no te lo recomiendo pues es super engorroso...

las mas facil es que te bajes el SOAP ToolKit 3.0, este tiene un componente
que lee el WSDL y ya podes llamar a los metodos directamente...

claro que tenes que tener idea de los nombres de los metodos, los
parametros, etc... pero esto lo podes ver en el wsdl

un ejemplo para GetListas (no lleva parametros y devuelve un xml):

Set objSOAPClient = Server.CreateObject("MSSOAP.SoapClient30")
objSOAPClient.MSSoapInit "http://webservices.mug.org.ar/motor.wsdl"
valorRetorno = objSOAPClient.GetListas()

espero te sirva

pd: ojala pudieras pasarte a ASP.NET, llamar a los web services es super
facil

salu2!!

pablo


"Andrea" escribió:

Hola,

Estoy intentando llamar a un método de un Web Service .NET
desde una página .asp

EL problema que tengo es que nose cómo acceder a los
métodos para poder visulizar lo que devuelve el método en
pantalla.

El código que estoy usando es :
<%
Function GetASPNetResources()

Dim returnString
Dim myXML
Dim SoapRequest
Dim SoapURL

Set SoapRequest = Server.CreateObject
("MSXML2.XMLHTTP.3.0") 'o MSXML2.XMLHTTP
Set myXML =Server.CreateObject("MSXML.DOMDocument")

myXML.Async=False

SoapURL = "http://webservices.mug.org.ar/motor.wsdl?"
SoapRequest.Open "GET",SoapURL , False
SoapRequest.Send()

if Not myXML.load(SoapRequest.responseXML) then 'an
Error loading XML

returnString = ""
Else 'parse the XML

Dim nodesURL
Dim nodesName
Dim nodesDateUpdated
Dim nodesDomain
Dim NumOfNodes
Dim ResourceList
Dim i



Set nodesURL=myXML.documentElement.selectNodes
("//Motor.GetListas") ¿?¿?¿? ns q poner aqui

NumOfNodes = nodesURL.Length

ResourceList = "<font face=verdana size=2>Latest
ASP.NET Resources</font><ul>"
ResourceList = ResourceList
& "NumOfNodes: "&NumOfNodes

For i = 0 to NumOfNodes -1
ResourceList = ResourceList & "<li><a href=" &
nodesURL(i).text & "><font face=verdana size=2>" & nodesURL
(i).text & "</font></a></li>"
next

ResourceList =ResourceList & "</ul>"
Response.Write ResourceList
returnString = ResourceList

Set nodesURL = Nothing
Set nodesName = Nothing
End If

Set SoapRequest = Nothing
Set myXML = Nothing


GetASPNetResources = returnString
End Function
%>
Se supone que GetListas devuelve un listado como
resultado, peron ns ni cómo invocarlo ni cómo ver el
resultado.

Espero que alguien pueda ayudarme

Un saludo y gracias

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida