13.9. TCP

13.9.2.1.1. Arguments

13.9.2.1.2. Returns

Возвращает числовое значение <nNewSocket> дескриптор нового сокета или -1, если произошла ошибка.

13.9.2.1.3. Description

TCPACCEPT() выбирает первый запрос на соединение из очереди ожидающих, создает новый сокет со свойствами исходного <nSock>, и возвращает новый дескриптор файла <nNewSocket>.

FERROR() и FERRORSTR() хранят номер и описание ошибки.

13.9.2.1.4. Example

  #define DEFPORT	3000
 
 local nH, nPort, nCon
 nPort := DEFPORT
 
 if (nH := TCPLISTEN( nPort, 10 )) == -1
 ? "tcpsrv: Error listen on port ", nPort
 ?
 return( 1 )
 endif
 
 //? "wait client connection"
 do while( .t. )
 ? "wait client connection",time()
 if (nCon := TCPACCEPT( nH, 5000 )) != -1
 ? "start",nH,nCon
 start( {|nC| /* reading data from connection */ TCPREAD(nC....)}, nCon )
 endif
 sleep(0.01)
 enddo
 TCPCLOSE( nH )
 

13.9.2.1.5. Peculiarities

13.9.2.1.6. See also

13.9.2.1.7. Author of documentation

ITK

13.9.2.1.8. Platforms

13.9.2.2.1. Arguments

13.9.2.2.2. Returns

Возвращает TRUE, если соединение успешно закрыто.

13.9.2.2.3. Description

TCPCLOSE() закрывает открытое соединене и возвращает TRUE в случае успешного завершения операции.

13.9.2.2.4. Example

  nH := TCPLISTEN(3000)
 
 If nH > 0
 
 ....
 
 TCPCLOSE(nH)
 endif
 
 

13.9.2.2.5. Peculiarities

13.9.2.2.6. See also

TCPCONNECT() TCPLISTEN()

13.9.2.2.7. Author of documentation

ITK

13.9.2.2.8. Platforms

13.9.2.3.1. Arguments

13.9.2.3.2. Returns

Возвращает номер соединения или -1.

13.9.2.3.3. Description

TCPCONNECT() устанавливает соединение с сервером <sHostName> и создает сокет к порту <nPort>.Возвращат номер соединения <nConnection> или -1 в случае ошибки. FERROR() и FERRORSTR() хранят номер и описание ошибки.

13.9.2.3.4. Example

   con := TCPCONNECT("http://www.itk.ru")
 
 if con > -1
 ? "connection: ", con
 ....
 TCPCLOSE(con)
 else
 ? FERROR()
 endif
 
 

13.9.2.3.5. Peculiarities

13.9.2.3.6. See also

13.9.2.3.7. Author of documentation

ITK

13.9.2.3.8. Platforms

13.9.2.4.1. Arguments

13.9.2.4.2. Returns

Возвращает числовое значение <nErrNo>: ноль - операция завершилась успешно, <nErrNo> - код ошибки.

13.9.2.4.3. Description

TCPLISTEN() создает сокет и устанавливает прослушивание входящих соединений.

13.9.2.4.4. Example

  #define DEFPORT	3000
 
 local nH, nPort, nCon
 nPort := DEFPORT
 
 if (nH := TCPLISTEN( nPort, 10 )) == -1
 ? "tcpsrv: Error listen on port ", nPort
 ?
 return( 1 )
 endif
 
 //? "wait client connection"
 do while( .t. )
 ? "wait client connection",time()
 if (nCon := TCPACCEPT( nH, 5000 )) != -1
 ? "start",nH,nCon
 start( {|nC| /* reading data from connection */ TCPREAD(nC....)}, nCon )
 endif
 sleep(0.01)
 enddo
 TCPCLOSE( nH )
 
 

13.9.2.4.5. Peculiarities

13.9.2.4.6. See also

13.9.2.4.7. Author of documentation

13.9.2.4.8. Platforms

13.9.2.5.1. Arguments

13.9.2.5.2. Returns

Returns numeric value - is the realy number of bytes received, or -1 if an error occurred.

13.9.2.5.3. Description

TCPREAD() читает из соединения <nConnection> данные (не больше <nLen> байт) и записывает их в буфер <sBuffer>. FERROR() и FERRORSTR() хранят номер и описание ошибки.

13.9.2.5.4. Example

  con := TCPCONNECT("http://www.itk.ru")
 
 if con > -1
 ? "connection: ", con
 buf := ""
 tr := TCPREAD(con, @buf, 1024)
 if tr > -1
 ? buf
 else
 ? "Error:", FERROR(), ":", FERRORSTR()
 endif
 TCPCLOSE(con)
 else
 ? FERROR(), FERRORSTR()
 endif
 

13.9.2.5.5. Peculiarities

13.9.2.5.6. See also

13.9.2.5.7. Author of documentation

ITK

13.9.2.5.8. Platforms

13.9.2.6.1. Arguments

13.9.2.6.2. Returns

Returns numeric value - is the realy number of bytes commited, or -1 if an error occurred.

13.9.2.6.3. Description

TCPWRITE() пытается передать некоторые данные <sBuffer> (длиной <nLen> байт) в соединение <nConnection> данные (не больше <nLen> байт). FERROR() и FERRORSTR() хранят номер и описание ошибки.

13.9.2.6.4. Example

  local cBuf := space(5), nL, cTxt, nH, nPort
 
 nPort := DEFPORT
 
 if (nH := TCPLISTEN( nPort, 10 )) == -1
 ? "tcpsrv: Error listen on port ", nPort
 ?
 return( 1 )
 endif
 
 do while( .t. )
 if( (nL := TCPREAD( nH, @cBuf, len(cBuf), 60000 )) > 0 )
 ? "tcpsrv, read : ", nL
 if( nL == 1 .and. upper( substr(cbuf,1,1)) == "Q" )
 exit
 endif
 cTxt := "tcpsrv:" + substr(cBuf, 1, nL)
 TCPWRITE( nH, cTxt )
 elseif ferror() == 32
 ? "Error:",ferrorstr()+":","closed task:",nh
 exit
 endif
 //? "tcpsrv, read : ", nL,nh,time()
 enddo
 TCPCLOSE( nH )
 

13.9.2.6.5. Peculiarities

13.9.2.6.6. See also

13.9.2.6.7. Author of documentation

ITK

13.9.2.6.8. Platforms