NETリモーティング(TCP) 双方向通信 (ID:147149)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

NETリモーティング(TCP)にて双方向通信を行いたい
環境(VB2008 or VB2010)

Client → Server = OK
Server → Client = NG (色々試したが・・・)

以下がソースです。宜しくお願いします。

------ 共有クラス ------------------
( 送受信用に２つのクラスを作成 )

Imports System.Runtime.Remoting
'メッセージクラス
Public Class MessageClass
    Inherits MarshalByRefObject

' 受信イベント(サーバ)
    Public Event RecvMsg_Server(ByVal msg As String)

' 受信イベント(クライアント)
    Public Event RecvMsg_Client(ByVal msg As String)

' 送信メソッド(クライアント)
    Public Sub SendMsg_Client(ByVal msg As String)
        ' 受信用イベント発生
        RaiseEvent RecvMsg_Server(msg)
    End Sub

' 送信メソッド(サーバ)
    Public Sub SendMsg_Server(ByVal msg As String)
        ' 受信用イベント発生
        RaiseEvent RecvMsg_Client(msg)
    End Sub
End Class

------ サーバ ----------------------
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp

Public Class Fm_Server

' 受信用のチャンネル
    Private RecvCh As TcpChannel

' 送受信用のメッセージクラス
    Private WithEvents MesObj As New Serviceclass.MessageClass

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

' HTTPチャンネルを設定する
        RecvCh = New TcpChannel(9000)

ChannelServices.RegisterChannel(RecvCh, False)

Dim ref1 As ObjRef = RemotingServices.Marshal(MesObj, "TaskManager")

' ハンドルを登録する
        AddHandler MesObj.RecvMsg_Server, AddressOf RecvMsg

' 受付を開始する
        RecvCh.StartListening(Nothing)
    End Sub

Private Sub RecvMsg(ByVal msg As String)

' メッセージを受信
        Me.LabelMessage.Text = msg

Dim SendObj As Serviceclass.MessageClass = New Serviceclass.MessageClass

' メッセージを送信
        SendObj.SendMsg_Client("受け取りました")
    End Sub
End Class

------- クライアント ----------------------
(ハンドルを登録部分を色々と変えてみたが・・・)

Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp

Public Class Fm_Client

' 受信用のチャンネル
    Private SendCh As TcpChannel

Private WithEvents MesObj As Serviceclass.MessageClass

Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click

MesObj = New Serviceclass.MessageClass

' メッセージを送信する
        MesObj.SendMsg_Client(TextBox1.Text)

' ハンドルを登録
        'AddHandler MesObj.RecvMsg_Client, AddressOf RecvMsg
    End Sub

Private Sub Fm_Client_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load

' 送信用のチャンネル
        SendCh = New TcpChannel()

ChannelServices.RegisterChannel(SendCh, False)

RemotingConfiguration.RegisterWellKnownClientType( _
            GetType(Serviceclass.MessageClass), _
            "tcp://localhost:9000/TaskManager")

End Sub

Private Sub RecvMsg(ByVal msg As String)

' メッセージを受信
        Me.TextBox2.Text = msg
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る