Lire port parallèle

Question

Bonjour,

J'utilise ZLportIO pour pouvoir communiquer avec le port parallèle, et plus précisement pouvoir lire la pin n°14.

procedure TForm1.FormCreate(Sender: TObject);
begin
        begin
                ZLInit;
                ZLIOSetIOPm(True);
                PortWriteB($378, 0); // Ecriture LPT1
                Timer1.Interval := 100;
                Timer1.Enabled := True;
        end;
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
        Try
                Label4.Caption := IntToStr(PortReadB($378)); // Lecture LPT1
        Except
        end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
        ZLFinalize;
end;

Ici le programme de Sub0 permet de lire le port, mais comment fait-on pour récupérer seulement l'information située sur la pin 14 ?
Il faut faire un masque binaire d'accord, mais comment coder cela ? (J'ai commencé le Delphi il y a 1semaine)

Merci d'avance...

revsys · Answer

Problème résolu !
http://www.developpez.net/forums/showthread.php?t=327063

Lire port parallèle

1 réponse

Votre réponse

Discussions similaires