Propósito
Permitir a criação de um servidor para uma determinada porta.
Sintaxe
SERVER (<porta>)
Argumentos
<porta> |
representa o número da porta. Este número tem que ser acima de 6000, é controlado pelo usuário. |
Utilização
Utilizado em estrutura cliente / servidor.
O programa servidor deve ser executado com nohup <prog> &.
Para finalizar utilize SERVER (0).
Exemplo
O exemplo a seguir mostra-nos como utilizar esta função.
PROG
DATABASE TESTE 1 A 2
USE ARQ
IF .NOT. SERVER(6520)
? "SERVIÇO 6520 NAO INICIALIZADO"
QUIT
ENDIF
PRIVATE MENS(200)
PRIVATE VOLTA(200)
DO WHILE .T.
B = RECV(MENS)
IF LEFT(MENS,3) = "FIM"
exit
endiF
IF LEFT(MENS,3) = "001"
FIND SUBSTR(MENS, 4, 3)
VOLTA = "002"+ NOME
ENDIF
B = SEND(VOLTA)
ENDDO
B = SERVER(0)
Consulte
CLISER().