puertos series

oscar
25 de Octubre del 2003
como hago para controlar que un puerto serie este activo y poder ver los valores de configuracion de este

Alex
25 de Octubre del 2003
Quetal oscar.

Este es un ejemplo de la forma en que podes utilizar el OCOMM (MSCOMM32.OCX).

Este código puede escribirse en un evento como click, LostFocus y otros.

Esto en el evento init de un objeto timer
ThisFormset.idispmsg='SERVICENTRO PALMIRA'

En este caso lo usé en el evento Timer del mismo objeto Timer para enviar datos a un dispositivo de despiegue de mensajes (Pole Display)

WITH THISFORMSET.EFRMINVC.OCOMM
Store 'SERVICENTRO PALMIRA B I E N V E N I D O' to a
Store 'SERVICENTRO PALMIRA HOY ES DIA DE OFERTAS' to b
Store 'SERVICENTRO PALMIRA !A P R O V E C H E!' to c
If Not .PortOpen && Si el puerto no está abierto
.PortOpen = .T. && Abre el puerto
Endif
If .PortOpen
.OutPut=chr(31)+substr(THISFORMSET.IDISPMSG,1,40)
.PortOpen=.F. && Cierra el puerto
EndIf
DO CASE
CASE THISFORMSET.IDISPMSG=a
THISFORMSET.IDISPMSG=b
CASE THISFORMSET.IDISPMSG=b
THISFORMSET.IDISPMSG=c
CASE THISFORMSET.IDISPMSG=c
THISFORMSET.IDISPMSG=a
ENDCASE
If This.Interval>2500
This.Interval = 2500
Endif
ENDWITH



Alex Vargas