August 04, 2020, 11:24:58 am

News:

SMF - Just Installed!


Sending data to Lpt port

Started by Fletch, September 30, 2015, 07:59:18 am

Previous topic - Next topic

Fletch

Hi All

Can someone help.  Ver 9.42

I need to send 3 bytes to LPT 1 but at different base addresses.  I tried doing it as below but it does not work.  Can someone advise me.

nrLPT.Active := False;
nrLPT.LptPort := lpLPT1;
nrLPT.LptIOBase := 890;
nrLPT.Active := True;
nrLPT1.SendChar('0');
nrLPT.Active := False;
nrLPT.LptIOBase := 888;
nrLPT.Active := True;
nrLPT1.SendChar('1');
nrLPT.Active := False;
nrLPT.LptIOBase := 890;
nrLPT.Active := True;
nrLPT1.SendChar('1');

Thanks
Godfrey