Добрый вечер. Очень интересная ситуация, может подскажите кто чем. Есть приложение клиент-серверное. Передает по TCP информацию. Если что, ниже кусочки кода приведу.
Вот клиент подключается к серверу
'Начало чтения
Public Function Connect(ByVal Server As String, ByVal Port As Integer) As Boolean
Try
myClient = New TcpClient(Server, Port)
Writer = New BinaryWriter(myClient.GetStream)
'Запускаем поток обработки
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf DoRead))
Return True
Catch ex As Exception
Return False
End Try
End Function
'Получения блока байт информации
Public Sub DoRead(ByVal obj As Object)
Try
Dim Stream As NetworkStream = myClient.GetStream
Dim Reader As New BinaryReader(Stream)
Dim typeByte As Byte
Do
Dim typeMsg = Reader.ReadByte()
'Далее смотрим заголовок
Select Case typeMsg
Case READ_SYSTEM 'Сообщение
Dim tmpName = Reader.ReadString
Dim tmpMessage = Reader.ReadString
Try
RaiseEvent MessageReceived(Me, tmpName, getDataFromMessages(tmpMessage))
Catch ex As Exception
Dispose("Ошибка 49: Обработка блока данных #" & READ_SYSTEM & " выдало исключение. " & ex.Message)
End Try
End Select
Loop While Stream.CanRead
Catch ex As Exception
Dispose("Сервер принудительно разорвал существующее подключение. Причина - " & ex.Message)
End Try
End Sub
Вот так выглядит часть кода сервера
'Старт сервера...
Public Sub ServerStart(ByVal Port As Object)
Listener = New TcpListener(IPAddress.Any, CInt(Port))
Listener.Start()
While StatusServer
Try
'Ждем пока кто нибудь не подключится...
Dim Client = New ClientServer(Listener.AcceptTcpClient)
ThreadPool.QueueUserWorkItem(New WaitCallback(Sub()
Client.DoRead()
End Sub))
OnlineList.TryAdd(Client.IP, Client)
Catch ex As Exception
End Try
End While
End Sub
'КЛАСС КЛИЕНТА
'Начало чтения
Public Sub New(ByVal Client As TcpClient)
IP = CType(Client.Client.RemoteEndPoint, Net.IPEndPoint).Address.ToString
SetLogMessage(Me, "ЗАПУСК клиента... " & IP)
myClient = Client
Writer = New BinaryWriter(myClient.GetStream)
End Sub
'Получения блока байт информации
Public Sub DoRead()
Try
Dim Stream As NetworkStream = myClient.GetStream
Dim Reader As New BinaryReader(Stream)
Dim typeByte As Byte
Do
Dim typeMsg = Reader.ReadByte() 'Тип сообщения
'Далее смотрим заголовок
Select Case typeMsg
Case READ_SYSTEM 'Сообщение
Dim tmpName = Reader.ReadString
Dim tmpMessage = Reader.ReadString
OnMessageReceived(tmpName, getDataFromMessages(tmpMessage))
End Select
Loop
Catch ex As Exception
If StatusJoin Then
SetLogMessage(Me, "Отключение клиента [" & IP & "] / обрыв связи")
End If
End Try
End Sub
Отправка на сервер данных и клиенту таким образом
Public Sub SendData(NameMessage As String, data As String)
Try
SyncLock SendDataLock
Writer.Write(READ_SYSTEM)
Writer.Write(NameMessage)
'Теперь само сообщение
Writer.Write(data)
Writer.Flush()
End SyncLock
Catch ex As Exception
SetLogMessage(Me, "Сообщение клиенту не отправлено. Причина - " & ex.Message)
End Try
End Sub
Теперь сам вопрос. Все работает отлично, но не у всех. Есть компьютеры, на которых теряется соединение с сервером. На сервере в логе просто отключение клиента. А у клиента выводит следующее:
Не удается прочитать данные из транспортного соединения: Попытка установить соединение была безуспешной, т.к. от другого компьютера за требуемое время не получен нужный отклик, или было разорвано уже установленное соединение из-за неверного
отклика уже подключенного компьютера.
И приходится заново подключатся к серверу. Стоит клиенту принять несколько запросов и отправить парочку - отключается. Может и сразу отключится, пытаясь отправить запрос на сервер. Что это такое может быть? На форумах читал про NAT на маршрутизаторе.
Что сервер не может нормально отправлять запросы, они не доходят. Если это так, как эту проблему решить? Ведь другие программы, браузеры и мессенджеры работают хорошо.
Порт сервера 12321. Может браузеры и другие программы используют стандартные порты, там ... 80, 443? А этот необходимо прописывать?
