Потоки потоки... Как убить?

[Klinifini]

Столкнулся с проблемой: не могу завершить работу потока.
В потоке идет:

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

listener.Start()
server_tcpClient = listener.AcceptTcpClient()

и кагда выполнение находится на строчке listener.AcceptTcpClient() (насколько я понимаю, ожидается подключение клиента?), поток не могу никак завершить: на аборт не реагирует (мне кажется что даже исключение ThreadAbortException не создается?). Помогите пожалуйста разобраться ...

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

Private Sub wait()
        Try
            listener.Start()
            Do
                server_tcpClient = listener.AcceptTcpClient()
                server_networkStream = server_tcpClient.GetStream

                Dim bytes(1023) As Byte
                Dim i As Integer = 0

                query = ""
                Do
                    lenght = server_networkStream.Read(bytes, 0, bytes.Length)
                    query = [String].Concat(query, System.Text.Encoding.GetEncoding(1251).GetString(bytes, 0, lenght))
                Loop While server_networkStream.DataAvailable


                server_networkStream.Close()
                server_tcpClient.Close()

            Loop

        Catch e As ThreadAbortException
            listener.Stop()
        End Try
    End Sub

[Klinifini]

Так, кажется, начинаю понимать...
Если заменить server_tcpClient = listener.AcceptTcpClient() на

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

Do
                    If listener.Pending Then
                        server_tcpClient = listener.AcceptTcpClient()
                        Exit Do
                    End If
                Loop

То вроде работает.... А нужно ли еще усыплять поток на некторой время в этом чикле?

[Viper]

AcceptTcpClient является блокирующим методом, т.е. останавливает поток. Второй вариант останавливать поток не будет.
А зачем тебе поток то притормаживать понадобилось?

[Klinifini]

Ну чтобы по выходу из программы прекращались какие-либо действия )

Есть еще вопрос: Как прочитать сообщение полностью? Почему-то не хочет принимать полностью, а только какую-то часть..
Вообще хочу сделать простенький HTTP прокси. Затея такая:
Ждем клиента, получаем запрос, подключаемся к серверу, отправляем запрос, принимает от сервера данные и передаем клиенту. Но изображения почему-то принимаются не полностью (да и вообще из всех больших сообщений доходит толкьо какая-то часть) =(

[Sebas]

Klinifini

Используй таймаут, если хочешь прерывать работу.

длину запросов обрабатываешь?

[Klinifini]

Т.е. ты предлагаешь мне взять Content-Length и читать пока не наберется необходимое число байтов?

[Sebas]

дык, а как по другому?

[GSerg]

Дык не всегда это поле в заголовке присутствует.

[keks-n]

Если поля нет, значит пакет не POST - а такие пакеты обычно не большие и приходят сразу.

Совет автору топика: не мучайся с HTTP - намного проще написать SOCKS4 прокси: он принимает IP и порт, коннектится к нему и возвращает результат. Если всё прошло успешно, он дальше втупую пересылает полученные данные и парсинг пакетов ему для работы не требуется. + через него можно работать не только по HTTP

[Klinifini]

keks-n
А как SOCKS4 прокси понимает с чем ему соединяться? В HTTP хоть представляю, а в соксе савсем нет.

[tyomitch]

Ему это в явном виде передают.
Мой пример SOCKS-прокси на VB6 на этом форуме уже выложен.