Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
 
<Serializable()> _
Public Class DataExchange
    Inherits System.MarshalByRefObject
 
    'Public Overrides Function InitializeLifetimeService() As Object
    'Return Nothing
    'End Function
 
    Enum Mode
        None
        Server
        Client
    End Enum
 
     Const DefaultPort As Integer = 12345
    Const ObjectName As String = "DataExchange.remote"
    Shared s_dx As DataExchange
    Shared s_mode As Mode = Mode.None
 
    Friend Sub New()
    End Sub
    Default Public Property ShareTXT(ByVal name As String) As Object
        Get
            Return AppDomain.CurrentDomain.GetData(name)
        End Get
        Set(ByVal Value As Object)
            AppDomain.CurrentDomain.SetData(name, Value)
        End Set
    End Property
 
    Public Shared Sub InitServer()
        ChannelServices.RegisterChannel(New TcpChannel(DefaultPort))
        RemotingConfiguration.RegisterWellKnownServiceType(GetType( _
          DataExchange), ObjectName, WellKnownObjectMode.Singleton)
        s_dx = New DataExchange
        s_mode = Mode.Server
    End Sub
 
 
    ' <summary>
    ' Initializes data exchange on the client side
    ' </summary>
    Public Shared Sub InitClient()
        If s_mode <> Mode.None Then MsgBox("Server/Client already initialized")
        ChannelServices.RegisterChannel(New TcpChannel)
        s_dx = CType(Activator.GetObject(GetType(DataExchange), String.Format( _
          "tcp://localhost:{0}/{1}", DefaultPort, ObjectName)), DataExchange)
        's_dx = CType(Activator.GetObject(GetType(Class1), "tcp://localhost:" & 
        ' DefaultPort & "/" & ObjectName), Class1)
 
        s_mode = Mode.Client
    End Sub
 
    Public Shared ReadOnly Property Instance() As DataExchange
        Get
            Return s_dx
        End Get
    End Property
 
End Class