Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/01/2005, 13:59
jjmagro
 
Fecha de Ingreso: mayo-2003
Ubicación: Monte VI D.E.O.
Mensajes: 78
Antigüedad: 21 años, 8 meses
Puntos: 0
Lo olvidaba!!!
El codigo correspondiente para SincronizadorProxy.SincronizadorService es el siguiente:

Código:
Option Strict Off
Option Explicit On 

Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization

Namespace SincronizadorProxy

    <System.Diagnostics.DebuggerStepThroughAttribute(), _
     System.ComponentModel.DesignerCategoryAttribute("code"), _
     System.Web.Services.WebServiceBindingAttribute(Name:="SincronizadorIFBinding", [Namespace]:="http://sincronizador.org/wsdl")> _
    Public Class SincronizadorService
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

        Public Sub New(ByVal url As String)
            MyBase.New()
            Me.Url = url
        End Sub

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function actualizarClave(ByVal int_1 As Integer, ByVal String_2 As String) As <System.Xml.Serialization.SoapElementAttribute("result")> Boolean
            Dim results() As Object = Me.Invoke("actualizarClave", New Object() {int_1, String_2})
            Return CType(results(0), Boolean)
        End Function

        Public Function BeginactualizarClave(ByVal int_1 As Integer, ByVal String_2 As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("actualizarClave", New Object() {int_1, String_2}, callback, asyncState)
        End Function

        Public Function EndactualizarClave(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function actualizarLogInspecciones(ByVal String_1 As String) As <System.Xml.Serialization.SoapElementAttribute("result")> Boolean
            Dim results() As Object = Me.Invoke("actualizarLogInspecciones", New Object() {String_1})
            Return CType(results(0), Boolean)
        End Function

        Public Function BeginactualizarLogInspecciones(ByVal String_1 As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("actualizarLogInspecciones", New Object() {String_1}, callback, asyncState)
        End Function

        Public Function EndactualizarLogInspecciones(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function descargarInspecciones(ByVal String_1 As String) As <System.Xml.Serialization.SoapElementAttribute("result")> Boolean
            Dim results() As Object = Me.Invoke("descargarInspecciones", New Object() {String_1})
            Return CType(results(0), Boolean)
        End Function

        Public Function BegindescargarInspecciones(ByVal String_1 As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("descargarInspecciones", New Object() {String_1}, callback, asyncState)
        End Function

        Public Function EnddescargarInspecciones(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function enviarFotografia(ByVal String_1 As String, <System.Xml.Serialization.SoapElementAttribute(DataType:="base64Binary")> ByVal arrayOfbyte_2() As Byte) As <System.Xml.Serialization.SoapElementAttribute("result")> Boolean
            Dim results() As Object = Me.Invoke("enviarFotografia", New Object() {String_1, arrayOfbyte_2})
            Return CType(results(0), Boolean)
        End Function

        Public Function BeginenviarFotografia(ByVal String_1 As String, ByVal arrayOfbyte_2() As Byte, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("enviarFotografia", New Object() {String_1, arrayOfbyte_2}, callback, asyncState)
        End Function

        Public Function EndenviarFotografia(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function obtenerPlantillas() As <System.Xml.Serialization.SoapElementAttribute("result")> String
            Dim results() As Object = Me.Invoke("obtenerPlantillas", New Object(-1) {})
            Return CType(results(0), String)
        End Function

        Public Function BeginobtenerPlantillas(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("obtenerPlantillas", New Object(-1) {}, callback, asyncState)
        End Function

        Public Function EndobtenerPlantillas(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), String)
        End Function

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function obtenerSemilla() As <System.Xml.Serialization.SoapElementAttribute("result")> String
            Dim results() As Object = Me.Invoke("obtenerSemilla", New Object(-1) {})
            Return CType(results(0), String)
        End Function

        Public Function BeginobtenerSemilla(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("obtenerSemilla", New Object(-1) {}, callback, asyncState)
        End Function

        Public Function EndobtenerSemilla(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), String)
        End Function

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function obtenerUsuarios() As <System.Xml.Serialization.SoapElementAttribute("result")> String
            Dim results() As Object = Me.Invoke("obtenerUsuarios", New Object(-1) {})
            Return CType(results(0), String)
        End Function

        Public Function BeginobtenerUsuarios(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("obtenerUsuarios", New Object(-1) {}, callback, asyncState)
        End Function

        Public Function EndobtenerUsuarios(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), String)
        End Function

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function solicitarDescarga(ByVal int_1 As Integer) As <System.Xml.Serialization.SoapElementAttribute("result")> String
            Dim results() As Object = Me.Invoke("solicitarDescarga", New Object() {int_1})
            Return CType(results(0), String)
        End Function

        Public Function BeginsolicitarDescarga(ByVal int_1 As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("solicitarDescarga", New Object() {int_1}, callback, asyncState)
        End Function

        Public Function EndsolicitarDescarga(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), String)
        End Function

        <System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://sincronizador.org/wsdl", ResponseNamespace:="http://sincronizador.org/wsdl")> _
        Public Function solicitarParametros() As <System.Xml.Serialization.SoapElementAttribute("result")> String
            Dim results() As Object = Me.Invoke("solicitarParametros", New Object(-1) {})
            Return CType(results(0), String)
        End Function

        Public Function BeginsolicitarParametros(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("solicitarParametros", New Object(-1) {}, callback, asyncState)
        End Function

        Public Function EndsolicitarParametros(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), String)
        End Function
    End Class
End Namespace
__________________
:adios: Henry Rodriguez :adios:
El todo es mucho mas que la suma de las partes<-- No se quien lo dijo pero suena interesante :)