本文整理匯總了VB.NET中System.Runtime.Remoting.Messaging.CallContext.FreeNamedDataSlot方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET CallContext.FreeNamedDataSlot方法的具體用法？VB.NET CallContext.FreeNamedDataSlot怎麽用？VB.NET CallContext.FreeNamedDataSlot使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Runtime.Remoting.Messaging.CallContext的用法示例。
在下文中一共展示了CallContext.FreeNamedDataSlot方法的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: TcpChannel
' Register the channel.
Dim myChannel As New TcpChannel()
ChannelServices.RegisterChannel(myChannel)
RemotingConfiguration.RegisterActivatedClientType(GetType(HelloService), "Tcp://localhost:8082")
Dim myIdentity As New GenericIdentity("Bob")
Dim myPrincipal As New GenericPrincipal(myIdentity, New String() {"Level1"})
Dim myData As New MyLogicalCallContextData(myPrincipal)
' Set DataSlot with name parameter.
CallContext.SetData("test data", myData)
' Create a remote object.
Dim myService As New HelloService()
If myService Is Nothing Then
Console.WriteLine("Cannot locate server.")
return
End If
' Call the Remote methods.
Console.WriteLine("Remote method output is " + myService.HelloMethod("Microsoft"))
Dim myReturnData As MyLogicalCallContextData = _
CType(CallContext.GetData("test data"), MyLogicalCallContextData)
If myReturnData Is Nothing Then
Console.WriteLine("Data is null.")
Else
Console.WriteLine("Data is '{0}'", myReturnData.numOfAccesses)
End If
' DataSlot with same Name Parameter which was Set is Freed.
CallContext.FreeNamedDataSlot("test data")
Dim myReturnData1 As MyLogicalCallContextData = _
CType(CallContext.GetData("test data"), MyLogicalCallContextData)
If myReturnData1 Is Nothing Then
Console.WriteLine("FreeNamedDataSlot Successful for test data")
Else
Console.WriteLine("FreeNamedDataSlot Failed for test data")
End If