1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
Public Sub Start(ByVal ConfigPort As Integer)
#If DEBUG Then
If Not Debugger.IsAttached Then
Debugger.Launch
End If
#End If
For Each c As IChannel In ChannelServices.RegisteredChannels
If TypeOf (c) Is IChannelReceiver Then
Dim cReceiver As IChannelReceiver = TryCast(c, IChannelReceiver)
If c.ChannelName = "SWXServiceConfigTCP" AndAlso cReceiver.ChannelData IsNot Nothing AndAlso cReceiver.ChannelData.GetType Is GetType(ChannelDataStore) Then
For Each strUri As String In DirectCast(cReceiver.ChannelData, ChannelDataStore).ChannelUris
If strUri.Contains(":" & ConfigPort) Then
ChannelServices.UnregisterChannel(c)
Exit For
End If
Next
'ElseIf c.ChannelName = "SWXServiceConfigTCP" Then
' ChannelServices.UnregisterChannel(c)
End If
End If
Next
Dim Channel As IChannelReceiver = Nothing
Channel = New TcpServerChannel("SWXServiceConfigTCP", ConfigPort)
ChannelServices.RegisterChannel(Channel, False)
RemotingConfiguration.RegisterWellKnownServiceType(GetType(SWXServiceConfig), "SWXServiceConfig", WellKnownObjectMode.Singleton)
End Sub |
Partager