VB6 异步 Tcp 客户端截断传入消息

Question

我有一个 C# Tcp 服务器，它将消息发送到注册的 VB6 Tcp 客户端。消息的接收是使用 WinSock 以异步方式完成的。因此，“已完成”消息出现的 VB6 部分如下所示：

Private Sub wskConnect_DataArrival(ByVal bytesTotal As Long)
   Dim sBuff As String
   wskConnect.GetData sBuff, vbString       '-- Retrieve sent value
   ProcessMessage sBuff                     '-- Process the value
End Sub

问题是 C# Tcp 服务器正在发送长度为 6874 的字符串，但是当我们检查 DataArrival 事件触发时收到的消息大小时，它测量结果仅为 2920。很明显，传入消息的截断是一个严重的问题。

以前有人观察过这一点吗？

Answer 1

正如我在这里所说的VB6 WinSock TCP客户端和.NET TCP服务器：

这是一种常见的误解，认为您正在接收消息。你
正在接收字节流。 sBuff 可能包含 1 个字节，也可能
通常包含构成您的信息的 50%（如果它们很小）
足够了）它可以包含 100% 的信息，有时它可以
包含超过 100%（意味着它包含下一条消息的某些部分）。
如果没有看到 ProcessMessage 中的代码，我无法确定您有
问题，但你应该确保该方法可以处理所有这些
场景

仅因为您在 DataArrival 上仅看到数据长度 2920，并不意味着数据已被截断。这只是意味着这就是当时可用的全部。将该数据读入缓冲区，然后当您发送的下一部分数据可用时，该事件将再次触发。继续读取可用数据并将其附加到缓冲区，直到获得完整消息。

Answer 2

使用mscomm控件也存在同样的问题。
处理异步事件总是很困难。

首先这是我个人的处理方式
可能以其他更好的方式存在。所以这又多了一种选择。

我不止一次遇到这个问题，而且经常忘记如何解决
处理这个问题。所以这也是我个人的参考

首先

create time of expiration when it became to be reached 
the information should be complete

，我们需要了解事件是如何发生的

图形视图是死区时间，死区时间只是一个时间段

现在，在 vb6 中，当异步事件发生时，也需要在不同时刻发生两个操作，但在同一时刻进行测试

Action #1 that action update the current time 

Actions #2 that is limited to update the time current time for async event

Both event are combined on one infinity loop method
the purpose is check current time against the current time of async event

此外，我们还需要一些实用程序来跟踪我使用 win api GetTickCount 的时间。

在 mscomm 中，我们还需要添加标志和字符串，以了解是否收到了一些信息不用等那么多调用端口中的接口

此外，代码可以抛出事件以供重用和隔离

，现在可以看到 vb6 类的骨架，

class Module SocketReceptorVb6

   Private Declare Function GetTickCount Lib "kernel32" () As Long   ' API tick

   withevents _tcpControll as Winsock

   private m_currentState As Eventstate  'is a enumerate Waiting, Receiving
   private m_currentTimeAsynEvent As Long  ' current time for async event
   private m_buffer As String
   private m_timeOut as Long

   Public Event StreamReceived(ByVal stream As String) 'Event completed

   Property TimeOut

   private sub Class_Initialize() 
     m_currentState = Waiting
   end sub

   sub tcpControl_DataArrival(bytesTotal)          

   sub Receiving

   sub InitFlags       

End Class

现在可以更仔细地查看 3 个方法

InitFlags Method

，即清理变量并准备环境，请参阅

m_currentState = Waiting //state of the process
m_buffer = vbNullString  //reset the buffer used for the information

内容

tcpControl_DataArrival Method

该方法具有

   -update buffer 
   -initialize infinity loop 
   -update m_currentTimeAsynEvent

该方法的下一个职责内容

Dim sBuff As String
wskConnect.GetData sBuff, vbString

m_buffer = m_buffer & sBuff

' update time for Asyn Event
m_currentTimeAsynEvent = GetTickCount()

if m_currentState = Waiting then
  m_currentState = Receiving
  InfinityLoop()
end if

 

InfinityLoop Method
verify that the expiration time has been reached

 

Content method

Dim current_time As Long        ' the time point o current time

 Do
     current_time = GetTickCount()
     ' timeout reach, exit of loop
     If current_time > m_currentTimeAsynEvent + m_timeOut Then
         Exit Do
     End If
     DoEvents
 Loop

 RaiseEvent StreamReceived(m_buffer)
 InitFlags 'Reset flags and variables

笔记：
该代码预期导致单个流而不是多个套接字响应