Kbase 37078: How to read data from a serial COM port
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
02/04/2001 |
|
Solution ID: P7078
GOAL:
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 PAUSE 0.
IF LASTKEY = -1 THEN
LEAVE.
ELSE
ASSIGN
cCheckString = cCheckString + CHR(LASTKEY).
END.
INPUT STREAM StreamName CLOSE.
iCheckNumber = INTEGER(cCheckString).