| serverhandle = указатель на сервер, который был получен при его создании |
|
Принимает входящий TCP/IP поток, и возвращает
TCP/IP указатель на этот поток, если он
существует, или 0 если нет.
Смотрите также: CreateTCPServer и CloseTCPServer. |
|
; 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 "Сообщение Центр Управления отправлено успешно..." ; --- Конец второй части --- |