TCP/IP ошибка о net.sockets.(Порт занят)

@No_Lag · Регистрация: 21.11.2010

Студворк — интернет-сервис помощи студентам

Вот такой трабл.На VB.NEt при работе с TCP/IP протоколом при использовании не стандартного порта windows- вылетает ошибка о net.sockets.(Порт занят)Это случается токо при отправке сообщения во второй раз.В первый всё норм.
Причём на -listener'e стоит обмен данными.
И порт создаётся 11000.
И запрос на соединение тоже есть

31.03.2011, 15:01

код в студию

@No_Lag · 31.03.2011, 18:28 **[ТС]**

Так.... =)
Значит для сервака вот такая хрень ...

Visual Basic

Dim address as net.ipaddress=net.ipaddress.any
DIm listener as new net.sockets.tcplistener(address,11000)
listener.start()
Dim tcpclient as net.sockets.tcpclient=listener.accepttcpclient()
Dim ns as net.sockets.networkstream=tcpclient.getstream()
Dim bytes(tcpclient.Receivebuffersize) as byte
ns.read(bytes,0,tcpclient.receiveBuffersize)
Listener.stop()
command.text=system.Text.Encoding.default.getstring(bytes)
ns.close
tcpclient.close

При повторном подключении к этому серверу порт 11000 занят.
Помогает токо перезагрузка сервака.
Do loop тоже не пашет (((

31.03.2011, 19:27

дык а чего ты хотел, если ты listener останавливаешь? о каком повторном подключении вообще может идти речь?

@No_Lag · 31.03.2011, 21:14 **[ТС]**

Лано,а почему тогда do loop не работает? =)

Много вариантов просмотрел.

31.03.2011, 21:35

вот тебе вариант, и его поизучай заодно:

VB.NET

Imports System.Net.Sockets
 
Module Module1
 
    Sub Main()
        Dim listener As TcpListener, sock As TcpClient
        listener = New TcpListener(Net.IPAddress.Any, 11000)
        listener.Start()
        Do
            sock = listener.AcceptTcpClient
            sock.GetStream.Write(System.Text.Encoding.Default.GetBytes('Hello, client!'), 0, 14)
            sock.Close()
        Loop
    End Sub
 
End Module

@No_Lag · 31.03.2011, 22:17 **[ТС]**

Мде...,интересно,спасибки.... =)

@No_Lag 0 / 0 / 0 Регистрация: 21.11.2010 Сообщений: 53
		1
	TCP/IP ошибка о net.sockets.(Порт занят) 31.03.2011, 13:27. Показов 1836. Ответов 6 Метки нет (Все метки) Вот такой трабл.На VB.NEt при работе с TCP/IP протоколом при использовании не стандартного порта windows- вылетает ошибка о net.sockets.(Порт занят)Это случается токо при отправке сообщения во второй раз.В первый всё норм. Причём на -listener'e стоит обмен данными. И порт создаётся 11000. И запрос на соединение тоже есть 0

Messir
	31.03.2011, 19:27	4
	дык а чего ты хотел, если ты listener останавливаешь? о каком повторном подключении вообще может идти речь?

@No_Lag 0 / 0 / 0 Регистрация: 21.11.2010 Сообщений: 53
	31.03.2011, 21:14 [ТС]	5
	Лано,а почему тогда do loop не работает? =) Много вариантов просмотрел. 0

@No_Lag 0 / 0 / 0 Регистрация: 21.11.2010 Сообщений: 53
	31.03.2011, 22:17 [ТС]	7
	Мде...,интересно,спасибки.... =) 0

Опции темы