Баг утечка памяти tcp соединения.

[Res5]

Мое приложение имитирует клиент tcp. Данные я принимаю асинхронно по 1ному байту спомощью BeginReceive(client.BeginReceive(state.buffer, 0, 1, 0, AddressOf ReceiveCallback, state)) . К сожалению каждую минуту в памяти приложение увеличивается всреднем на 1н мегабайт. Пробовал делать так client.BeginReceive(state.buffer, 0, 1, 0, new AsyncCallback(AddressOf ReceiveCallback), state) все также увеличивается. Пробовал крутить пустой ReceiveCallback, всеравно. Существует ли способ асинхронного приема без багов в памяти?

[Qwertiy]

А кто будет EndReceive и Dispose вызывать?

[Res5]

Сервер шлет данные постоянно.

[Res5]

Добавил:

Код: Выделить всё

Dim Length as Integer = client.EndReceive(ar)

Память всеравно растет, но уже немного медленней. Тестил на пустом Callback.

[Qwertiy]

Подробнее.

[Res5]

Код: Выделить всё

Public test As Boolean
   
Public Sub ReceiveCallback(ByVal ar As IAsyncResult)

        Dim state As StateWSocket = CType(ar.AsyncState, StateWSocket)
        Dim client As Socket = state.workSocket

        bRecive += 1

        Dim Size As Integer = client.EndReceive(ar)

        If test = False Then

            If BeginShifle = True Then

                crypt.Decrypt(state.buffer) 'класс для расшифровки
                Dim bMPPC() As Byte

                bMPPC = MPPCunpacker.Unpack(state.buffer(0)) 'класс для распаковки

                If IsNothing(bMPPC) = False Then

                    For i = 0 To (bMPPC.Length - 1)

                        GoPacket(bMPPC(i)) 'расшифрованный пакет

                    Next

                End If


            Else

                GoPacket(state.buffer(0)) 'cборка пакета без шифрации по 1ному байту

            End If

        End If

        client.BeginReceive(state.buffer, 0, 1, 0, AddressOf ReceiveCallback, state)

    End Sub

Под "пустым Callback" я имел ввиду присвоение test = True. Данные после авторизации не обрабатываю, а просто пропускаю, чтобы была конкретизация проблемы.

[Qwertiy]

Можно целую программу, которую можно запустить без спецоборудования?

[Res5]

Программа слишком большая. Вродебы нашел причину: If skt.Poll(-1, SelectMode.SelectError) Then . Убрал и память перестала расти.