Еще вопросик:
сервер
svrGame=CreateTCPServer(7777)
If svrGame<>0 Then
Print "Сервер запущен удачно."
Else
Print "Ошибка создания сервера."
End
End If
While Not KeyHit(1)
strStream=AcceptTCPStream(svrGame)
If strStream Then
While Not Eof(strStream)
x1 = Readline(strStream)
x2 = Readline(strStream)
x3 = x1 +x2
Writeline str
mGame," x3
Delay 2000
Wend
Else
Print "От Apollo X ничего нет ..."
Delay 1000
End If
Wend
End
клиент
x1 =10
x2 = 20
strmGame=OpenTCPStream("127.0.0.1",7777)
If strmGame<>0 Then
Print "Клиент соединился с сервером."
Else
Print "Сервер не отвечает."
WaitKey
End
End If
While Not KeyHit(1)
; отправим сообщение серверу
WriteLine strmGame, x1
WriteLine strmGame, x2
Print ReadLine(
strStream)
Print "Сообщение Центр Управления отправлено успешно..."
Delay 2000
Wend
После запуска вылетает Ошибка "Stream does not exist", помогите.
Без "Print ReadLine(strStream)" все нормально работает, подскажите как получать сообщения от сервера.
Заранее СПС.
Извиняюсь, моя АШИПКА в коде. Выделил красным.
З.Ы. Никогда не делайте Ctrl+C & Ctrl+V, пишити ручками, думайте головой Всем удачи!