| serverhandle = указатель предварительно созданного сервера. |
| Закрывает TCP/IP - сервер, ранее созданный командой CreateTCPServer. |
| ; CreateTCPServer, CloseTCPServer, AcceptTCPStream пример ; Этот код из двух частей, и требует запуска на отдельных машинах ; --- Первая часть --- ; Создаём сервер и ждём данные 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) Delay 2000 End Else Print "От Apollo X ничего нет ..." Delay 1000 End If Wend End ; --- Конец первой части --- ; --- Вторая часть --- ; Скопируйте этот код в другой проект Blitz Basic ; Запустите первый код прежде чем этот, когда запустите этот ... они будут 'разговарить' ; Создаём клиент и посылаем данные strmGame=OpenTCPStream("127.0.0.1",8080) If strmGame<>0 Then Print "Клиент соединился с сервером." Else Print "Сервер не отвечает." WaitKey End End If ; посылаем данные серверу WriteString strmGame,"Центр Управления, это Apollo X ..." Print "Сообщение Центр Управления отправлено успешно..." ; --- Конец второй части --- |