CLISER ()

• Propósito
• Sintaxe
• Argumentos
• Utilização
• Exemplos

Propósito

Permitir a criação de um programa cliente para se comunicar com um programa servidor.

Sintaxe

CLISER (<porta>,<host>)

Argumentos

<porta>	representa o número do serviço, este número tem que ser acima de 6000, é controlado pelo usuário.
<host>	representa o nome da máquina onde se encontra o servidor ciado pela função SERVER(<porta>).

Utilização

Utilizado em estrutura cliente / servidor.

Para finalizar utilize CLISER (0,"")

Para enviar / receber mensagens utilize RECV (<mess>) e SEND (<mess>)

Exemplos

O exemplo a seguir mostra-nos a utilização da função CLISER ().

PROG

PRIVATE MENS(250)

COD=0

DO WHILE .T.

  @ 10,10 GET COD

  READ

  IF LASTKEY() = 27

    EXIT

  ENDIF

  IF .NOT. CLISER(6520,"F10")

    ? "ERRO CLISER"

    LOOP

  ENDIF

B = SEND("001"+STR(COD,3))

B = RECV(MENS)

? SUBSTR(MENS,4,10) && IMPRIME NOME

B = SEND("FIM")

B = CLISER(0,"")

ENDDO