Port paralléle

Salut et bienvenue sur le forum, néanmoins, je te conseil de lire ceci.
Ce forum est composé uniquement de bénévoles qui sont là pour venir en aide et non pour faire les projet, une question formulée comme tu viens de le faire ne donne pas du tout envie d'y répondre. Explique clairement ce qui ne va pas et ce que tu cherches à savoir, indique les erreurs que tu rencontres s'il y en a et si possible un bout de code concernant l'endroit où se situe le problème.

Salut!

• Quel composant utilises-tu?
• Quelle version de Delphi?
• Quel est ton système d'exploitation?
• Quelle est la ligne que tu utilises pour l'entrée?
• Avec quoi la relis-tu? Quelle est l'autre ligne?



Sous Win2000/NT/XP, l'accès direct aux ports est protégé! Il faut utiliser un pilote.
J'utilise ZLPortIO. Cette unité (open-source) est compatible avec ces systèmes d'exploitations.

http://site.voila.fr/subut/data4/testzl.zip (6 ko)

Imaginons que tu branches ton poussoir entre Select (entrée pin 13) et D0 (sortie pin 2).
Et qu'il sagit du port LPT1 (adresse $378), cela donnerait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
USES zlportio...;
 
...
 
PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
 Timer1.Interval:=50;
 zliostop;
 zliostart;
 zliosetiopm(True);
 PortWriteb($378,1); // DØ = 1
END;
 
PROCEDURE TForm1.FormDestroy(Sender: TObject);
BEGIN
 zliostop;
END;
 
PROCEDURE TForm1.Timer1Timer(Sender: TObject);
BEGIN
 IF(Boolean( PortReadb($378+1) AND 16 ))THEN
  Panel1.Color:=clLime ELSE Panel1.Color:=clBlack;
END;

Si tu appuis sur le poussoir, le panel devient vert, et quand tu relaches, il devient noir. Simple non?

Regarde donc ces sujets, peut-être trouveras-tu des éléments de réponse...

http://www.developpez.net/forums/viewtopic.php?t=66475
http://www.developpez.net/forums/viewtopic.php?t=82898

As-tu trouvé l'entrée que tu utilises avec ce programme?
Note importante: Il faut extraire les fichiers sur disque pour éxécuter ce programme...

J'oubli souvent de préciser 2 choses importantes concernant ZLPortIO...
C'est probablement à cause de ça qu'il pose des problèmes:

Pour initialiser le pilote en accès direct:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
zliostop;
zliostart; 
zliosetiopm(True);
PortWriteB($378+1,0);
PortWriteB($378+2,0);

Pour le finaliser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

zliostop;

à+

Extraire les fichiers du programme dans un dossier de son choix pour tester ces exemples :

Scanner les sorties du port parrallèle...
http://sub0.developpez.com/delphi/LPT_1b.zip

Scanner les entrées du port parrallèle...
http://sub0.developpez.com/delphi/LPT_1.zip

J'ai trouvé une méthode pour lancer plusieurs fois le programme sans avoir de conflits.
L'initialisation du pilote est légèrement différente :
http://sub0.developpez.com/delphi/LPT_1d.zip