在接收数据时，数据长度不定，但是有一组数据比较大，是分多个包发送过来的，其中第一个包中有整个数据的长度，当遇到这个数据是，怎么样处理才能把所有的数据接收完，并放入一个数组或是字串中？
本人小白，请高手指点

如果清楚数据格式，应该很容易接受并处理。其实winsocket发送接受数据更需要处理的是丢包情况，虽然tcp/ip协议说确保数据送达，但实际处理中，当不间断处理大于2k以上数据时的确会丢失数据。

没用动态数组?

我的源码如下，请大神帮忙看看中间红色部分该如何处理取完整数据
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim S, S3, s1, flag, flag1 As String
Dim id, strlen As Integer
Dim tmp As String
Dim str() As Byte
Winsock1.getData str()
strdata = StrConv(str(), vbUnicode)                                    '转换为字符串，
flag = Left(strdata, 2)

'log.Text = log.Text & Format(Hour(Time), "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00") & " " & strdata   '显示日志
'log.SelStart = Len(log.Text)

Select Case flag
   
   Case "E1"                                        '登录
      Sleep 200
      Login   '登录
      log.Text = log.Text & Format(Hour(Time), "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00") & " " & "admin" & vbCrLf  '显示日志

  Case "E0"
       u = u + 1
       log.Text = log.Text & Format(Hour(Time), "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00") & " " & strdata   '显示日志
       log.SelStart = Len(log.Text)
        If u = 1 Then
    '     Sleep 500
        log.Text = log.Text & Format(Hour(Time), "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00") & " " & "登录成功" & vbCrLf   '显示日志
        state_lab = "TCP/IP Connect OK"                  '登录成功
        log.SelStart = Len(log.Text)
        End If
  Case "EA"                                         '温度值返回
       S = strdata
       log.Text = log.Text                          '不显示日志
       log.SelStart = Len(log.Text)
        S3 = Split(S, "^C", , vbTextCompare)
        For j = 1 To UBound(S3)
            s1 = Split(S3(j), vbCrLf)(0)
            s1 = Trim(s1)
            If Format(s1) > Val(Form4.CH(j - 1)) Then
            Form4.CH(j - 1) = Format(s1, "00.0")
            End If
        Next j
        
  Case "EB"                                         '二进制数据返回，
      tmp = StrConv(str(), vbUnicode)
      id = str(9)                                   '取ID ,测试ok
      strlen = HEX_to_DEC(Hex(str(4)) & Hex(str(5)) & Hex(str(6)) & Hex(str(7)))            '取数据长度,测试OK
     
   在此位置该如何处理才能先接收全部的数据？？
  数据格式和使用Wireshark抓包的数据截图如下图

      If id = 19 Then                               '如果ID为19，则为设定信息输出   
       此处为对接收的数据进行处理，同上面温度值取出
      End If
End Select



[ 本帖最后由 hcyang1422 于 2015-4-23 12:48 编辑 ]

分包传送的时候，非第一个包有没有设flag标志？
收到第一个数据包就从第八位开始取值赋到目标数组中，直至本包未两位。
检测到是大数据的分包，就继续向目标数组赋值，直至达到strlen
TCP/IP不用自己考虑校验吧，以前我在vnn上分包传大文件没出过错。

其它包没有FLAG标志，
能帮忙写一下代码吗？

分包没有标志，那就只能case else了。
写了这么多代码，已经实现想要哪个字节就取得哪个字节了。自己完成吧。

不可以使用case else的吧，因为接收到的数据文件类型还可能是不一样的，是要根据头包中的ID位来区分后再处理的。是否能在头包的case中，根据数据长度来完成接收呢？

个人认为这和Winsock没关系
首先，Winsock传输的讯息用GetData后就相当于自己的本地变量了
你现在要做的只是把自己的本地变量想办法标示并将包含特定的字符的变量互相组合
寻找特定的字符串可以用Instr但是要求是传输的讯息丽没有标示字符

第一次GETDATA，得到的只是头包，后面还有多个包呢，该怎么处理才能把后面的数据也GETDATA,并和前面的包合在一起？