本文整理汇总了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"))