This documentation is archived and is not being maintained.

ITransportHeaders Interface

Stores a collection of headers used in the channel sinks.

Namespace:  System.Runtime.Remoting.Channels
Assembly:  mscorlib (in mscorlib.dll)

'Declaration
<ComVisibleAttribute(True)> _
Public Interface ITransportHeaders
'Usage
Dim instance As ITransportHeaders

Imports System
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 'Main
End Class 'MyITransportHeadersClass
#using <mscorlib.dll>
#using <System.Runtime.Remoting.dll>
#using <System.dll>
#using <ITransportHeaders_3_Share.dll>
using namespace System;
using namespace System::Collections;
using namespace System::Runtime::Remoting;
using namespace System::Runtime::Remoting::Channels;
using namespace System::Runtime::Remoting::Channels::Tcp;

__gc class MyITransportHeadersClass : public ITransportHeaders
{
   int myInt;
   DictionaryEntry myDictionaryEntry[];
public:
   MyITransportHeadersClass() {
      myInt = 0;
      myDictionaryEntry = new DictionaryEntry[10];
   }
   // Implement the 'Item' property.
   __property Object* ITransportHeaders::get_Item(Object* myKey)
   {
      if(myKey != 0)
      {
         for(int i = 0; i <= myInt; i++)
            if(myDictionaryEntry[i].Key == myKey)
               return myDictionaryEntry[i].Value;
      }
      return 0;
   }
   __property void ITransportHeaders::set_Item(Object* myKey, Object* value)
   {
      myDictionaryEntry[myInt] = DictionaryEntry(myKey, value);
      myInt++;
   }

   // Implement the 'GetEnumerator' method.
   IEnumerator* ITransportHeaders::GetEnumerator()
   {
      Hashtable* myHashtable = new Hashtable();
      for(int j = 0; j < myInt; j++)
         myHashtable->Add(myDictionaryEntry[j].Key, myDictionaryEntry[j].Value);
      return myHashtable->GetEnumerator();
   }

};

int main()
{
   try
   {
      // Create and register a 'TcpChannel' object.
      TcpChannel* myTcpChannel = new TcpChannel(8085);
      ChannelServices::RegisterChannel(myTcpChannel);
      RemotingConfiguration::RegisterWellKnownServiceType(__typeof(MyHelloServer), S"SayHello",
         WellKnownObjectMode::SingleCall);
      // Create an instance of 'myITransportHeadersObj'.
      MyITransportHeadersClass* myITransportHeadersObj = new MyITransportHeadersClass();
      ITransportHeaders* myITransportHeaders = dynamic_cast<ITransportHeaders*>(myITransportHeadersObj);
      // Add items to the header list.
      myITransportHeaders->Item[S"Header1"] = S"TransportHeader1";
      myITransportHeaders->Item[S"Header2"] = S"TransportHeader2";
      // Get the 'ITranportHeader' item value with key 'Header2'.
      Console::WriteLine(S"ITransport Header item value with key 'Header2' is :{0}", myITransportHeaders->Item[S"Header2"]);
      IEnumerator* myEnumerator = myITransportHeaders->GetEnumerator();
      Console::WriteLine( S"     -KEY-      -VALUE-" );
      while ( myEnumerator->MoveNext() )
      {
         // Display the 'Key' and 'Value' of the current element.
         Object* myEntry = myEnumerator->Current;
         DictionaryEntry myDictionaryEntry = *dynamic_cast<__box DictionaryEntry*>(myEntry);
         Console::WriteLine(S"   {0}:   {1}", myDictionaryEntry.Key, myDictionaryEntry.Value);
      }
      Console::WriteLine(S"Hit <enter> to exit...");
      Console::ReadLine();
   }
   catch(Exception* ex)
   {
      Console::WriteLine(S"The following exception is raised on the server side: {0}", ex->Message);
   }
}

Windows 7, Windows Vista, Windows XP SP2, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP Starter Edition, Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, Windows Server 2000 SP4, Windows Millennium Edition, Windows 98

The .NET Framework and .NET Compact Framework do not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.

.NET Framework

Supported in: 3.5, 3.0, 2.0, 1.1, 1.0
Show: