Утечка памяти

[admsasha]

Есть вот такой код

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

Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading

Module Module1
    Private Structure arrstream
        Dim St1 As System.Net.Sockets.NetworkStream
        Dim St2 As System.Net.Sockets.NetworkStream
    End Structure

    Sub Main()

        Console.Write("Server starting... " & vbCrLf)

        Dim Thread = New System.Threading.Thread(AddressOf tListener)
        Thread.Start()

    End Sub

    Private Sub tListener()
        Dim Client As Net.Sockets.TcpClient
        Dim Stream As System.Net.Sockets.NetworkStream
        Dim Stream2 As System.Net.Sockets.NetworkStream
        Dim st As arrstream
        'Dim Server = New TcpClient

        Dim Listener = New TcpListener(Net.IPAddress.Any, 1234)
        Listener.Start()

        While True
            Client = Listener.AcceptTcpClient()
            Try

                Console.Write("new client: " & Client.Client.RemoteEndPoint.ToString & vbCrLf)

                Dim Server = New TcpClient("10.10.1.1", "8888")

                Stream = Client.GetStream()
                Stream2 = Server.GetStream()

                st.St1 = Stream
                st.St2 = Stream2

                Dim Thread = New System.Threading.Thread(AddressOf srv1)
                Thread.Start(st)
                Thread.Join()

                Dim Thread2 = New System.Threading.Thread(AddressOf srv2)
                Thread2.Start(st)
                Thread2.Join()


            Catch ex As Exception
                Console.Write(ex.Message & vbCrLf)
            End Try

        End While
    End Sub

    Private Sub srv1(ByVal st As arrstream)
        Dim byte1(1024) As [Byte] 'Buffer
        Dim message As String
        'Dim st As arrstream
        Dim Stream As System.Net.Sockets.NetworkStream
        Dim Stream2 As System.Net.Sockets.NetworkStream


        Stream = st.St1
        Stream2 = st.St2

        Try
            While True
                message = Stream.Read(byte1, 0, byte1.Length)
                If Not message > 0 Then
                    Stream.Close()
                    Stream2.Close()
                    Exit Sub
                End If
                message = System.Text.Encoding.GetEncoding("windows-1251").GetString(byte1, 0, message)
                Stream2.Write(byte1, 0, message.Length)
            End While
        Catch ex As Exception
            Console.Write(ex.Message & vbCrLf)
        End Try

    End Sub

    Private Sub srv2(ByVal st As arrstream)
        Dim byte1(1024) As [Byte] 'Buffer
        Dim message As String
        Dim Stream As System.Net.Sockets.NetworkStream
        Dim Stream2 As System.Net.Sockets.NetworkStream

        Stream = st.St1
        Stream2 = st.St2

        Try
            While True
                message = Stream2.Read(byte1, 0, byte1.Length)
                If Not message > 0 Then
                    Stream.Close()
                    Stream2.Close()
                    Exit Sub
                End If

                message = System.Text.Encoding.GetEncoding("windows-1251").GetString(byte1, 0, message)
                Stream.Write(byte1, 0, message.Length)

            End While
        Catch ex As Exception
            Console.Write(ex.Message & vbCrLf)
        End Try

    End Sub

End Module

Если коротко, то сервер сервер должен подключать сколько угодно клиентов и всё что идет на порт 1234, пересылать на 10.10.1.1:8888.

Проблемы. При подключении постоянно выделяется дополнительные 24-44 Кб.

И просьба спецам, оптимизировать и указать какие улучшения можно сделать.

[ANDLL]

Чето какойто бестолковый код в плане потоков.
Зачем писать Thread.start() thread.join??
Вобщем дав основных момента
а) коль скоро код выполняется последовательно избавится от создания useless потоков.
б) Использовать using, везде, где получится.

После этого можно будет чтото сказать, иначе...

[Williams]

Теперь понятно почему раньше VB разработчикам не давали работать с потоками ))
А насчет using это кому как, он создает лишний рельеф, что ухудшает читаемость кода... Я предпочитаю if obj isnot nothing then obj.dispose

[ANDLL]

А насчет using это кому как, он создает лишний рельеф, что ухудшает читаемость кода... Я предпочитаю if obj isnot nothing then obj.dispose

Эээ. Ты о чем?

[Williams]

А насчет using это кому как, он создает лишний рельеф, что ухудшает читаемость кода... Я предпочитаю if obj isnot nothing then obj.dispose

Эээ. Ты о чем?

Ну например

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

Using sr As New StreamReader(SourcePath)
   Using sw As New StreamWriter(DestPath)
       sw.Write(sr.ReadToEnd)
   End Using
End Using

vs

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

Dim sr As New StreamReader(SourcePath)
Dim sw As New StreamWriter(DestPath)
sw.Write(sr.ReadToEnd)
If sw IsNot Nothing Then sw.Dispose()
If sr IsNot Nothing Then sr.Dispose()


В комплесных участках кода это несколько затрудняет понимание (первый вариант)

[ANDLL]

А второй вариант это не то же, что и первый

[Williams]

А второй вариант это не то же, что и первый

Это очередность или что-то еще?

[ANDLL]

using a

end using
это
try

finally
a.dispose
end try
Полагаю понятно что разница существенна и даже более чем?

[Williams]

using a

end using
это
try

finally
a.dispose
end try
Полагаю понятно что разница существенна и даже более чем?

а, ты об этом, технически разница есть, да, но едва-ли здесь может быть исключение отличное от NullReferenceException, которое проверяется при помощи IsNot Nothing, причем даже быстрее

[ANDLL]

Ы? По твоему при записи в поток едва ли может быть исключение? Отнюдь. Может быть куча всего, начиная от сетевых таймаутов и заканчивая отказом оборудывания, не говоря уже о таких как ThreadAbortException, которые могут возникнуть всегда. Думать "в этой строчке не может быть исключений" технически не правильно

[Williams]

Ы? По твоему при записи в поток едва ли может быть исключение? Отнюдь. Есть к примеру ThreadAbortException, и много других которые бывают где угодно. Думать "в этой строчке не может быть исключений" технически не правильно

я про obj.Dispose

[ANDLL]

А это тут при чем?
Ты может не заметил, но тут никакие исключения не обрабатываются.

[Williams]

А это тут при чем?
Ты может не заметил, но тут никакие исключения не обрабатываются.

Вот именно. Тогда причем тут твой пост про сетевые таймауты и отказ оборудования? Если Using все равно от них не спасет, а NullReferenceException на Dispose моего второго фрагмента проверяется при помощи IsNot Nothing? Для того, чтобы поймать остальные исключения, оба блока придется помещать в Try-Catch.

[ANDLL]

Ээ
Ну подумай

[Williams]

<суммаризация>
Либо ты никогда не применял второй метод на практике, либо мы говорим на разных языках. Суть в том, что второй фрагмент кода, который я привел, отлично заменяет первый при более высокой удобочитаемости - использую его в своих проектах весьма комфортно. Отношения Using и Dispose примерно такие же, как у SyncLock с методами Enter и Exit класса Monitor. Более короткий путь подходит далеко не каждому.
</суммаризация>

[ANDLL]

Нет.
Суммаризация - нужно юзать Using, или читать про финализацию и выяснить что же делает try\finally.

уть в том, что второй фрагмент кода, который я привел, отлично заменяет первый при более высокой удобочитаемости

Я не понимаю, до тебя не доходит что куски в viewtopic.php?p=6709572#p6709572 работают по разному в ряде обычных ситуаций?

использую его в своих проектах весьма комфортно

Это не аргумент. Люди конкатенацию в sql-запросах юзают совершенно спокойно, не всем же это советовать

[Williams]

Я понимаю что делает блок Try-Finally и отлично осознаю что можно его использовать напрямую. Но! опять же нужно осуществлять проверку

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

        Dim sw As StreamReader
        Try
            sw = New StreamReader("C:\\non-existingfile.txt")
        Catch ex As Exception
            'Обработка исключения
        Finally
            If sw IsNot Nothing Then sw.Dispose()
        End Try

Using делает часть работы за нас, но присутствуют негативные факторы


ЗЫ про конкатенацию ты это загнул