Ver Mensaje Individual
  #5  
Antiguo 25-09-2008
Avatar de SpyO_O
SpyO_O SpyO_O is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina
Posts: 22
Reputación: 0
SpyO_O Va por buen camino
llamar un Delphi web services desde ASP

Gracias por responder,
te comento que tengo resuleto el tema y no fue nada extraña la resolucion, solo enviando un comando post al web services, me retorno la respuesta correcta.


abajo el codigo ASP que me dio la solucion:
vXML es la variable donde voy armando el POST.

Para ello copie la forma que hacia el envio del cliente escrito en delphi al mismo web services y modifque para que se ajuste con parametros variables:


Código:
.
.
.
.
       vURL="http://localhost/ws/wstrip.dll" 
	vXML="<?xml version=""1.0""?>"& vbCrLf
	vXML=vXML & "<SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/""" & vbCrLf
	vXML=vXML & "xmlns:xsd=""http://www.w3.org/2001/XMLSchema""" & vbCrLf
	vXML=vXML & "xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""" & vbCrLf
	vXML=vXML & "xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/"">" & vbCrLf
	vXML=vXML & "<SOAP-ENV:Body SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">" & vbCrLf
	vXML=vXML & "<NS1:GetTimeTrip xmlns:NS1=""urn:wsTimeTripIntf-IwsTimeTrip"">" & vbCrLf
	vXML=vXML & "<vDep xsi:type=""xsd:string"">"& vDepA &"</vDep>" & vbCrLf
	vXML=vXML & "<vArr xsi:type=""xsd:string"">"& vArrA &"</vArr>" & vbCrLf
	vXML=vXML & "<vH xsi:type=""xsd:string"">"& vH &"</vH>" & vbCrLf
	vXML=vXML & "<vM xsi:type=""xsd:string"">"& vM &"</vM>" & vbCrLf
	vXML=vXML & "</NS1:GetTimeTrip></SOAP-ENV:Body>" & vbCrLf
	vXML=vXML & "</SOAP-ENV:Envelope>" & vbCrLf



	Set objInputXMLDoc = Server.CreateObject("Microsoft.XMLDOM")

	objInputXMLDoc.loadXML vXML

	Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
        vURL=vURL & "/soap/IwsTimeTrip"
	objXMLHTTP.open "post", vURL, false
	objXMLHTTP.setRequestHeader "Content-Type", "text/xml"
	objXMLHTTP.setRequestHeader "soapAction", "urn:wsTimeTripIntf-IwsTimeTrip#GetTimeTrip"
	objXMLHTTP.send objInputXMLDoc

	response.Write  objXMLHTTP.responseText
Simple no?
saludos
__________________
Q Onda?
Responder Con Cita