Повреждение данных в Visual Basic TCP

Question

У меня есть программа, которая использует TCP для связи между клиентом и сервером.Клиент отправляет байтовый массив изображения BMP.Слушатель читает байты кусками и соединяет их вместе, чтобы получить изображение.Когда сервер / слушатель получает изображение, оно почти наполовину повреждено.

При использовании localhost для проверки на моем компьютере вероятность повреждения меньше, однако больший размер массива байтов = больше повреждения)когда через интернет он поврежден 99% времени независимо от размера.Я также попытался разбить массив байтов и отправить его на сервер по частям, это, кажется, исправляет повреждение на локальном хосте, но остается неизменным при работе через Интернет.

Может ли кто-нибудь сказать мне, что я делаюздесь не так?

Код слушателя, работающий в таймере:

If Listener.Pending = True Then
Client = Listener.AcceptTcpClient()
Message = ""
Dim ClientNetworkStream As NetworkStream = Client.GetStream
ReDim ReadBytes(-1)
If ClientNetworkStream.CanRead = True Then
    Dim ReadBuffer(65535) As Byte
    Dim NumberOfBytesRead As Integer = 0
    Do
    NumberOfBytesRead = ClientNetworkStream.Read(ReadBuffer, 0, ReadBuffer.Length)
    If Not NumberOfBytesRead = 0 Then
        If Not NumberOfBytesRead = -1 Then
            ReadBytes = AppendByteArrays(ReadBytes, ReadBuffer, NumberOfBytesRead)
            If ConvoOngoing = False Then
            ReDim CurrentConvoBytes(-1)
            ConvoOngoing = True
            CurrentConvoBytes = ReadBytes
        Else
            CurrentConvoBytes = AppendByteArrays(CurrentConvoBytes, ReadBytes)
        End If
    End If
End If
Loop While ClientNetworkStream.DataAvailable
    If ClientNetworkStream.DataAvailable = False Then
        If ConvoOngoing = True Then
            If ReadBytes.Length > 0 Then
                CurrentConvoBytes = AppendByteArrays(CurrentConvoBytes, ReadBytes)
            End If
        ConvoOngoing = False
        PictureBox1.Image = ConvertByteArrayToBMP(CurrentConvoBytes)
        End If
    End If
End If
End If

Вот код отправителя:

    Private Sub SendWhole(ByVal BytesToSend() As Byte, ByVal Optional isFile As Boolean = False)
    Client = New TcpClient(TextBox2.Text, TextBox3.Text)
    Dim ClientStream As NetworkStream = Client.GetStream
    ClientStream.Write(BytesToSend, 0, BytesToSend.Length)
    ClientStream.Close()
End Sub

И код для AppendByteArrays, используемый в коде:

    Public Function AppendByteArrays(ByVal OriginalArray As Byte(), ByVal ArrayToAppend As Byte(), ByVal Optional AmountOfValuesToAdd As Integer = -1) As Byte()
    Dim IndexToStart As Integer = OriginalArray.Length
    Dim Modifier As Integer = 0
    If Not AmountOfValuesToAdd = -1 Then
        Modifier = AmountOfValuesToAdd - 1
    Else
        Modifier = -1
    End If
    If Modifier = -1 Then
        ReDim Preserve OriginalArray((OriginalArray.Length) + (ArrayToAppend.Length - 1))
        For i = 0 To ArrayToAppend.Length - 1
            OriginalArray(IndexToStart + i) = ArrayToAppend(i)
        Next
    Else
        ReDim Preserve OriginalArray((OriginalArray.Length) + Modifier)
        For i = 0 To Modifier
            OriginalArray(IndexToStart + i) = ArrayToAppend(i)
        Next
    End If
    Return OriginalArray
End Function

Редактировать: Вот бит, где я не могу понять математическое право

        If Listener.Pending = True Then
        Client = Listener.AcceptTcpClient()
        Dim ClientNetworkStream As NetworkStream = Client.GetStream
        ReDim ReadBytes(-1)
        If ClientNetworkStream.CanRead = True Then
            Dim ReadBuffer(65535) As Byte
            Dim NumberOfBytesRead As Integer = 0
            Do
                NumberOfBytesRead = ClientNetworkStream.Read(ReadBuffer, 0, ReadBuffer.Length)
                If Not NumberOfBytesRead = 0 Then
                    If Not NumberOfBytesRead = -1 Then
                        If ReadingPacket = False Then
                            If PacketHasLeftOvers = True Then
                                PacketHasLeftOvers = False
                                ReadBuffer = AppendByteArrays(PacketLeftOvers, ReadBuffer)
                                ReDim PacketLeftOvers(-1)
                            End If
                            ReadingPacket = True
                            PacketToReadSize = BitConverter.ToInt32(ReadBuffer, 0)
                            PacketType = ReadBuffer(4)
                            ReDim CurrentConvoBytes(-1)
                            ReadBytes = AppendByteArrays(ReadBytes, ReadBuffer.Skip(5).ToArray, NumberOfBytesRead - 5)
                            CurrentConvoBytes = ReadBytes
                            PacketReadSize = ReadBytes.Length - 1
                            If PacketReadSize = PacketToReadSize Then
                                'Check if already finished reading
                                PictureBox1.Image = ConvertByteArrayToBMP(CurrentConvoBytes)
                                PacketReadSize = 0
                                ReadingPacket = False
                            End If
                        Else
                            Dim PacketScore As Integer = PacketReadSize + NumberOfBytesRead
                            If PacketScore < PacketToReadSize Then
                                ReadBytes = AppendByteArrays(ReadBytes, ReadBuffer, NumberOfBytesRead)
                                CurrentConvoBytes = AppendByteArrays(CurrentConvoBytes, ReadBytes)
                                PacketReadSize += ReadBytes.Length - 1
                            ElseIf PacketScore > PacketToReadSize Then
                                ReadBytes = AppendByteArrays(ReadBytes, ReadBuffer, NumberOfBytesRead - (PacketToReadSize - PacketReadSize))
                                CurrentConvoBytes = AppendByteArrays(CurrentConvoBytes, ReadBytes)
                                PacketHasLeftOvers = True
                                PacketLeftOvers = ReadBuffer.Skip(PacketToReadSize - PacketReadSize).ToArray
                                PictureBox1.Image = ConvertByteArrayToBMP(CurrentConvoBytes)
                                PacketReadSize = 0
                                ReadingPacket = False
                            ElseIf PacketScore = PacketToReadSize Then
                                ReadBytes = AppendByteArrays(ReadBytes, ReadBuffer, NumberOfBytesRead)
                                CurrentConvoBytes = AppendByteArrays(CurrentConvoBytes, ReadBytes)
                                PictureBox1.Image = ConvertByteArrayToBMP(CurrentConvoBytes)
                                PacketReadSize = 0
                                ReadingPacket = False
                            End If
                        End If
                    End If
                Else
                    Throw New Exception
                End If
            Loop While ClientNetworkStream.DataAvailable
        End If
    End If