本文整理匯總了VB.NET中System.Web.Services.Description.MimePart類的典型用法代碼示例。如果您正苦於以下問題:VB.NET MimePart類的具體用法?VB.NET MimePart怎麽用?VB.NET MimePart使用的例子?那麽, 這裏精選的類代碼示例或許可以為您提供幫助。
在下文中一共展示了MimePart類的1個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: MyMimePart
' 導入命名空間
Imports System.Xml
Imports System.Web.Services.Description
Public Class MyMimePart
Public Shared Sub Main()
Dim myServiceDescription As ServiceDescription = _
ServiceDescription.Read("MimePart_3_Input_vb.wsdl")
Dim myServiceDescriptionCol As New ServiceDescriptionCollection()
myServiceDescriptionCol.Add(myServiceDescription)
Dim myXmlQualifiedName As _
New XmlQualifiedName("MimeServiceHttpPost", "http://tempuri.org/")
' Create the Binding.
Dim myBinding As Binding = _
myServiceDescriptionCol.GetBinding(myXmlQualifiedName)
Dim myOperationBinding As OperationBinding = Nothing
Dim i As Integer
For i = 0 To myBinding.Operations.Count - 1
If myBinding.Operations(i).Name.Equals("AddNumbers") Then
myOperationBinding = myBinding.Operations(i)
End If
Next i
' Create the OutputBinding.
Dim myOutputBinding As OutputBinding = myOperationBinding.Output
Dim myMimeXmlBinding As New MimeXmlBinding()
myMimeXmlBinding.Part = "body"
' Create the MimePart.
Dim myMimePart As New MimePart()
myMimePart.Extensions.Add(myMimeXmlBinding)
Dim myMimePartRelatedBinding As New MimeMultipartRelatedBinding()
' Add the MimePart to the MimePartRelatedBinding.
myMimePartRelatedBinding.Parts.Add(myMimePart)
myOutputBinding.Extensions.Add(myMimePartRelatedBinding)
myServiceDescription.Write("MimePart_3_Output_vb.wsdl")
Console.WriteLine( _
"MimePart_3_Output_vb.wsdl has been generated successfully.")
End Sub
End Class