Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

CLISER ()

Propósito

Permitir a criação do cliente.

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.

Utilização

Utilizado em estrutura cliente / servidor.

Para finalizar utilize.

CLISER (0,"")

Para enviar / receber mensagens utilize.

recv (<mess>)

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

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!