如何:异步调用 Web 服务 (Visual Basic)

此示例在 Web 服务的异步处理程序事件中附加了一个处理程序,以便它能检索异步方法调用的结果。 此示例使用了 DemoTemperatureService Web 服务(位于 http://www.xmethods. net”。

当您在 Visual Studio 集成开发环境 (IDE) 中引用项目中的 Web 服务时,该服务将添加到 My.WebServices 对象中,并且 IDE 将生成一个客户端代理类来访问指定的 Web 服务。

使用此代理类可以异步调用 Web 服务方法,而应用程序则在 Web 服务方法内等待函数执行完成。 另外,代理还创建其他成员来协助异步调用方法。 对于每一个 Web 服务函数 Web 服务函数的名称,代理都会创建一个 Web 服务函数的名称Async 子例程、一个 Web 服务函数的名称Completed 事件和一个 Web 服务函数的名称CompletedEventArgs 类。 此示例演示如何使用异步成员访问 DemoTemperatureService Web 服务的 getTemp 函数。

提示

因为 ASP.NET 不支持 My.WebServices 对象,所以这段代码不适用于 Web 应用程序。

以异步方式调用 Web 服务

  1. 请参考 DemoTemperatureService Web 服务(位于 http://www.xmethods. net”。 网址为

    http://www.xmethods.net/sd/2001/DemoTemperatureService.wsdl
    
  2. 为 getTempCompleted 事件添加事件处理程序:

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

    提示

    不能使用 Handles 语句将事件处理程序与 My.WebServices 对象的事件关联起来。

  3. 如果已将事件处理程序添加到 getTempCompleted 事件,则添加要跟踪的字段:

    Private handlerAttached As Boolean = False
    
  4. 添加一个方法,以将事件处理程序添加到 getTempCompleted 事件(如有必要)并调用 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
    

    若要以异步方式调用 getTemp Web 方法,请调用 CallGetTempAsync 方法。 当 Web 方法执行完成后,其返回值将被传递到 getTempCompletedHandler 事件处理程序。

请参见

参考

My.WebServices 对象 (Visual Basic)

概念

访问应用程序 Web 服务 (Visual Basic)