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

end;

procedure TForm1. Button16Click (Sender: TObject);

begin

ButtonPin16;

end;

procedure TForm1. Button17Click (Sender: TObject);

begin

ButtonPin17;

end;

procedure TForm1. ButtonPin2;

begin

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

end;

procedure TForm1. ButtonPin3;

begin

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

end;

procedure TForm1. ButtonPin4;

begin

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

end;

procedure TForm1. ButtonPin5;

begin

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

end;

procedure TForm1. ButtonPin6;

begin

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

end;