Tengo una bascula conectada al puerto serial de mi computador, y necesito leer los datos desde progress que me envia la bascula
Se que tengo que utilizar el mscom32,ocx, ya lo registre en mi equipo y lo coloque en una ventana que cree con el uib, sin embargo no se como cargar los datos a una variable.
Status: Verified
GOAL:
P7078 How to read data from a serial COM port?
FIX:
The following sample code reads check numbers from COM1 serial port:
DEFINE VARIABLE iCheckNumber AS INTEGER NO-UNDO.
DEFINE VARIABLE cCheckString AS CHARACTER NO-UNDO.
DEFINE STREAM StreamName.
INPUT STREAM StreamName FROM value("COM1").
ASSIGN
cCheckString = "".
REPEAT:
READKEY STREAM StreamName PAUSE 0.
IF LASTKEY = -1 THEN
LEAVE.
ELSE
ASSIGN
cCheckString = cCheckString + CHR(LASTKEY).
END.
INPUT STREAM StreamName CLOSE.
iCheckNumber = INTEGER(cCheckString).
----------------------------------------------------------
Solution ID: P4597
FACT(s) (Environment):
Windows
SYMPTOM(s):
Input from serial port (COM) does not receive any data
Session hangs when receiving data from a serial port
CAUSE:
Serial port is not opened or configured in the operating system
FIX:
Configure the serial port using the 'mode' command from the command
line.
The following are the options to configure a port using the mode
command:
MODE COMm[:] [BAUD=b] [PARITY=p] [DATA=d] [STOP=s]
[to=on|off] [xon=on|off] [odsr=on|off]
[octs=on|off] [dtr=on|off|hs]
[rts=on|off|hs|tg] [idsr=on|off]
i.e.: mode COM2:BAUD=9600 PARITY=n DATA=7 STOP=1 xon=on
Saludos.
Sergio Gracias, hice una prueba con el codigo que me enviaste pero no lee la bascula que esta en el mismo com que configuro en el 4gl, porfa ayudeme a que me funciones gracias, El codigo no arroja ningun error pero no lee nada