IPC チャネルを使用したプロセス間通信について

//サーバー ( C# )

class Program

{

   static void Main(string[] args)

   {



      IpcServerChannel serverChannel = new IpcServerChannel("remote");

      ChannelServices.RegisterChannel(serverChannel, true);



      RemotingConfiguration.RegisterWellKnownServiceType(typeof(IPCData), "IPCData", WellKnownObjectMode.Singleton);



      IPCData ipcd = new IPCData();

      ipcd.Status = 1;



      Console.ReadLine();

   }

}





'クライアント ( VB )

Public Class Form1



   Private timer As Timer



   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load



      Dim iPCClientChannel As New IpcClientChannel()

      ChannelServices.RegisterChannel(iPCClientChannel, True)

      RemotingConfiguration.RegisterWellKnownClientType(GetType(IPCData), "ipc://remote/IPCData")



      Dim timerDelegate As TimerCallback = New TimerCallback(AddressOf MyClock)

      timer = New Timer(timerDelegate, Nothing, 0, 1000)



   End Sub



   Private Sub MyClock(ByVal o As Object)

      Dim ipcd As New IPCData()        

      Console.WriteLine("Status : {0}", ipcd.Status)

   End Sub



End Class





//IPC オブジェクト ( C# )

public class IPCData : MarshalByRefObject

{



   private int _Status;



   public int Status

   {

      get

      { 

         return _Status;

      }

      set

      {

         _Status = value;

      }

   }



}

//サーバー ( C# )
class Program
{
   static void Main(string[] args)
   {

      IpcServerChannel serverChannel = new IpcServerChannel("remote");
      ChannelServices.RegisterChannel(serverChannel, true);
      RemotingConfiguration.RegisterWellKnownServiceType(typeof(IPCData), "IPCData", WellKnownObjectMode.Singleton);

      Console.ReadLine();

   }
}


'クライアント1 ( VB )
Public Class Form1
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

      Dim iPCClientChannel As New IpcClientChannel()
      ChannelServices.RegisterChannel(iPCClientChannel, True)
      RemotingConfiguration.RegisterWellKnownClientType(GetType(IPCData), "ipc://remote/IPCData")

      Dim ipcd As New IPCData()        
      Console.WriteLine("Status : {0}", ipcd.Status)

   End Sub
End Class


'クライアント2 ( VB )
Public Class Form2
   Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

      Dim iPCClientChannel As New IpcClientChannel()
      ChannelServices.RegisterChannel(iPCClientChannel, True)
      RemotingConfiguration.RegisterWellKnownClientType(GetType(IPCData), "ipc://remote/IPCData")

      Dim ipcd As New IPCData()        
      ipcd.Status = 1

   End Sub
End Class


//IPC オブジェクト ( C# )
public class IPCData : MarshalByRefObject
{
   private int _Status;
   public int Status
   {
      get
      { 
         return _Status;
      }
      set
      {
         _Status = value;
      }
   }
}