本文整理汇总了VB.NET中System.Runtime.Remoting.Channels.IChannelDataStore接口的典型用法代码示例。如果您正苦于以下问题：VB.NET IChannelDataStore接口的具体用法？VB.NET IChannelDataStore怎么用？VB.NET IChannelDataStore使用的例子？那么恭喜您, 这里精选的接口代码示例或许可以为您提供帮助。
在下文中一共展示了IChannelDataStore接口的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: ServerProcess
' 导入命名空间
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports System.Runtime.Remoting.Services
Imports System.Security.Permissions
Public Class ServerProcess
<PermissionSet(SecurityAction.LinkDemand)> _
Public Shared Sub Main()
Dim myChannel As New TcpChannel(8085)
ChannelServices.RegisterChannel(myChannel)
Dim myService As New MyServiceClass()
' After the channel is registered, register the object
' with remoting infrastructure by calling Marshal method.
Dim myObjRef As ObjRef = RemotingServices.Marshal(myService, "TcpService")
' Get the information contributed by active channel.
Dim myChannelInfo As IChannelInfo = myObjRef.ChannelInfo
Dim myIChannelData As IChannelDataStore
Dim myChannelData As Object
For Each myChannelData In myChannelInfo.ChannelData
If TypeOf myChannelData Is IChannelDataStore Then
myIChannelData = CType(myChannelData, IChannelDataStore)
Dim myUri As String
For Each myUri In myIChannelData.ChannelUris
Console.WriteLine("Channel Uris are -> " + myUri)
Next myUri ' Add custom data.
Dim myKey As String = "Key1"
myIChannelData(myKey) = "My Data"
Console.WriteLine(myIChannelData(myKey).ToString())
End If
Next myChannelData
End Sub
End Class
' Marshal ByRef Object class.
Public Class MyServiceClass
Inherits MarshalByRefObject
Public Function HelloWorld() As String
Return "Hello World"
End Function 'HelloWorld
End Class