本文整理匯總了VB.NET中System.Web.Services.Description.ServiceDescription.Read方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET ServiceDescription.Read方法的具體用法？VB.NET ServiceDescription.Read怎麽用？VB.NET ServiceDescription.Read使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Web.Services.Description.ServiceDescription的用法示例。
在下文中一共展示了ServiceDescription.Read方法的4個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: ServiceDescription
Dim myDescription As New ServiceDescription()
myDescription = ServiceDescription.Read("MyWsdl_VB.wsdl")
myDescription.Name = "MyServiceDescription"
Console.WriteLine("Name: " & myDescription.Name)
Dim myMessageCollection As MessageCollection = myDescription.Messages
' Remove the message at index 0 from the message collection.
myMessageCollection.Remove(myDescription.Messages(0))
' Build a new Message.
Dim myMessage As New Message()
myMessage.Name = "AddSoapIn"
' Build a new MessagePart.
Dim myMessagePart As New MessagePart()
myMessagePart.Name = "parameters"
Dim myXmlQualifiedName As New XmlQualifiedName("s0:Add")
myMessagePart.Element = myXmlQualifiedName
' Add MessageParts to the message.
myMessage.Parts.Add(myMessagePart)
' Add the message to the ServiceDescription.
myDescription.Messages.Add(myMessage)
myDescription.Write("MyOutWsdl.wsdl")示例2: ServiceDescription
Dim myDescription As New ServiceDescription()
' Create a StreamReader to read a WSDL file.
Dim myTextReader = New StreamReader("MyWsdl.wsdl")
myDescription = ServiceDescription.Read(myTextReader)
Console.WriteLine("Bindings are: ")
' Display the Bindings present in the WSDL file.
Dim myBinding As Binding
For Each myBinding In myDescription.Bindings
Console.WriteLine(myBinding.Name)
Next myBinding示例3: StreamReader
' Create a StreamReader to read a WSDL file.
Dim myStreamReader As New StreamReader("MyWsdl.wsdl")
Dim myDescription As ServiceDescription = _
ServiceDescription.Read(myStreamReader)
Console.WriteLine("Bindings are :")
' Display the Bindings present in the WSDL file.
Dim myBinding As Binding
For Each myBinding In myDescription.Bindings
Console.WriteLine(myBinding.Name)
Next myBinding示例4: XmlTextReader
' Create a new XmlTextWriter with specified URL.
Dim myXmlReader As New XmlTextReader("All_VB.wsdl")
Dim myServiceDescription As ServiceDescription = _
ServiceDescription.Read(myXmlReader)
myServiceDescription.TargetNamespace = "http://tempuri.org/"
' Remove the service named MathService.
Dim myServiceDescriptionCollection As ServiceCollection = _
myServiceDescription.Services
myServiceDescriptionCollection.Remove( _
myServiceDescription.Services("MathService"))