Author Topic: Sending data to Lpt port  (Read 370 times)

Fletch

  • Newbie
  • *
  • Posts: 29
    • View Profile
Sending data to Lpt port
« on: September 30, 2015, 07:59:18 am »
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