Вот у мя Сервер
svrGame=CreateTCPServer(8080)
If svrGame<>0 Then
Print "Сервер запущен удачно."
Else
Print "Ошибка создания сервера."
End
End If
While Not KeyHit(1)
strStream=AcceptTCPStream(svrGame)
If strStream Then
Print ReadString$(strStream)
End If
Wend
End
А вот клиент
strmGame=OpenTCPStream("127.0.0.1",8080)
If strmGame<>0 Then
Print "Запущен"
End If
.x
s$=Input()
WriteString strmGame,s$
Goto x
Repeat
Until KeyHit(1)
End
Вопрос в том
Почему когда я пишу с клиента второй раз то у сервера не печатается это второе сообщение?