| port = порт, используемый при создании сервера |
|
Создает сервер TCP/IP с указанным портом. Используется для связи с другими клиентами. Смотрите OpenTCPStream, CloseTCPServer и CloseTCPStream для получения дополнительной информации. Возвращает указатель сервера TCP/IP в случае успешного создания, или 0 в случае неудачи. |
|
; Пример 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 ; --- Конец первой части--- ; --- Вторая часть--- ; Скопируйте эту часть как отдельную программу ; Запустите сначала первую часть, потом вторую - они будут общаться' ; Создаем клиента и посылаем данные strmGame=OpenTCPStream("127.0.0.1",8080) If strmGame<>0 Then Print "Клиент соединился с сервером." Else Print "Сервер не отвечает." WaitKey End End If ; отправим сообщение серверу WriteString strmGame,"Центр Управления, это Apollo X ..." Print "Сообщение Центр Управления отправлено успешно..." ; --- Конец второй части --- |