Acessar porta serial Com1

[Buscape]

Amigos preciso acessar a porta serial Com1 atraves de linhas de comando no Clipper 5.2 e pegar dados para serem usados pelo sistema. Alguem pode me ajudar a acessar a porta serial?
antenciosamente ...
saudações

[Maligno]

Existem no fórum diversos tópicos que tratam desse assunto. Se fizer uma busca no fórum pela palavra "serial", vários links serão informados.

De imediato posso recomendar a você que utilize a biblioteca CATools que tem uma série de funções própria para comunicação serial. Se não me falha a memória, ela conta também com alguns exemplos de uso. Se não a tiver, pegue-a no meu site, clicando aqui. Instale-a na mesma ordem em que aparecem os três arquivos listados.

[dbsh]

boa noite.

tente o codigo a seguir:

Código: Selecionar todos

FUNCTION AbrePortaComm( nPorta, nVel, cPar, nBit, nStop, nIrq, cIo, nBufferIn, nBufferOut, lTrapMode)

IF Empty( nPorta )
    RETU .F.
ENDIF

DEFA nVel to 9600 //ECF, Leitor CodBarra Serial 9600, Balanca 2400
DEFA cPar TO "N"
DEFA nBit TO 8
DEFA nStop TO 1
DEFA nIrq TO 0
DEFA cIo TO ""
DEFA nBufferIn TO 1000 //buffer de entrada
DEFA nBufferOut TO 1000  //buffer de saida
DEFA lTrapMode TO .F.

//windows 98: multiserial e algumas placa mae nao abre porta se nao definir
//windows XP deve ignorar, dara mensagem de erro, acesso formato 16 bits
IF !Empty( nIrq )
    IF !com_setirq( nPorta, nIrq )
        //erro
        RETU .F.
    ENDIF
ENDIF

//windows 98: multiserial e algumas placa mae nao abre porta se nao definir
//windows XP deve ignorar, dara mensagem de erro, acesso formato 16 bits
IF !Empty( cIo )
    IF !com_setio( nPorta, cIo )
        //erro
        RETU .F.
    ENDIF
ENDIF

IF !Com_Open( nPorta, nBufferIn, nBufferOut, lTrapMode )
    //erro
    RETU .F.
ENDIF

IF !com_init( nPorta, nVel, cPar, nBit, nStop )
    //erro
    RETU .F.
ENDIF

[Bisteca]

Amigo escovador de bits, tenho um pequeno soft que fiz, onde abro a porta serial envio comandos e recebo os retornos.
É só enviar um e-mail que te respondo com os códigos fontes.
Valeu....