Реферат: Паралельний інтерфейс IEEE 1284 (інтерфейс Centronics)

Lpt. Destroy;

Timer1. Enabled:= false;

end;

function TForm1. GetCurrentPort:byte;

begin

if Lpt. IsPortPresent(LPT1) then

GetCurrentPort:=LPT1

else

if Lpt. IsPortPresent(LPT2) then

GetCurrentPort:=LPT2

else

if Lpt. IsPortPresent(LPT3) then

GetCurrentPort:=LPT3;

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin

Lpt. WritePort (GetCurrentPort, 0, (1 xor Lpt. ReadPort((GetCurrentPort), 0)));

if CheckBox1. Checked=false then

CheckBox1. Checked:=true

else

CheckBox1. Checked:=false;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

if Timer1. Enabled=false then

begin

Timer1. Enabled:=true;

Button1. Caption:='Stop';

end