netconnect имя_сервера, номер_порта
netconnect( имя_сервера, номер_порта )
netconnect номер_сокета, имя_сервера, номер_порта
netconnect( номер_сокета, имя_сервера, номер_порта )
Открывает клиентское сетевое соединение с сервером. IP адрес или имя хоста указывается в параметре имя_сервера, а порт в параметре номер_порта. Если номер_сокета, используется нулевой (0) номер.
NetAddress, NetClose, NetData, NetListen, NetRead, NetWrite
Откройте два экземпляра BASIC-256 на одном компьютере. Скопируйте код "сервера" в один экземпляр и код "клиента" в другой. Запустите сначала сервер, затем клиент. Вы сможете увидеть, как два различных процесса обмениваются сообщениями.
# Получаем сообщение и посылаем ответ об успешном соединении print "wait for connection on " + netaddress() netlisten 9997 print "got connection" do while not netdata pause .1 print "."; end while n$ = netread print n$ netwrite "I got '" + n$ + "'." until n$ = "end" netcloseБудет напечатано (где xxx.xxx.xxx.xxx IPv4 адрес вашего компьютера)
wait for connection on xxx.xxx.xxx.xxx got connection .1 Hi There ....2 Hi There ........3 Hi There ..........4 Hi There .....5 Hi There .......6 Hi There ....7 Hi There ..........8 Hi There ....9 Hi There .....10 Hi There .end
# Ожидаем ввода сообщения от пользователя и посылаем его на сервер input "enter message?", m$ netconnect "127.0.0.1", 9997 for t = 1 to 10 pause rand netwrite t + " " + m$ print netread next t netwrite "end" print netread netcloseБудет напечатано
enter message?Hi There I got '1 Hi There'. I got '2 Hi There'. I got '3 Hi There'. I got '4 Hi There'. I got '5 Hi There'. I got '6 Hi There'. I got '7 Hi There'. I got '8 Hi There'. I got '9 Hi There'. I got '10 Hi There'. I got 'end'.
0.9.6.31