quoteservice.vb

来自「This is a book about vb.you could learn 」· VB 代码 · 共 70 行

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.0.3328.4
'
'     Changes to this file may cause incorrect behavior and will be lost if 
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

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

'
'This source code was auto-generated by wsdl, Version=1.0.3328.4.
'

'<remarks/>
<System.Diagnostics.DebuggerStepThroughAttribute(),  _
 System.ComponentModel.DesignerCategoryAttribute("code"),  _
 System.Web.Services.WebServiceBindingAttribute(Name:="QuoteServiceSoap", [Namespace]:="http://tempuri.org/"),  _
 System.Xml.Serialization.XmlIncludeAttribute(GetType(QuoteDetails()))>  _
Public Class QuoteService
    Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
    
    '<remarks/>
    Public Sub New()
        MyBase.New
        Me.Url = "http://localhost/wrox/4885/Application/Globalasax/Async/StockQuote/StockQuote.asm"& _ 
"x"
    End Sub
    
    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetQuotes", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
    Public Function GetQuotes() As <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true)> QuoteDetails()
        Dim results() As Object = Me.Invoke("GetQuotes", New Object(-1) {})
        Return CType(results(0),QuoteDetails())
    End Function
    
    '<remarks/>
    Public Function BeginGetQuotes(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
        Return Me.BeginInvoke("GetQuotes", New Object(-1) {}, callback, asyncState)
    End Function
    
    '<remarks/>
    Public Function EndGetQuotes(ByVal asyncResult As System.IAsyncResult) As QuoteDetails()
        Dim results() As Object = Me.EndInvoke(asyncResult)
        Return CType(results(0),QuoteDetails())
    End Function
End Class

'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://tempuri.org/")>  _
Public Class QuoteDetails
    
    '<remarks/>
    <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)>  _
    Public Symbol As String
    
    '<remarks/>
    Public Price As Single
End Class