; CreateTCPServer, CloseTCPServer, AcceptTCPStream пример
;
Этот код из двух частей, и требует запуска на отдельных машинах
; --- Первая часть ---
; Создаём сервер и ждём данные
svrGame=CreateTCPServer(8080)
If svrGame<>0 Then Print "Server started successfully."
Else Print "Server failed to start."
End
End If
While Not KeyHit(1)
strStream=AcceptTCPStream(svrGame)
If strStream Then Print ReadString$(strStream)
Delay 2000
End
Else Print "No word from Apollo X yet ..."
Delay 1000
End
If
Wend
End
--- Конец первой части ---
; --- Вторая часть ---
; Скопируйте этот код в другой проект Blitz Basic
; Запустите первый код прежде чем этот, когда запустите этот ... они будут 'разговарить'
; Создаём клиент и посылаем данные
strmGame=OpenTCPStream("127.0.0.1",8080)
If strmGame<>0 Then Print "Client Connected successfully."
Else Print "Server failed to connect."
WaitKey
End
End
If
; посылаем данные серверу
WriteString strmGame,"Mission Control, this is Apollo X ..."
Print "Completed sending message to Mission control..."
; --- Конец второй части ---