並行端口簡稱並口，它有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下測試通過