John Coppens wrote 10 lines
On Tue, 26 Dec 2006 15:10:27 +0100
Rainer Stratmann wrote:
> In my program it works for writing, but reading is not possible at the
> moment.
Did you check if (hardware) handshaking is enabled? I've found quite
regularly that one of the lines is stopping the input. If you have
connected only RX/TX/GND, this can also be the source of problem if the
peripheral expects proper level on the handshake lines.
How to do that?
The code for initialisation of the serial interface:
const
iflagoff = BRKINT or INPCK or ISTRIP or IGNCR or INLCR or ICRNL or IUCLC or
IXON or IXANY or IXOFF or IMAXBEL;
iflagon = IGNBRK or IGNPAR;
oflagoff = OPOST or OLCUC or ONLCR or OCRNL or ONOCR or ONLRET or OFILL or
OFDEL or NLDLY or TABDLY or BSDLY or VTDLY or FFDLY;
oflagon = 0;
cflagoff = CBAUD or CSIZE or CSTOPB or PARENB or PARODD or HUPCL or CBAUDEX
or
CIBAUD or CRTSCTS ;
cflagon = CREAD or CLOCAL;
lflagoff = ISIG or ICANON or XCASE or ECHO or ECHOE or ECHOK or ECHONL or
NOFLSH or TOSTOP or ECHOCTL or ECHOPRT or ECHOKE or IEXTEN;
lflagon = 0;
linuxfile:array[serportmin..serportmax] of string =
('ttyS0','ttyS1','ttyUSB0','ttyUSB1','ttyUSB2');
begin
s:='/dev/'+linuxfile[ger_port];
ger_fd:=fdOpen(s,Open_RdWr or Open_NonBlock);
tcgetattr(ger_fd,newtio_ger);
memclr(@newtio_ger,sizeof(newtio_ger));
newtio_ger.c_iflag:= newtio_ger.c_iflag and not(iflagoff) or iflagon;
newtio_ger.c_oflag:= newtio_ger.c_oflag and not(oflagoff) or oflagon;
newtio_ger.c_cflag:= newtio_ger.c_cflag and not(cflagoff) or cflagon;
newtio_ger.c_lflag:= newtio_ger.c_lflag and not(lflagoff) or lflagon;
newtio_ger.c_cflag:= newtio_ger.c_cflag or speednr[ger_baudnr] or CS8 or
CREAD or CLOCAL;
tcsetattr(ger_fd,TCSAFLUSH,newtio_ger);
Rainer
