本文整理汇总了VB.NET中System.Runtime.Remoting.Channels.ITransportHeaders.GetEnumerator方法的典型用法代码示例。如果您正苦于以下问题:VB.NET ITransportHeaders.GetEnumerator方法的具体用法?VB.NET ITransportHeaders.GetEnumerator怎么用?VB.NET ITransportHeaders.GetEnumerator使用的例子?那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Runtime.Remoting.Channels.ITransportHeaders
的用法示例。
在下文中一共展示了ITransportHeaders.GetEnumerator方法的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: MyITransportHeadersClass
' 导入命名空间
Imports System.Collections
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Class MyITransportHeadersClass
Implements ITransportHeaders
Private myInt As Integer = 0
Private myDictionaryEntry(9) As DictionaryEntry
' Implement the 'Item' property.
Property ITransportHeaders(myKey As Object) As Object Implements ITransportHeaders.Item
Get
If Not (myKey Is Nothing) Then
Dim i As Integer
For i = 0 To myInt
If myDictionaryEntry(i).Key = myKey Then
Return myDictionaryEntry(i).Value
End If
Next i
End If
Return 0
End Get
Set
myDictionaryEntry(myInt) = New DictionaryEntry(myKey, value)
myInt += 1
End Set
End Property
' Implement the 'GetEnumerator' method.
Function GetEnumerator() As IEnumerator Implements ITransportHeaders.GetEnumerator
Dim myHashtable As New Hashtable()
Dim j As Integer
For j = 0 To myInt - 1
myHashtable.Add(myDictionaryEntry(j).Key, myDictionaryEntry(j).Value)
Next j
Return myHashtable.GetEnumerator()
End Function 'ITransportHeaders.GetEnumerator
Public Shared Sub Main()
Try
' Create and register a 'TcpChannel' object.
Dim myTcpChannel As New TcpChannel(8085)
ChannelServices.RegisterChannel(myTcpChannel)
RemotingConfiguration.RegisterWellKnownServiceType(GetType(MyHelloServer), "SayHello", _
WellKnownObjectMode.SingleCall)
' Create an instance of 'myITransportHeadersObj'.
Dim myITransportHeadersObj As New MyITransportHeadersClass()
Dim myITransportHeaders As ITransportHeaders = _
CType(myITransportHeadersObj, ITransportHeaders)
' Add items to the header list.
myITransportHeaders("Header1") = "TransportHeader1"
myITransportHeaders("Header2") = "TransportHeader2"
' Get the 'ITranportHeader' item value with key 'Header2'.
Console.WriteLine("ITransport Header item value with key 'Header2' is :" + _
myITransportHeaders("Header2"))
Dim myEnumerator As IEnumerator = myITransportHeaders.GetEnumerator()
Console.WriteLine(" -KEY- -VALUE-")
While myEnumerator.MoveNext()
' Display the 'Key' and 'Value' of the current element.
Dim myEntry As Object = myEnumerator.Current
Dim myDictionaryEntry As DictionaryEntry = CType(myEntry, DictionaryEntry)
Console.WriteLine(" {0}: {1}", myDictionaryEntry.Key, myDictionaryEntry.Value)
End While
Console.WriteLine("Hit <enter> to exit...")
Console.ReadLine()
Catch ex As Exception
Console.WriteLine("The following exception is raised on the server side: " + ex.Message)
End Try
End Sub
End Class