_SPortGetChar

(    hComm  : Longint;
 dim bData  : Byte) : Byte

Čte jeden znak z otevřeného sériového portu, jehož identifikátor je hComm. Jestliže vrací true, přečetl znak a vrací ho v parametru bData. Jestliže vrací false, žádný přenos po sériovém portu neproběhl a žádná data nejsou tudíž k dispozici.

Podívejte se na: Procedury a funkce - Sériový port

Příklad:

dim hComm   : Longint;
dim Error   : String;
dim bData   : Byte;
dim bESC    : Byte;

hComm := _SPortOpen(1, 9600, 0, 8, 1, Error);
if(hComm = 0)then
    _MsgBox(1, Error, 0);
    Exit
endif

bESC := false;
repeat
    if(_SPortGetChar(hComm, bData))then
        Trace(bData);
    else
        Delay(100);
    endif
    if(_Inkey=kbESC)then
        _ReadKey;
        bESC := true;
    endif
until bESC;
SPortClose(hComm);