Delphi控制并行端口位操作

　　添加8个 CheckBox 组件，修改它们的 Caption（标题）属性分别为 D0 到 D7 ，将它们按右到左进行排列好。

　　双击 CheckBox1，在CheckBox1组件的OnClick（单击）事件中加入以下的程序代码：

　　procedure TForm1.CheckBox1Click(Sender: TObject);
var
b:BYTE;
begin
b:=0;
if CheckBox1.Checked then
b:=b or $01;
if CheckBox2.Checked then
b:=b or $02;
if CheckBox3.Checked then
b:=b or $04;
if CheckBox4.Checked then
b:=b or $08;
if CheckBox5.Checked then
b:=b or $10;
if CheckBox6.Checked then
b:=b or $20;
if CheckBox7.Checked then
b:=b or $40;
if CheckBox8.Checked then
b:=b or $80;
WritePort($378,b); //写数据端口
end;

　　输入完成后，把CheckBox2到CheckBox8这7个CheckBox组件的OnClick事件设置为CheckBox1的OnClick事件：CheckBox1Click。

　　此时编译运行程序，已经可以通过点击这8个CheckBox来控制LPT1的数据端口的各个位的电位高低了。

　　下面再加入监控并口的数据端口状态的功能。

　　在Form1中加入一个Timer组件：Timer1，修改它的Enabled属性为False，Interval属性为1。

　　在Timer1的OnTimer事件中加入：

　　procedure TForm1.Timer1Timer(Sender: TObject);
var
B:BYTE;
begin
B:=ReadPort($378); //读数据端口
CheckBox1.Checked:=((B or $FE)=$FF);
CheckBox2.Checked:=((B or $FD)=$FF);
CheckBox3.Checked:=((B or $FB)=$FF);
CheckBox4.Checked:=((B or $F7)=$FF);
CheckBox5.Checked:=((B or $EF)=$FF);
CheckBox6.Checked:=((B or $DF)=$FF);
CheckBox7.Checked:=((B or $BF)=$FF);
CheckBox8.Checked:=((B or $7F)=$FF);
end;