Pour ceux qui ne connaissent pas ou très peut cette dll
Voici quelques indication pour les connaisseurs de la commande
d'interface par le port parallèle.
sous Delphi voici les procedures, les fonctions à mettre.
procedure PortOut(Port : Word; Data : Byte);
procedure PortWordOut(Port : Word; Data : Word);
procedure PortDWordOut(Port : Word; Data : DWord);
function PortIn(Port : Word) : Byte;
function PortWordIn(Port : Word) : Word;
function PortDWordIn(Port : Word) : DWord;
procedure SetPortBit(Port : Word; Bit : Byte);
procedure ClrPortBit(Port : Word; Bit : Byte);
procedure NotPortBit(Port : Word; Bit : Byte);
function GetPortBit(Port : Word; Bit : Byte) : WordBool;
function RightPortShift(Port : Word; Val : WordBool) : WordBool;
function LeftPortShift(Port : Word; Val : WordBool) : WordBool;
function IsDriverInstalled : Boolean;
Descriptions de quelques Fonctions
PortOut Outputs a byte to the specified port. PortWordOut Outputs a word (16-bits) to the specified port. PortDWordOut Outputs a double word (32-bits) to the specified port. PortIn Reads a byte from the specified port. PortWordIn Reads a word (16-bits) from the specified port. PortDWordIn Reads a double word (32-bits) from the specified port. SetPortBit Sets the bit of the specified port. ClrPortBit Clears the bit of the specified port. NotPortBit Nots (inverts) the bit of the specified port. GetPortBit Returns the state of the specified bit. RightPortShift Shifts the specified port to the right. The LSB is returned,
and the value passed becomes the MSB. LeftPortShift Shifts the specified port to the left. The MSB is returned,
and the value passed becomes the LSB. IsDriverInstalled Returns non-zero if io.dll is installed and functioning.
The primary purpose of this function is to ensure that the
kernel mode driver for NT/2000/XP has been installed and is accessible.
