| streamhandle = указатель открытого потока. |
|
Эта команда закрывает уже открытый поток. Как только Вы закончили использование потока TCP/IP, закройте подключение, которое Вы открыли командой OpenTCPStream. |
| ; Пример 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 |