Компилятор, совместимый с языками семейства xBase и Clipper
Пред.След.

TCP

Name

TCP -- 

Function

<nNewSocket>        TCPACCEPT(<nSock>[, <nTimeout>])
TRUE || FALSE       TCPCLOSE(<nConnection>)
<nConnection>       TCPCONNECT(<sHostName>[, <nPort>][, <nTimeout>])
<nErrNo>            TCPLISTEN(<nPort>[, <nBackLog>])
<nLenBuf>           TCPREAD(<nConnection>, @<sBuffer>, <nLen>[, <nTimeout>])
<nLenBuf>           TCPWRITE(<nConnection>, <sBuffer>, <nLen>[, <nTimeout>])

Description

Function TCPACCEPT() 

 TCPACCEPT(<nSock>[, <nTimeout>])	--> <nNewSocket>

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

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

<nSock>

Numeric, исходный сокет.

<nTimeout>

Numeric, время ожидания.

Returns :

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

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 )

Function TCPCLOSE() 

 TCPCLOSE(<nConnection>)		--> TRUE || FALSE

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

<nConnection>

Numeric, номер соединения.

Returns :

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

See also : TCPCONNECT() TCPLISTEN()

Example :

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

Function TCPCONNECT() 

 TCPCONNECT(<sHostName>[, <nPort>][, <nTimeout>])	--> <nConnection>

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

<sHostName>

String, имя сервера.

<nPort>

Numeric, номер порта.

<nTimeout>

Numeric, время ожидания ответа.( default 60000 )

Returns :

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

Example :

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

Function TCPLISTEN() 

 TCPLISTEN(<nPort>[, <nBackLog>])	--> <nErrNo>

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

<nPort>

Numeric, номер порта.

<nBackLog>

Numeric, максимальная длина очереди ожидающих соединения.

Returns :

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

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 )

Function TCPREAD() 

 TCPREAD(<nConnection>, @<sBuffer>, <nLen>[, <nTimeout>])	--> <nLenBuf>

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

<nConnection>

Numeric, номер соединения.

<sBuffer>

String, принимающий буфер.

<nLen>

Numeric, размер буфера.

<nTimeout>

NUmeric, время ожидания.

Returns :

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

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

Function TCPWRITE() 

 TCPWRITE(<nConnection>, <sBuffer>, <nLen>[, <nTimeout>])	--> <nLenBuf>

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

<nConnection>

Numeric, номер соединения.

<sBuffer>

String, буфер данных.

<nLen>

Numeric, размер буфера.

<nTimeout>

NUmeric, время ожидания.

Returns :

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

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 )

Пред.НачалоСлед.
PACK/UNPACKУровень вышеINFO