Comment lire les informations sur le port parallèle ?

**revsys** · 30/04/2007, 16h06

Bonjour,

Aprés plusieurs recherches sur Internet pour essayer de comprendre comment lire le port parallèle, je vois apparemment que plusieurs méthodes existent.
Il y en a qui utilisent l'ASM et d'autres non, mais il parait qu'on ne peut plus utiliser l'ASM sous Windows 2000 avec Delphi (je précise que je suis sous Windows 2000 et Delphi 6).
Si quelqu'un pouvait m'éclairer sur le sujet avec quelques bouts de code.
L'adresse de mon port parallèle est de 0x378 (comme toutes les autres).

Merci d'avance.

**octal** · 30/04/2007, 16h40

Envoyé par revsys

Bonjour,

Aprés plusieurs recherches sur Internet pour essayer de comprendre comment lire le port parallèle, je vois apparemment que plusieurs méthodes existent.
Il y en a qui utilisent l'ASM et d'autres non, mais il parait qu'on ne peut plus utiliser l'ASM sous Windows 2000 avec Delphi (je précise que je suis sous Windows 2000 et Delphi 6).
Si quelqu'un pouvait m'éclairer sur le sujet avec quelques bouts de code.
L'adresse de mon port parallèle est de 0x378 (comme toutes les autres).

Merci d'avance.

le plus simple c'est d'utiliser un composant qui te permet de le faire. La plus part des composants permettant d'accéder au ports du pc possèdent maintenant un driver (.SYS ou .VXD) qui qui t"évite le casse tête de la protection imposée par l'OS.
Dans le temps j'avais utiliser SmallPort ... maintenant sur le net il y en a au moins 4 ou 5 en freeware permettant de le faire facilement...
Google them up !!!!
ou bien vas y directement sur torry.net dans la rubrique concernée de la vcl

Cordialement
Octal

**declencher** · 30/04/2007, 23h50

Fais une recherche sur "io.dll", tu trouveras surement ton bonheur.

**Sub0** · 01/05/2007, 14h24

Pour ma part, c'est ZLPortIO :
http://www.developpez.net/forums/showthread.php?t=20846

**revsys** · 02/05/2007, 09h12

Ok merci je vais essayer ça tout de suite...

**Sub0** · 02/05/2007, 12h22

Envoyé par revsys

Ok merci je vais essayer ça tout de suite...

C'est ce lien qui t'intérresse : http://sub0.developpez.com/delphi/LPT_1d.zip

Si tu rencontres des problèmes, poste!

**revsys** · 02/05/2007, 16h18

Merci c'est un trés bon exemple.
Mais je voulais savoir aussi s'il était possible de lire qu'une seule pin ?
Dans mon cas, c'est la n°14 qui m'intéresse à l'adresse 0x37A.

**Sub0** · 02/05/2007, 19h49

Bien sûr !!

Regarde le fichier GIF de l'archive.

**octal** · 02/05/2007, 23h29

Envoyé par revsys

Merci c'est un trés bon exemple.
Mais je voulais savoir aussi s'il était possible de lire qu'une seule pin ?
Dans mon cas, c'est la n°14 qui m'intéresse à l'adresse 0x37A.

Il suffit de faire un mask binaire sur la valeur lue pour récupérer la pine qui t'interesse.
Cordialement

**revsys** · 03/05/2007, 09h05

D'accord cela confirme ce que je pensais

Mais je voulais être sûr qu'il n'y avait pas d'autres techniques propores à Delphi...
Merci pour vos réponses je vais tester tout ça.

**revsys** · 03/05/2007, 15h40

En fait en C je vois comment faire, mais en Delphi je ne sais pas trop quelles sont les conventions (j'ai commencé le Delphi il y a 2 semaines

) et je n'arrive pas à trouver des exemples en Delphi sur Internet de masque binaire

.
De même, je n'ai pas trop compris ton Gif Sub0. C'est quoi BA+2 ?

Je cherche à lire la pin n°14, A.Feed mais je ne vois pas comment faire...

**octal** · 03/05/2007, 17h38

Envoyé par revsys

En fait en C je vois comment faire, mais en Delphi je ne sais pas trop quelles sont les conventions (j'ai commencé le Delphi il y a 2 semaines

) et je n'arrive pas à trouver des exemples en Delphi sur Internet de masque binaire

.
De même, je n'ai pas trop compris ton Gif Sub0. C'est quoi BA+2 ?

Je cherche à lire la pin n°14, A.Feed mais je ne vois pas comment faire...

Voilà les routines que j'utilse pour manipuler les bits en Delphi. Je les écrites il y plus de 10 ans en Pascal puis porté sous Delphi et je les utilise depuis sans uacun pb. Il te suffit de lire ton octet sur ton port parallel et d'utiliser la routine qui te concerne.

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
 
//Met un bit particulier à 1
function SetBit (aValue, BitIndex: Byte): Byte;
begin
  Result := aValue or (1 shl BitIndex);
end;
//Met un bit particulier à 0
function ClearBit (aValue, BitIndex: Byte): Byte;
begin
  Result := aValue and not (1 shl BitIndex);
end;
//Alterne (inverse l'état) la valeur d'un bit particulier entre 1 et 0
function ToogleBit (aValue, BitIndex: Byte): Byte;
begin
  Result := aValue xor (1 shl BitIndex);
end;
//retourne True si le Bit est à 1 sinon False s'il est à zero.
function TestBit(aValue, BitIndex: Byte): Boolean;
begin
  Result := aValue and (1 shl BitIndex) <> 0;
end;

PS. je n'ai posté que les fonctions agissant sur les Byte, maintenant vous pouvez les généraliser pour le faire sur des données de n'importe qu'elle taille.

Bon courage

**revsys** · 04/05/2007, 09h19

Oui mais comment faire pour dire à Delphi quel bit je veux tester ?

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
24
 
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){faire masque ici ?}); // Lecture LPT1
        Except
        end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
        ZLFinalize;
end;

Je n'ai pas compris non plus le gif de Sub0...

**octal** · 04/05/2007, 10h04

Envoyé par revsys

Oui mais comment faire pour dire à Delphi quel bit je veux tester ?

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
24
 
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){faire masque ici ?}); // Lecture LPT1
        Except
        end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
        ZLFinalize;
end;

Je n'ai pas compris non plus le gif de Sub0...

Ben ... pour cela regarde un peu la doc sur le port parallel .... (Parallel Port Complete de Jan Axelson est une superbe référence).
Voyons comment le faire:

Chaque port parallel sur le pc possède 3 registres (de 8 bits):
1- un port d'émission de donnée (broches D0..D8 des données).
2- un un port d'état (permet de lire les siignaux d"état comme ERROR, SELECT, PE, ACK et BUSY)
3- un port de contrôle (celui qui t'interesses) .... permet de lire/ecrire STROBE, AUTOFEED, INIT et SELECT IN. Ta pine 14 correspond au signal AUTOFEED, donc le deuxième bit de ce registre (Bit0.Bit1.Bit2....Bit7)

En général, la première imprimante est associée au ports 378h à 37Ah, la seconde aux ports 278h à 27Ah et la troisième au ports 3BCh à 3BEh. Ces valeurs ne sont pas universelles. Pour en connaître la valeur, le BIOS possède une table à l'adresse 0040h:0008h comportant les adresse de base des trois interface parallèles :
0040h:0008h : base du port parallèle n°1
0040h:000Ah : base du port parallèle n°2 (zéro si inexistant)
..;
pour ces détails ainsi que la manière de retrouver l'adresse de ton port sous windows, je te laisses regarder une doc plsu détaillée.

Bref .... supposons que ton port est à $378, cela fait que tes ports sont disposés comme cela
[Port Emission: $378][Port Etat: $379][Port Controle: $37A]

et comme le signal pine 14 correspond au deuxieme bit (Bit1) du port de controle:

Code :

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

1
2
3
4
5
6
7
8
 
 
function LirePine14() : boolean;
var octet : byte;
begin
  octet := PortReadB($37A); // utiliser n'importe quel composant pour lire. Dans ton cas ZLIOPort...
  result := TestBit(octet, 1);
end;

Voilà... J'espère que cela te permettra de mettre en place ta solution. Il faudra peut être faire des adaptations à ton pb, mais le principe est le même

**revsys** · 04/05/2007, 11h51

Ah merci, ça marche et j'ai compris !!
Voici le code :

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
24
25
26
27
28
29
30
31
 
procedure TForm1.FormCreate(Sender: TObject);
begin
        begin
                ZLInit;
                ZLIOSetIOPm(True);
                PortWriteB($378, 0); // Ecriture LPT1
                Timer2.Interval := 1;
                Timer2.Enabled := True;
        end;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var octet : byte;
var result : boolean;
begin
        Try
                octet := PortReadB($37A);  // Adresse registre d'état du port parallèle
                result := octet and (1 shl 1) <> 0;   // 1 shl 1 (bit n°1 du registre d'état du port parallèle)
                if result  then                       // Auto feed bit1 du registre d'état
                        Label5.Caption := 'Le bit est actif'
                else
                        Label5.Caption := 'Le bit est inactif';
        Except
        end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
        ZLFinalize;
end;

**revsys** · 04/05/2007, 11h57

Ah merci, ça marche et j'ai compris !!
Voici le code :

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
24
25
26
27
28
29
30
31
 
procedure TForm1.FormCreate(Sender: TObject);
begin
        begin
                ZLInit;
                ZLIOSetIOPm(True);
                PortWriteB($378, 0); // Ecriture LPT1
                Timer2.Interval := 1;
                Timer2.Enabled := True;
        end;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var octet : byte;
var result : boolean;
begin
        Try
                octet := PortReadB($37A);  // Adresse registre d'état du port parallèle
                result := octet and (1 shl 1) <> 0;   // 1 shl 1 (bit n°1 du registre d'état du port parallèle)
                if result  then                       // Auto feed bit1 du registre d'état
                        Label5.Caption := 'Le bit est actif'
                else
                        Label5.Caption := 'Le bit est inactif';
        Except
        end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
        ZLFinalize;
end;