none
Pasar valor a un webService RRS feed

  • Pregunta

  • Buenas, 

    Necesito pasarle a un webService un string para limpiarles la cache de un portal. 

    En la antigua herramienta que se utilizaba era en vb 6 y era de la siguiente manera.

            strUrl = "http://........."
            strSoapAction = "http://tempuri.org/EliminarCache"
    
            strXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
                     "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " & _
                     "xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
                     "<soap:Body>" & _
                     "<EliminarCache xmlns=""http://tempuri.org/"">" & _
                     "<rutaImagen>" & ImagenActualizada & "</rutaImagen>" & _
                     "</EliminarCache >" & _
                     "</soap:Body>" & _
                     "</soap:Envelope>"
    
        ' Crea objetos DOMDocument y XMLHTTP
            objDom = CreateObject("MSXML2.DOMDocument")
            objXmlHttp = CreateObject("MSXML2.XMLHTTP")
    
        ' Carga XML
            objDom.async = False
            objDom.loadXML(strXml)
    
        ' Abre el webservice
            objXmlHttp.Open("POST", strUrl, False)
    
        ' Crea headings
            objXmlHttp.setRequestHeader("Content-Type", "text/xml; charset=utf-8")
            objXmlHttp.setRequestHeader("SOAPAction", strSoapAction)
    
        ' Envia XML command
            objXmlHttp.send(objDom.XML)
    

     Me gustaría modernizar esta función. Alguna ayuda? gracias!

    miércoles, 18 de enero de 2012 12:20

Respuestas

Todas las respuestas

  • hola

    la url del servicio que debes usar es un asmx ? o sea un servicio de asp.net

    porque si es asi solo es cuestion de agregar un "Web Reference" y listo

    Using a Web Service in VB.NET

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    miércoles, 18 de enero de 2012 12:30
  • Correcto Leandro, era lo que estaba buscando.

     

    Public Sub llamadaWS(ByVal fotoEnPisos As String)
            Try
    
                Dim MyService As New GestCacheFoto.GestImageSoapClient
    
                Dim MyResult As String
                MyResult = MyService.EliminarCache(fotoEnPisos)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    
        End Sub
    


    Pero sigue sin funcionar :(

     

     

    miércoles, 18 de enero de 2012 13:05
  • pero que seria este nuevo codigo que has puesto ?

    has creado un asmx, que luego referencia mediente un web reference

     

    ademas que seria el sigue sin funcionar, obtienes algun error ?

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    miércoles, 18 de enero de 2012 13:08
  • El asmx lo ha creado otro departamento. 

    Se trata de una limpieza de cache de fotografias. Yo le paso solo la ruta de esa fotografia en el ftp.

    El problema es que al referenciar esa url me encuentro esto:

    El codigo que utilizo es el anterior.

    El error que me provoca es este:

    Que me recomiendas?

    miércoles, 18 de enero de 2012 14:36
  • El error esta en el archivo app.config. Habia duplicado el EndPoint del nodo <client>.

    Misterios del código.

    • Marcado como respuesta arseneonly miércoles, 18 de enero de 2012 15:11
    miércoles, 18 de enero de 2012 15:11