为什么客户端接受的数据延时那么长,要5,6秒才显示在文本里

Question

服务器:
Private Sub Command4_Click()'发送
Dim str(1000) As Byte'字节数组
Dim i As Long
For i = 1 To 1000 Step 1
str(i - 1) = &H11
sock1.SendData str(i - 1)
Next i
End Sub客户端:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str1() As Byte '字节型数组
Dim i As Long
ReDim str1(bytesTotal - 1)
Winsock1.GetData str1(), vbArray + vbByte '从服务器接受数据
For i = 1 To bytesTotal Step 1
Text1.Text = Text1.Text & str1(i - 1) & " " '在文本里显示接受到数据
Next i
Text2.Text = bytesTotal
End Sub
请高手指点下,如何提高数据接受的速度.

Answer 1

接受应该没慢,只是TEXT的内容刷新写1000次.应该快不到什么程度.

Answer 2

你是一个字节一个字节发,,当然慢.字节数据TCP可以直接发sock1.SendData str