Cómo: Llamar a un servicio Web de forma asincrónica (Visual Basic)

En este ejemplo se adjunta un controlador a un evento de controlador asincrónico de un servicio Web de manera que pueda recuperar el resultado de una llamada a método asincrónica. En este ejemplo se utiliza el servicio Web DemoTemperatureService de http://www.xmethods. net.

Cuando se hace referencia a un servicio Web en un proyecto en el entorno de desarrollo integrado (IDE) de Visual Studio, se agrega al objeto My.WebServices y el IDE genera una clase de proxy cliente para tener acceso a un servicio Web especificado.

La clase de proxy permite llamar sincrónicamente a los métodos del servicio Web, dónde la aplicación espera a que finalice la función. Además, el servidor proxy crea miembros adicionales como ayuda para llamar al método de forma asincrónica. Para cada función de servicio Web, NameOfWebServiceFunction, el proxy crea una subrutina de NameOfWebServiceFunctionAsync, un evento NameOfWebServiceFunctionCompleted y una clase NameOfWebServiceFunctionCompletedEventArgs. En este ejemplo se muestra cómo utilizar los miembros asincrónicos para tener acceso a la función getTemp del servicio Web DemoTemperatureService.

Para llamar asincrónicamente a un servicio Web

1. Haga referencia al servicio Web DemoTemperatureService de http://www.xmethods. net. La dirección es

   http://www.xmethods.net/sd/2001/DemoTemperatureService.wsdl
   

2. Agregue un controlador de eventos para el evento getTempCompleted:

   Private Sub getTempCompletedHandler(ByVal sender As Object, 
       ByVal e As net.xmethods.www.getTempCompletedEventArgs)
   
       MsgBox("Temperature: " & e.Result)
   End Sub
   

   Nota

   No puede utilizar la instrucción Handles para asociar un controlador de eventos a los eventos del objeto My.WebServices.

3. Agregue un campo para efectuar el seguimiento si el controlador de eventos se ha agregado al evento getTempCompleted:

   Private handlerAttached As Boolean = False
   

4. Agregue un método para agregar el controlador de eventos al evento getTempCompleted, si es necesario, y para llamar al método getTempAsynch:

   Sub CallGetTempAsync(ByVal zipCode As Integer)
       If Not handlerAttached Then
           AddHandler My.WebServices.
               TemperatureService.getTempCompleted, 
               AddressOf Me.TS_getTempCompleted
           handlerAttached = True
       End If
       My.WebServices.TemperatureService.getTempAsync(zipCode)
   End Sub
   

   Para llamar al método Web getTemp de forma asincrónica, llame al método CallGetTempAsync. Cuando el método Web finaliza, el valor devuelto se pasa al controlador de eventos getTempCompletedHandler.

Vea también

Referencia

My.WebServices (Objeto) (Visual Basic)

Conceptos

Acceso a los servicios Web de aplicaciones (Visual Basic)