SERVER ()

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().