Limpieza buffer puerto comm

[leandro]

Hola buenas tardes para todos,

Resulta que tenemos instalada una bascula, la cual registra la lectura en forma continua, CTP20, después de varias horas de trabajo, la lectura se bloquea, y el proceso de SETEAR el puerto COMM, comienza a salir error. De momento para solucionar el problema, se reinicia el computador y todo vuelve a la normalidad. Quisiera intentar limpiando el buffer del COMM, para evitar tener que reiniciar la maquina.

De antemano gracias

Code: Select all  Expand view  RUN

FUNCTION abrirport(n)
LOCAL IdPort,cDcb,nError
IdPort := OpenComm("COM"+STR(n,1),1024,256)
IF IdPort <= 0
   nError = GetCommError( IdPort)
   MsgInfo( "Error al abrir: " + Str( nError ) )
   ELSE
   MsgRun("Puerto abierto como " + STR(IdPort))
ENDIF
IF ! BuildCommDcb("COM"+STR(n,1)+":9600,n,8,1" , @cDcb)
   nError = GetCommError( IdPort)
   MsgInfo( "Error al Configurar: " + Str( nError ) )
   RETURN 0
   ELSE
   MsgRun("Puerto Configurado")
ENDIF
IF ! SetCommState( IdPort, cDcb )
   nError = GetCommError( IdPort )
   MsgInfo( "Error al setear: " + Str( nError ) ) //AQUI SALE EL ERROR EVENTUALMENTE
   RETURN 0
   ELSE
   MsgRun("Puerto Seteado")
ENDIF
RETURN IdPort
 

[Antonio Linares]

Leandro,

Que error sale ?

[karinha]

De esta manera de usar el puerto comm no hay un comando que verifique si el puerto se ha cerrado y si intenta volver a abrir? ¿Como en HBCOMM.LIB? En HBCOMM.LIB, abre el puerto, cierra el puerto, borra el buffer, etc.

Regards, saludos.

[leandro]

Antonio gracias por responder

El error que devuelve es el que se ve en el MsgInfo( "Error al setear: " + Str( nError ) )

Por eso es que no logro saber que es lo que pasa.

karinha, Amigo gracias como siempre por responder.

Tienes de casualidad un ejemplo de uso de esta librería

De antemano gracias

[karinha]

http://fivetechsoft.com/forums/viewtopic.php?t=10147

http://fivewin.com.br/index.php?/topic/11671-comunica%C3%A3%C2%A7%C3%A3%C2%A3o-serial-com-hbcommlib-resolvido/&tab=comments#comment-9187

En: www.fivewin.com.br - haga una busqueda por hbcomm.lib porfa.

Regards, saludos.

[leandro]

karinha gracias por la ayuda, busque en el foro de Brasil y encontré, esta función, que se basa en hbcomm.lib, la voy a probar para ver si soluciona el problema que tenemos, cualquier cosa comentare de nuevo.

Muchas gracias de antemano.

Code: Select all  Expand view  RUN

func recebepeso(cPorta,nBound,nDataBit,nstop,nBuffer)
   Local nPeso := 0
   NHANDLE:=Init_Port(cPorta,nBound,nDataBit,0,nstop,nBuffer)
   OutBufClr(NHANDLE) // Limpa o Buffer de Saida
   OUTCHR(NHANDLE,CHR(5))
   SysWait(0.3)
   Bytes := InbufSize(NHANDLE)
   DADOS=SPACE(20)

   Buffer := InChr( NHANDLE, Bytes, @DADOS) //LER BUFFER DE ENTRADA DA BALANCA
   UnInt_Port(nHandle)

   dados=alltrim(dados)
   nPeso:=val(substr(dados,4,6))/1000
 return(dados)