ajuda comunicacao serial com iolib
Enviado: 18 Nov 2011 09:45
Bom dia Clipeiros
Um cliente meu pediu que eu alterasse um sistema que desenvolvi p/ ele a um bom tempo, para que o mesmo possa liberar
uma catraca via serial (com1)
Entrei em contato com o fabricante da catraca e o mesmo passou que eu deveria enviar para [com 1] a seguinte instrução $X1X1
revirando o forum achei a iolib, o manual e alguns exemplos, baixei um monitor de serial e fiz um pequeno teste
vejo pelo resultado do monitor que o sistema abre a porta na boa, envia o comando mas so o 1º catacter, nunca a sequencia toda. Ja tentei usando o outchr e o outc ambos sem sucesso, se puderem me ajudar fico grato
Nao tem conhecimeto algum sobre comunicacao serial, estou usando clipper5.2 + rtlink + iolib
Marcos Siqueira
Um cliente meu pediu que eu alterasse um sistema que desenvolvi p/ ele a um bom tempo, para que o mesmo possa liberar
uma catraca via serial (com1)
Entrei em contato com o fabricante da catraca e o mesmo passou que eu deveria enviar para [com 1] a seguinte instrução $X1X1
revirando o forum achei a iolib, o manual e alguns exemplos, baixei um monitor de serial e fiz um pequeno teste
vejo pelo resultado do monitor que o sistema abre a porta na boa, envia o comando mas so o 1º catacter, nunca a sequencia toda. Ja tentei usando o outchr e o outc ambos sem sucesso, se puderem me ajudar fico grato
Nao tem conhecimeto algum sobre comunicacao serial, estou usando clipper5.2 + rtlink + iolib
Marcos Siqueira
Código: Selecionar todos
#include "iolib.ch"
function testec1()
local cstring:=spac(36)
cls
? "inicia comunicacao porta serial com1 - pressione enter "
inkey(0)
? INIT_PORT(COM1,BPS9600,EIGHT_DATA_BITS,NO_PARITY,ONE_STOP_BIT,3,cstring)
? " envio de comando porta serial com1"
* aqui retorna .T.
inbufclr()
outbufclr()
* 24 58 31 58 31 0D 0A // string que o fabricante da catraca solicitou enviar p/ balanca
* que seria o tal $X1X1
*testes
OUTCHR( chr(36) + chr(88) + chr(49) + chr(88) + chr(49) + chr(13) + chr(10) )
outc(36)
outc(88)
outc(49)
outc(88)
outc(49)
outc(13)
outc(10)
return nil