如何通过（异步）网络通信处理消息响应 (VB.NET)

Question

我正在编写一个应用程序，它通过网络将消息发送到另一台处理该消息并发回回复的电脑（例如布尔值或其他一些数据）。 我的网络通信子系统（基于 WCF）使我能够向另一台 PC 发送消息并处理任何收到的消息。

问题是，收到的任何响应都由我指定的网络消息事件处理程序子程序处理，但我无法将其反馈给调用发送原始消息的子程序。

为了快速说明，情况是这样的：

Private Function NetSendMessage(ByVal message As String) As Boolean 
    'Send network message to PC with device connected 
    '.... 
    'returns true if message sent 
End Function 

Private Sub NetMessageReceived(ByVal sender As Object, ByVal e As MessageEventArgs) Handles NetComm.OnReceiveMessage 
    'Handles incoming messages 
    '.... 
End Sub 

Private Function MoveForward() As Boolean 
    Return (MoveLeftWheel() And MoveRightWheel()) 
End Function 

Private Function MoveLeftWheel() As Boolean 
    If NetSendMessage("MoveLeftWheel") = False Then Return False 

    'Network message went through, now we need to know if the command was executed, which the remote PC will tell us 
    Return ______  *(here is the trouble-- how do I get the boolean response from the other side as to whether this worked or not?)*
End Function 

Private Function MoveRightWheel() As Boolean 
    If NetSendMessage("MoveRightWheel") = False Then Return False 

    Return ______ 
End Function

到目前为止我想到的解决方案比这可能需要的更复杂。

我的一个想法是添加一个 ID 号来标识每条消息（另一方将在其响应中包含该 ID 号），然后我将拥有一个用于“消息队列”的 ArrayList。 NetMessageReceived 子组件会将任何新消息添加到此 ArrayList，并且任何需要回复的函数都会监视队列以查看其响应是否到达。 它会是这样的：

Private NetMessageQueue as New ArrayList 
Private LatestMessageID as Integer 

Private Sub NetMessageReceived(ByVal sender As Object, ByVal e As MessageEventArgs) Handles NetComm.OnReceiveMessage 
    'Handles incoming messages 
    NetMessageQueue.Add(e.Message.ToString) 
End Sub 

Private Function MoveLeftWheel() As Boolean 
    'Send network message to robot PC 

    Private MyMessageID as Integer = LatestMessageID + 1 

    NetSendMessage(MyMessageID & "|" & "MoveLeftWheel") 

    Do 
            For Each msg As String in NetMessageQueue 
                    If msg.Split("|")(0) = MyMessageID.ToString Then 
                            'This is the response message we're waiting for 
                            Return Boolean.Parse(msg.Split("|")(1)) 
                    End If 
            Next 
    Loop 
End Function 

这似乎是一种非常麻烦/不必要的繁重的方式来做到这一点。 我正在考虑添加一个 NetSendReceive 函数，比如说 MoveRightWheel 可以调用的函数； NetSendReceive将调用NetSendMessage，监视消息队列的响应（可能通过委托/IAsyncResult），然后返回响应消息（到MoveRightWheel，它将等待它）。

可能有更好的方法来做到这一点 - 有什么想法吗？

Answer 1

如果您将所有这些都封装在一个类中怎么办？ 那么想法是在每个实例中只有一个“NetComm”对象。 假设您调用类 MessagingUtility。 每当您想发送新消息时，您都必须拨打电话

Dim myMessage As New MessagingUtility()
myMessage.NetSendMessage("Hello World")

或类似的电话。

当许多其他消息大约在同一时间发送时，这将防止您丢失消息上下文的可能性。 因为毕竟，您想要的给定消息的每个属性都将整齐地包含在 myMessage 对象中。