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

ComboBox1. Items. Add ('LPT ïîðò³â íå çíàéäåíî');

ComboBox1. ItemIndex:= 0;

end

else

ComboBox1. ItemIndex:= 0;

Lpt. WritePort (GetCurrentPort, 0,0);

Lpt. WritePort (GetCurrentPort, 2,3);

end;

procedure TForm1. FormDestroy (Sender: TObject);

begin

Lpt. Destroy;

Timer1. Enabled:= false;

end;

function TForm1. GetCurrentPort:byte;

begin

if '$3BC' = ComboBox1. Text then

GetCurrentPort:=LPT1

else

if '$378' = ComboBox1. Text then

GetCurrentPort:=LPT2

else

GetCurrentPort:=LPT3;

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin

CheckBox1. Checked:= Pin1;

CheckBox2. Checked:= Pin2;

CheckBox3. Checked:= Pin3;

CheckBox4. Checked:= Pin4;