Abre uma porta paralela ou serial.
Sintaxe
FOPENPORT( cPorta , [ cParm ], [ nModo ] ) –> Numérico
Descrição
FOPENPORT() abre um dispositivo, permitindo a leitura ou gravação atráves das funções FREAD(), FWRITE().
Todo arquivo aberto através da FOPENPORT(), deve ser fechado através da função FCLOSE().
O modo de abertura é composto de modo de acesso e modo de compartilhamento, esses modos estão descritos em fileio.ch.
O modo de acesso em combinação ( + ) com o modo de compartilhamento determina a maneira como o arquivo será aberto e sua acessibilidade em um ambiente de rede.
O dispositivo será aberto no diretório corrente, ou seja, caso o diretório esteja posicionado no cliente, o dispositivo será aberto no cliente ( Remote ), caso contrário será aberto no servidor.
Os parâmetros das portas seriais servem para configurar a comunicação serial e podem ser os seguintes:
Exemplo
Este exemplo usa o FOPENPORT() para abrir uma porta de impressão para gravação e mostra uma mensagem de erro caso a abertura falhe:
#include “Fileio.ch”
//
nHandle := FOPENPORT(“LPT1:”, “”, FO_WRITE)
IF FERROR() != 0
? “Impossivel abrir a impressora LPT1, Erro : “, FERROR()
BREAK
ENDIF
Este exemplo abre uma porta serial e espera para obter uma leitura da porta.
#include “Fileio.ch”
//
CURDIR( “C:TEMP” ) // Posicionando no diretório cliente ( Remote )
nHandle := FOPENPORT(“COM1:”, “9600,N,8,1,10000”, FO_WRITE)
IF FERROR() != 0
? “Impossivel abrir a impressora LPT1, Erro : “, FERROR()
BREAK
ENDIF
FREAD(