本文整理汇总了VB.NET中System.Web.Services.Description.MimeXmlBinding类的典型用法代码示例。如果您正苦于以下问题：VB.NET MimeXmlBinding类的具体用法？VB.NET MimeXmlBinding怎么用？VB.NET MimeXmlBinding使用的例子？那么恭喜您, 这里精选的类代码示例或许可以为您提供帮助。
在下文中一共展示了MimeXmlBinding类的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: MyXmlBinding
' 导入命名空间
Imports System.Web.Services.Description
Imports System.Collections
Imports System.Xml
Class MyXmlBinding
Public Shared Sub Main()
Try
Dim myDescription As ServiceDescription = ServiceDescription.Read _
("MimeXmlBinding_Part_3_Input_VB.wsdl")
' Create the 'Binding' object.
Dim myBinding As New Binding()
' Initialize 'Name' property of 'Binding' class.
myBinding.Name = "MimeXmlBinding_Part_3_ServiceHttpPost"
Dim myXmlQualifiedName As New XmlQualifiedName("s0:MimeXmlBinding_Part_3_ServiceHttpPost")
myBinding.Type = myXmlQualifiedName
' Create the 'HttpBinding' object.
Dim myHttpBinding As New HttpBinding()
myHttpBinding.Verb = "POST"
' Add the 'HttpBinding' to the 'Binding'.
myBinding.Extensions.Add(myHttpBinding)
' Create the 'OperationBinding' object.
Dim myOperationBinding As New OperationBinding()
myOperationBinding.Name = "AddNumbers"
Dim myHttpOperationBinding As New HttpOperationBinding()
myHttpOperationBinding.Location = "/AddNumbers"
' Add the 'HttpOperationBinding' to 'OperationBinding'.
myOperationBinding.Extensions.Add(myHttpOperationBinding)
' Create the 'InputBinding' object.
Dim myInputBinding As New InputBinding()
Dim myMimeContentBinding As New MimeContentBinding()
myMimeContentBinding.Type = "application/x-www-form-urlencoded"
myInputBinding.Extensions.Add(myMimeContentBinding)
' Add the 'InputBinding' to 'OperationBinding'.
myOperationBinding.Input = myInputBinding
' Create an OutputBinding.
Dim myOutputBinding As New OutputBinding()
Dim myMimeXmlBinding As New MimeXmlBinding()
' Initialize the Part property of the MimeXmlBinding.
myMimeXmlBinding.Part = "Body"
' Add the MimeXmlBinding to the OutputBinding.
myOutputBinding.Extensions.Add(myMimeXmlBinding)
' Add the 'OutPutBinding' to 'OperationBinding'.
myOperationBinding.Output = myOutputBinding
' Add the 'OperationBinding' to 'Binding'.
myBinding.Operations.Add(myOperationBinding)
' Add the 'Binding' to 'BindingCollection' of 'ServiceDescription'.
myDescription.Bindings.Add(myBinding)
' Write the 'ServiceDescription' as a WSDL file.
myDescription.Write("MimeXmlBinding_Part_3_Output_VB.wsdl")
Console.WriteLine("WSDL file with name 'MimeXmlBinding_Part_3_Output_VB.wsdl' is" + _
" created successfully.")
Catch e As Exception
Console.WriteLine("Exception: {0}", e.Message)
End Try
End Sub
End Class