Delphi控制并行端口位操作

2019-11-17 05:05:22

字體：大中小

來源：轉載

供稿：網友

　　并行端口簡稱并口，它有3個端口：數據端口、狀態端口、控制端口，常用的并口為LPT1，它的3個端口的地址分別為：378H、379H和37AH。

　　一、并口讀寫

　　在匯編語言中，可以用 in、out 指令操作并口，而在Delphi中并沒有相對應的函數、方法可對并口進行讀寫，幸運的是Delphi可以嵌入匯編程序，通過直接嵌入匯編指令 in、out 可方便地對并口進行讀寫。我們還可以通過調用 Windows API 函數或第三方提供的DLL、VXD來訪問并口，但通過使用嵌入匯編的方法對并口進行讀寫更方便、快捷。

　　使用下面的 ReadPort 函數和 WritePort 過程可以讀寫并口，參數 Port 為要操作的端口地址。

function ReadPort(Port:Word):BYTE;

var

B:BYTE;

begin

ASM

MOV DX, Port;

IN AL, DX;

MOV B, AL;

END;

Result:=B;

end;

PRocedure WritePort(Port:WORD;ConByte:BYTE);

begin

ASM

MOV DX, Port;

MOV AL, ConByte;

OUT DX, AL;

END;

end; 二、位操作

　　要按位來控制并口，可以先讀取并口的數據，再進行位操作，最后再重新寫入并口，就可以實現對并口的位的控制。

　　邏輯運算符and對兩個要操作的數執行按位的邏輯與運算：即中有1“與”1的結果為1,其它的0“與”1、1“與”0、0“與”0的結果都為0。

　　邏輯運算符or對兩個要操作的數執行按位的邏輯或運算：即只要相“或”的兩位有一位是1，結果就為1；否則“或”的結果為0。

　　使用and運算符可以對指定的位置0，例如：十六進制84H的二進制為：10000100，它的第三位為1，若要將第三位置為0，且其它位不變，可以使用：$84 and $FB = $80，80H的二進制值為10000000。

　　使用or運算符可以對指定的位置1，例如：十六進制84H的第二位為0，若要將第二位置為1，且其它位不變，可以使用：$84 or $02 = $86，86H的二進制值為10000110。

　　例子：

　　1、將數據端口378H的D2位的電位設置為低，即置0：

B:=ReadPort($378);

B:=B and $FB;

WritePort($378,B);
　　2、將數據端口378H的D2位的電位設置為高，即置1：

B:=ReadPort($378);

B:=B or $04;

WritePort($378,B);
　　3、判定數據端口378H的D2位的電位高低：

B:=ReadPort($378);

if ((B and $04)=$04) then

//電位為高時的代碼

else

//電位為低時的代碼

或：

B:=ReadPort($378);

if ((B or $FB)=$FF) then

//電位為高時的代碼

else

//電位為低時的代碼
　　三、具體實現

　　下面的例子是控制并口的數據端口378H的各個位的電位高低。數據端口的8個位：D0~D7分別對應并行接口的2~9腳，關于并行接口其它的引腳的說明就查看相關資料，這里就不多說了。

　　首先運行 Delphi，新建一個工程，按一下F12在Form1的單元文件Unit1中加入讀寫端口的代碼：

function ReadPort(Port:WORD):BYTE;

procedure WritePort(Port:WORD;ConByte:BYTE);

function ReadPort(Port:WORD):BYTE;

var

B:BYTE;

begin

ASM

MOV DX, Port;

IN AL, DX;

MOV B, AL;

END;

Result:=B;

end;

procedure WritePort(Port:WORD;ConByte:BYTE);

begin

ASM

MOV DX, Port;

MOV AL, ConByte;

OUT DX, AL;

END;

end;

　　添加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;

　　再加入一個CheckBox組件，修改的Caption屬性為“監控并口”，并在它的OnClick事件中加入：

procedure TForm1.CheckBox9Click(Sender: TObject);

begin

Timer1.Enabled:=CheckBox9.Checked;

end;

　　編譯運行程序，點擊“監控并口”，就可以監控并口LPT1數據端口378H的狀態，并可以實時地修改它的狀態。

　　為了方便查看、驗證數據端口378H的狀態，我做了一個小小的并口測試電路，該電路使用了一個打印接口、8個LED（發光二極管）和8個1K的電阻，連接線路如圖所示：

　　按照電路圖制作完成后，安裝到電腦的并口上，運行編寫好的程序就可以方便地查看數據端口378H的各個位的電位高低了。

　　最后，我們再來做一個走馬燈實驗。

　　先聲明一個全局變量 tb：在“Form1:TForm1”的下面加上“tb:BYTE”：

var

Form1: TForm1;

tb:BYTE;
　　再在Form1中加入一個Timer和一個CheckBox，修改Timer2的Enabled屬性為False，修改Interval屬性為300，雙擊Timer2，在它的OnTimer事件中加入：

procedure TForm1.Timer2Timer(Sender: TObject);

var

B:BYTE;

begin

if tb=0 then

tb:=1

else

tb:=tb * 2;

WritePort($378,tb);

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;
　　修改CheckBox10的Caption屬性為“走馬燈演示”，再雙擊CheckBox10，在它OnClick事件中加入：

procedure TForm1.CheckBox10Click(Sender: TObject);

begin

Timer2.Enabled:=CheckBox10.Checked;

end;

　　編譯運行程序。

　　點擊“走馬燈演示”，有沒有看到“走馬燈”的效果？通過修改Timer2的Interval可以調節速度，更多、更Cool的效果就看你的創意了。

　　注重：以上嵌入匯編訪問并口的方法只能在Win9X下使用，若要在WinNT/2K下訪問并口應該使用 Windows API 函數或專門讀寫并口的DLL、VXD。

　　以上程序在Win98+Delphi6.0下測試通過

上一篇：怎樣在DELPHI中實現文件切割/組合

下一篇：在Delphi中使用電子郵件