Delphi控制并行端口位操作

考試大計算機等級站整理：
    并行端口簡稱并口，它有3個端口：數(shù)據(jù)端口、狀態(tài)端口、控制端口，常用的并口為LPT1，它的3個端口的地址分別為：378H、379H和37AH。
     一、并口讀寫
    在匯編語言中，可以用 in、out 指令操作并口，而在Delphi中并沒有相對應的函數(shù)、方法可對并口進行讀寫，幸運的是Delphi可以嵌入?yún)R編程序，通過直接嵌入?yún)R編指令 in、out 可方便地對并口進行讀寫。我們還可以通過調(diào)用 Windows API 函數(shù)或第三方提供的DLL、VXD來訪問并口，但通過使用嵌入?yún)R編的方法對并口進行讀寫更方便、快捷。
    使用下面的 ReadPort 函數(shù)和 WritePort 過程可以讀寫并口，參數(shù) 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;
    二、位操作
    要按位來控制并口，可以先讀取并口的數(shù)據(jù)，再進行位操作，最后再重新寫入并口，就可以實現(xiàn)對并口的位的控制。
    邏輯運算符and對兩個要操作的數(shù)執(zhí)行按位的邏輯與運算：即中有1“與”1的結果為1,其它的0“與”1、1“與”0、0“與”0的結果都為0。
    邏輯運算符or對兩個要操作的數(shù)執(zhí)行按位的邏輯或運算：即只要相“或”的兩位有一位是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、將數(shù)據(jù)端口378H的D2位的電位設置為低，即置0：
    B:=ReadPort($378);
    B:=B and $FB;
    WritePort($378,B);
    2、將數(shù)據(jù)端口378H的D2位的電位設置為高，即置1：
    B:=ReadPort($378);
    B:=B or $04;
    WritePort($378,B);