|
ip$= адрес потока
port= номер порта TCP/IP |
|
Используйте эту команду, чтобы открыть поток TCP/IP на определенный сервер и порт. Если выполнение команды было успешно, команда возвращает указатель потока. Иначе она возвращает 0. Вы можете использовать эту команду для множества различных "интернет"'-опций. Очевидно, чтобы связаться с хостом TCP/IP вне Вашей собственной сети, Вы должны будете подключиться к Интернету. Адрес IP может быть в форме 1.2.3.4 или "www.domain.com". |
|
; Пример OpenTCPStream/CloseTCPStream
Print "Соединение..." tcp=OpenTCPStream( "www.blitzbasement.com",80 ) If Not tcp Print "Failed.":WaitKey:End Print "Соединение прошло успешно! Посылка запроса..." WriteLine tcp,"GET http://www.blitzbasement.com HTTP/1.0" WriteLine tcp,Chr$(10) If Eof(tcp) Print "Ошибка.":WaitKey:End Print "Послан запрос! Ожидание ответа..." While Not Eof(tcp) Print ReadLine$( tcp ) Wend If Eof(tcp)=1 Then Print "Операция успешно завершена!" Else Print "Error!" CloseTCPStream tcp WaitKey End |