Problema al leer código de barra
Publicado por Frank Godinez (14 intervenciones) el 12/09/2002 16:17:21
Desde ya les agradezco a los que me puedan ayudar, necesito leer datos de codigos de barra desde un scanner pero no me funciona, a continuación las propiedades del Objeto (MSComm1) (Puerto COM) lo tengo de la siguiente manera:
En la Pestaña General:
CommPort = 2
Settings = 9600,e,8,1
HandShaking= 0-CommNone
En la Pestaña Buffers:
InBufferSize=1024 OutBufferSize=512
RThreshold=0 Sthreshold=0
InputLen=0
EOFEnable=(Sin Check)
En la Pestaña Hardware:
ParityReplace=?
NullDiscard=(No Check)
RTSEnable=(No Check)
DTREnable=(Check)
A continuación el codigo:
En el Init del Formulario.
With Thisform
*Defino el Puerto a Utilizar
.MSComm1.CommPort = 2
*Datos Tipo Texto
.MSComm1.InputMode = 0
* Abro el Puerto.
If .MsComm1.PortOpen = .F.
.MSComm1.PortOpen = .T.
Endif
EndWith
En el Evento OnComm del Objeto MSComm1
Store "" to lcString
With Thisform
* Recupera todos los Datos
.MsComm1.InputLen = 0
* Lee Datos del Puerto
lcString = .MsComm1.Input
lcString = lcString
EndWith
En la Pestaña General:
CommPort = 2
Settings = 9600,e,8,1
HandShaking= 0-CommNone
En la Pestaña Buffers:
InBufferSize=1024 OutBufferSize=512
RThreshold=0 Sthreshold=0
InputLen=0
EOFEnable=(Sin Check)
En la Pestaña Hardware:
ParityReplace=?
NullDiscard=(No Check)
RTSEnable=(No Check)
DTREnable=(Check)
A continuación el codigo:
En el Init del Formulario.
With Thisform
*Defino el Puerto a Utilizar
.MSComm1.CommPort = 2
*Datos Tipo Texto
.MSComm1.InputMode = 0
* Abro el Puerto.
If .MsComm1.PortOpen = .F.
.MSComm1.PortOpen = .T.
Endif
EndWith
En el Evento OnComm del Objeto MSComm1
Store "" to lcString
With Thisform
* Recupera todos los Datos
.MsComm1.InputLen = 0
* Lee Datos del Puerto
lcString = .MsComm1.Input
lcString = lcString
EndWith
Valora esta pregunta
0