うまくいったかのように思うのですが、8000バイト程のデータを
クライアントから送信すると、時々受信文字が全て受信されず、
桁欠けしてしまいます。
実際に受信文字を取得している部分は、
Public Sub StartRead()
networkStream.BeginRead(buffer, 0, buffer.Length, callbackRead, Nothing)
End Sub
になるかと思うのですが、全てのデータを受信しているかどうかを判定する
こと等はできないものでしょうか？
'受信バイト数が返る
Dim bytesRead As Integer = networkStream.EndRead(ar)
If bytesRead > 0 Then
'受信文字が有った
'受信部分だけ切り出す
Dim getByte As Byte() = New Byte(bytesRead - 1) {}
For i As Integer = 0 To bytesRead - 1
getByte(i) = buffer(i)
Next
''ここを追加 ↓↓↓↓↓
Thread.Sleep(300)
Do While networkStream.DataAvailable = True
Dim sbuffer = New Byte(9000) {}
Dim sLen As Integer
