アプリケーション間連携

すべての返信

• 

  

  0

  サインインして投票

  自己レスです。

   

  アプリAもアプリBも同一PC上で動作するアプリケーションです。

  2010年5月18日 5:30

  返信

  |

  引用
• 

  

  0

  サインインして投票

  今回されたいことは「異なるプロセス間での通信」であるため、「プロセス間通信」の様々な方法が使用できると思います。
  appDomain 間と言うと、たぶん同じプロセス内での話になると思います。
  
  サンプルの件ですが、１つのソリューションにした方がサンプルとしては解りやすいためにそうなっているものが多いと思いますが、ソリューション内のプロジェクト単位で開発会社が異なっていても良く、同じソリューションである必要はありません。
  同じライブラリを参照している件については、それぞれの会社で同じクラス（通信内容を示すもの）を定義されるとよいはずです（通信内容は取り決めが必要になりますので、同じ定義を行う点には問題は発生しないと思います）。
  まずはそのサンプルの内容を十分に把握されてはいかがでしょうか。
  
  プロセス間通信については、たしかごく最近、Visual Studio フォーラムのどこかにスレッドが上がっていたと思いますし、検索などによって情報はたくさん得られるとも思います。
  （追記：というか、すでに TwSoft さんが書かれたリンク先でも十分な気もしました）
  
  ありました↓
  
  EXE間通信
  http://social.msdn.microsoft.com/Forums/ja-JP/vbgeneralja/thread/af02128a-25ef-4891-a553-3bf493a3e40b
  
  上記のスレッドにも登場しますが、双方が .NET なのでしたら .NET Remoting を使うと、驚くほど簡単に実現できます。
  たとえば IpcServerChannel や TcpServerChannel クラスの MSDN のサンプルなども参考になると思います。

  • 編集済み TH01 2010年5月18日 11:43 追記
  • 回答としてマーク 山本春海 2010年5月21日 1:49

  2010年5月18日 11:37

  返信

  |

  引用
• 

  

  0

  サインインして投票

  TH01様

  ありがとうございます。

  「異なるプロセス間通信」。理解できました。

  その後、参照していたページを参考に、それぞれソリューションを作成しテストしてみました。

  その結果、とりあえず「プロセス間通信」は実現できました。

  が、実際の動きを考えますと、クライアント側のイベント発生で、サーバ側のイベントを起動し

  何らかの動作をさせることが最終目的です。

  そこで下記のサンプルに辿り着きました。

  http://d.hatena.ne.jp/tetsuarossa/20070325/p1

   

  大変お恥ずかしいのですが、C#は経験がなく、このコードのライブラリオブジェクト部分とサーバ側の

  コードをvb.netに置き換えた場合のコードで現在はまっています。

   

  2010年5月19日 1:28

  返信

  |

  引用
• 

  

  0

  サインインして投票

  異なるプロセス間にて、まるでインスタンスを共有しているかのように扱えることがポイントですね。
  ただし役割として、サーバー側／クライアント側、という意識は必要になります。
  
  ※以下は VB.NET にしたものですが、リンク先のそのままではありません。

  '●双方で参照するライブラリ
  Public Class MyRemoteObject
    Inherits MarshalByRefObject
  
    Public Delegate Sub MyEventHandler(ByVal str As String)
    Public Event MyEvent As MyEventHandler
  
    Public Sub RaiseMyEvent(ByVal str As String)
      RaiseEvent MyEvent(str)
    End Sub
  
    Private _myFlag As Boolean
    Public Property MyFlag() As Boolean
      Get
        Return _myFlag
      End Get
      Set(ByVal value As Boolean)
        If _myFlag <> value Then
          _myFlag = value
          RaiseEvent MyFlagChanged(Me, EventArgs.Empty)
        End If
      End Set
    End Property
  
    Public Event MyFlagChanged(ByVal sender As Object, ByVal e As EventArgs)
  End Class
  
  '●サーバー側
  '参照設定の追加：System.Runtime.Remoting
  Imports System.Runtime.Remoting
  Imports System.Runtime.Remoting.Channels
  Imports System.Runtime.Remoting.Channels.Ipc
  '参照設定の追加：通信先との共通ライブラリ
  Imports ClassLibrary1
  
  Module ModuleServer
  
    Sub Main()
  
      Dim servChannel As New IpcServerChannel("remote")
      ChannelServices.RegisterChannel(servChannel, True)
  
      Console.WriteLine("Listening: {0}", servChannel.GetChannelUri())
  
      Dim myRemoteTest As New MyRemoteObject()
      AddHandler myRemoteTest.MyEvent, AddressOf myRemoteTest_MyEvent
      AddHandler myRemoteTest.MyFlagChanged, AddressOf myRemoteTest_MyFlagChanged
  
      RemotingServices.Marshal(myRemoteTest, "test", GetType(MyRemoteObject))
  
      Console.ReadLine()
  
    End Sub
  
    Sub myRemoteTest_MyEvent(ByVal str As String)
      Console.WriteLine(str)
    End Sub
  
    Sub myRemoteTest_MyFlagChanged(ByVal sender As Object, ByVal e As EventArgs)
      Dim myRemoteTest = DirectCast(sender, MyRemoteObject)
      Console.WriteLine("MyFlag プロパティの値が '{0}' に変化しました。", myRemoteTest.MyFlag)
    End Sub
  
  End Module
  
  '●クライアント側
  Imports System.Runtime.Remoting.Channels.Ipc
  Imports System.Runtime.Remoting.Channels
  Imports ClassLibrary1
  
  Module ModuleClient
  
    Sub Main()
  
      Dim clientChannel As New IpcClientChannel()
      ChannelServices.RegisterChannel(clientChannel, True)
  
      Dim myRemoteTest = _
        DirectCast( _
          Activator.GetObject(GetType(MyRemoteObject), "ipc://remote/test"), _
          MyRemoteObject)
  
      myRemoteTest.RaiseMyEvent("クライアントからサーバーへのメッセージです。")
      myRemoteTest.MyFlag = True
  
    End Sub
  
  End Module

  • 回答としてマーク 山本春海 2010年5月21日 1:49

  2010年5月19日 5:38

  返信

  |

  引用
• 

  

  0

  サインインして投票

  自己レスです。

  vb.net版のプロセス間通信がとりあえずできました。

  今回はソリューションを3つ別々に作成しました。
  ・リモートで呼び出されるクラス用ソリューション
  ・サーバ側フォームアプリケーション用ソリューション
  ・クライアント側フォームアプリケーション用ソリューション

  -------------------------------------------------------------------------------------
  クラスのソースは以下の通りです。(アセンブリ名：RemoteObject)

  Public Class RemoteMessage
      Inherits MarshalByRefObject

      Public Delegate Sub CallHandler(ByVal Str As String)
      Public Event eventCall As CallHandler

   

      Public Sub hoge(ByVal str As String)
          RaiseEvent eventCall(str)
      End Sub

  End Class
  -------------------------------------------------------------------------------------

  -------------------------------------------------------------------------------------
  サーバ側では、上記ライブラリとSystem.Runtime.Remotingを参照設定しました。
  サーバ側のForm1のソースは以下のの通りです。

  Imports System.Runtime.Remoting
  Imports System.Runtime.Remoting.Channels
  Imports System.Runtime.Remoting.Channels.Ipc
  Imports RemoteObject

  Public Class Form1
      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
          Dim svChannel As IpcServerChannel = New IpcServerChannel("remote")

          ChannelServices.RegisterChannel(svChannel, True)

          Dim msg As RemoteMessage = New RemoteMessage()
          AddHandler msg.eventCall, New RemoteMessage.CallHandler(AddressOf msg_eventCall)

          RemotingServices.Marshal(msg, "message", GetType(RemoteMessage))
      End Sub

      Private Shared Sub msg_eventCall(ByVal str As String)
          MessageBox.Show(str)
      End Sub
  End Class
  -------------------------------------------------------------------------------------

  -------------------------------------------------------------------------------------
  クライアント側もサーバ側と同じ参照設定をします。
  クライアント側のForm1のコードは以下の通りです。

  Imports System.Runtime.Remoting
  Imports System.Runtime.Remoting.Channels
  Imports System.Runtime.Remoting.Channels.Ipc
  Imports RemoteObject

  Public Class Form1
      Dim clientChannel As IpcClientChannel
      Dim msg As RemoteMessage

      Public Sub New()
          InitializeComponent()

          clientChannel = New IpcClientChannel()

          ChannelServices.RegisterChannel(clientChannel, True)

          msg = DirectCast(Activator.GetObject(GetType(RemoteMessage), "ipc://remote/message"), RemoteMessage)

      End Sub

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          msg.hoge(Now().ToString)
      End Sub
  End Class
  -------------------------------------------------------------------------------------

  とりあえず上記の方法により、クライントのイベントで他のプロセスのイベントが発生し、そこに
  データを受け渡すことができました。

  ありがとうございました。

  • 回答としてマーク 山本春海 2010年5月21日 1:49

  2010年5月19日 5:40

  返信

  |

  引用
• 

  

  0

  サインインして投票

  TH01様
  ありがとうございます。

  書き込みがほぼ同時刻でしたので、たった今アドバイスいただいた内容を確認しました。

  大変参考になり、非常に分かりやすい流れになっていますね。
  (私のは、ワケも分からず、ただひたすらにvb用の記述にしただけですので)

  
  TH01様の方法で、新たにソリューションを作成して見たいと思います。

  
  ありがとうございました。

  2010年5月19日 5:54

  返信

  |

  引用
• 

  

  0

  サインインして投票

  こんにちは、TwSoft さん。
  
  プロセス間通信、解決されてよかったですね。
  
  TH01 さん、情報ありがとうございます。
  解決に有効な情報として TH01 さん情報と、TwSoft さんの自己レスに、勝手ながら回答としてマークさせていただきました。
  今後、このスレッドを参照される方の目にもとまりやすくなりますので、次回からぜひ回答としてマークをしてみてくださいね。
  
  今後とも MSDN フォーラムを宜しくお願いします

   

  ---

   

  マイクロソフト株式会社 フォーラム オペレーター 山本 春海

  2010年5月21日 1:56

  返信

  |

  引用
• 

  

  0

  サインインして投票

  目的は達成できましたが、新たな問題が発生しました。

   

  Dim svChannel As IpcServerChannel = New IpcServerChannel("remote")

  上記箇所で「IPCポートを作成できません。アクセスが拒否されました」というエラーになります。

  このエラーは、以下の手順で発生します。

   

  サーバ側Aを起動 -> クライアント側Bを起動 -> Bから何らかのアクション -> 成功

  -> Aを終了 -> Aを再起動

  このオペレーションで発生します。

  http://www31.atwiki.jp/memo77/pages/25.html

  解決法が上記サイトにあったため、クライアント側のコードに

  msg.hoge(Now().ToString)
  msg = nothing

  を追加しました。

  しかしエラーは回避できません。

   

  この情報が誤りだ･･･という情報もあり、回避策が見つかりません。

  http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=46108&forum=7

   

  アドバイスをお願いいたします。

   

  2010年5月21日 6:06

  返信

  |

  引用
• 

  

  0

  サインインして投票

  ちょっと確認した限りでは同じエラーを再現させることはできなかったのですが、ありえると考えています。
  変数を Nothing にしてもすぐに GC されるわけではありませんので、双方で通信が完全に切れていない場合にエラーになるのだろうかと想像します。
  
  サーバー側を終了する際に、
  servChannel.StopListening(Nothing)
  を実行することで回避できないでしょうか？

  2010年5月21日 9:55

  返信

  |

  引用
• 

  

  0

  サインインして投票

  TH01様

  いつもありがとうございます。

  ご返事できなくて申し訳ございませんでした。

   

  MainメソッドのApplication.Runの後にStopListening(Nothing)を記述してみましたが

  エラーは回避されませんでした。

   

  仕方がないので、今回はエラー処理の中で「プロセスが残っているから、もう少したってから

  起動してください」という感じのメッセージを出すようにしました。

  なんだかカッコ悪い気がしてなりませんが、どのようにしても解決しないため、今回はここで

  諦めます。

   

  端末に依存するかどうかは調べていないため、環境を変えるなどして後日確認してみます。

   

  TH01様、ありがとうございました。

  2010年5月26日 0:38

  返信

  |

  引用
• 

  

  0

  サインインして投票

  こんなスレッド見つけました。
  そこでは質問者さんが StopListening しても駄目と書かれていました。。。お手数おかけしました。
  回答マークの付いている返信がとても有効そうです。
  
  IPCChannel explicit clean-up?
  http://social.msdn.microsoft.com/Forums/en/netfxremoting/thread/d154e4a9-3e31-41a5-944c-db867ca77e9e

  2010年5月26日 4:47

  返信

  |

  引用
• 

  

  0

  サインインして投票

  TH01様

  ありがとうございます。

  エラーを回避することができ、ただしく動作することを確認しましたが、こちらが立てば

  あちらが立たず･･･のような状況に陥りました。

   

  サーバ側起動 -> クライアント側起動 -> クライアント側でイベント発生 -> サーバ側が応答

  -> サーバ側終了 -> サーバ側再起動(エラーなく起動) -> クライアント側でイベント発生

  このタイミングで「IPCポートに書き込むことができません。パイプを閉じています」という

  エラーが発生します。

  Dim svChannel As IpcServerChannel
  Dim channelProperties As New Hashtable()

  channelProperties.Add("portName", "remote")
  channelProperties.Add("exclusiveAddressUse", False)

  svChannel = New IpcServerChannel(channelProperties, Nothing)
  svChannel.IsSecured = False
  ChannelServices.RegisterChannel(svChannel, False)

  Lifetime.LifetimeServices.LeaseTime = TimeSpan.Zero
  Lifetime.LifetimeServices.RenewOnCallTime = TimeSpan.Zero

   

  引き続きチャレンジしてみます。

  2010年5月26日 7:44

  返信

  |

  引用
• 

  

  0

  サインインして投票

  情報が不足しておりますので追記します。

   

  サーバ側を再起動後、数十秒?　ほど経ってからクライアント側でイベントを発生させれば

  正しく動作します。

  サーバ側を再起動後、直ちにクライアント側でイベントを発生させた場合のみ、今回の

  現象が発生します。

  2010年5月26日 8:00

  返信

  |

  引用
• 

  

  0

  サインインして投票

  自己レスです。

   

  今回のエラーはクライアント側のイベントで発生しているエラーでした。

  クライアント側も見直してみます。

  2010年5月26日 8:33

  返信

  |

  引用
• 

  

  0

  サインインして投票

  接続が確立できていないタイミングがあるということですね。
  機能的な制限によるものかどうかは別に、タイミングによってはありうるとは思いますので、再試行（クライアント側）を行うようにして回避するわけにはいかないでしょうか？
  
  それと、StopListening を併用しても駄目でしょうか？
  （こんな不確かなことばかりしか言えなくてすみません。以前行ったテストでは、サーバー側再起動時のクライアント側での「パイプを閉じています」の対策として StopListening は有効でしたので。）

  2010年5月26日 8:39

  返信

  |

  引用
• 

  

  0

  サインインして投票

  TH01様

  度々ご調査いただき、ありがとうございます。

   

  クライアント側のボタンクリック時に、下記のメソッドを実行しています。

  Public Sub ServerCall()

          Dim objRemote = _
              DirectCast( _
                  Activator.GetObject(GetType(RemoteMessage), "ipc://remote/library"),  _
                  RemoteMessage)

          Try
              objRemote.RaiseServerSideEvent()　　'<-ここでエラー

  
          Catch ex As RemotingException
              MessageBox.Show(ex.Message)

          Finally

              objRemote = Nothing

          End Try

  End Sub

   

  サーバ側の終了時にStopListening(Nothing)を記述しておりますが、状況は改善されません。

   

  タイミングといえばタイミングですが、エラー時にメッセージボックスを閉じ、直ちに再度イベントを

  発生させると、正しく動作します。

  再起動する必要はありませんでした。

   

  うまく説明できませんが、サーバ側再起動後、必ず初回のイベントでは「パイプを閉じています」の

  エラーが発生し、2回目以降のイベントは正しく処理されているような状況です(再起動必要なし)。

   

  ですので、最悪はエラー時に「前回の情報が残っています。アプリAとアプリBを再起動してください」

  といったようなアラートを出そうかなと考えております。

   

  2010年5月26日 9:13

  返信

  |

  引用
• 

  

  0

  サインインして投票

  情報に少々誤りがありました。

   

  必ず初回のイベントでエラーになるわけではなく、やはり再起動してから初回のイベントが

  発生するまでの時間が問題のようです(再起動するまでの時間も同様)。

  およそですが、15秒から20秒待ってからのイベントではエラーになりません。

   

  ですので、TH01様にご指摘いただきましたとおり、やはり「タイミング」のようです。

  エラー処理で前回の投稿に書いたようなメッセージを表示させ、対応することとします。

  2010年5月26日 9:22

  返信

  |

  引用