[TP] Port parallèle

Version imprimable

21/11/2004, 19h18
cerede2000

[TP] Port parallèle
Voila j'utilise DEV-PAS et je veut programmer mon port paralelle donc je fait ceci
Code:

1 2 3 4 5 program port; begin Port[$378]:=$01; end.
Et j'ai l'erreur suivante teste.pas(4,3) Error: Identifier not found PORT
Alors si vous pouvez m'aider merci d'avance.
21/11/2004, 20h58
Eric Sigoillot
Dev-Pascal te permet de faire des programmes en mode protégé 32 bits. Or sous ce mode, il est hors de question d'aller titiller les ports de la sorte. Ils sont bien entendu protégés, et tu risques de provoquer des erreurs de protection en pratiquant de la sorte.
Néanmoins, si tu tiens à t'amuser, tu peux faire comme ça :
Code:

1 2 3 4 5 6 asm mov ax, Valeur mov dx, Port out dx, ax end;
Si jamais Dev-Pascal utilise la syntaxe AT&T pour l'assembleur, alors ça devrait ressembler à quelque chose de la sorte :
Code:

1 2 3 4 5 6 asm movw Valeur, %ax movw Port, %dx outw %ax, %dx end;
A tes risques et périls bien sûr...

A+
21/11/2004, 21h56
cerede2000

ok merci mais alors pourquoi quand je fait la meme chose avec turbo pascal 7 ca ne marche pas quand meme enfin la valeur du port ne change pas!! pourquoi?
21/11/2004, 22h03
M.Dlb

Ca ne marche pas, ou ça retourne une erreur ?

Fais attention lorsque tu spécifie "program port;", le compilateur peut mal interpréter les identifiant, et il peut y avoir conflit.

a+
21/11/2004, 22h19
Eric Sigoillot

Tu es au courant que le port 378h correspond à LPT2, autrement dit le second port parallèle, disparu de tous les PC standards depuis des lustres ?
Pour LPT1, c'est sur le 278h qu'il faut écrire.

Et il est possible que Windows XP pose problème, si jamais tu utilises cet OS.

A+
21/11/2004, 22h32
cerede2000
Ben sur le net il est marque partout qu'il faut utiliser le port 378 et meme avec 278 ca ne fait rien!! Et oui j'utilise xp. En faite je met une valeur sur le port et je regarde avec une led si cette valeur est bien 0 ou pas. Sauf que sur les bus de données D0 a D7 j'ai toujour $FF. Cbien comme ca qu'on attribut?
Code:

1 2 3 4 5 program port; begin Port[$378]:=$01; end.
21/11/2004, 22h43
M.Dlb

Citation:

Envoyé par Hdd34

Tu es au courant que le port 378h correspond à LPT2, autrement dit le second port parallèle, disparu de tous les PC standards depuis des lustres ?
Pour LPT1, c'est sur le 278h qu'il faut écrire.

Si on suppose que les constructeurs de cartes mère ont bien fait leur boulot, et qu'il se sont soucier le compatibilité ascendante, on peut penser qu'ils ont affecté le même emploi au port 278h et 378h, lorsque LPT2 a disparu... (Voilà c'était juste ma réflexion en passant :lol:)

Citation:

Envoyé par cerede2000

Et oui j'utilise xp.

Boote sous DOS (le vrai, l'unique) et reteste ton programme compilé ;)

a+
21/11/2004, 23h18
Eric Sigoillot

Je pense très fortement que Windows XP bloque l'accès aux ports, car ça représente une faille de stabilité importante. De fait, avec un programme Windows, pour accéder comme on le souhaite au port parallèle, il faut passer par un driver.
Tu peux toujours passer une sous-couche Windows pour accéder au port parallèle, mais là, tu te lances dans un domaine assez ardu. SI tu veux, j'ai créé une unité pour accéder au presse-papier Windows depuis une fenêtre Dos, qui se sert justement de cette sous-couche (les VDD, Virtual Dos Devices). Mais si jamais tu débutes, mieux vaut passer sous Dos et oublier cette éventualité.

A+
21/11/2004, 23h40
Sub0

Salut!

Je confirme, LPT1 = 378h. Tu peux éventuellement te servir de mes programmes (sources en Delphi) pour visualiser l'accès direct au port parrallèle avec le pilote ZLPortIO... Extrait les fichiers du programme dans le dossier de ton choix. N'éxécute pas les programmes directement à partir de l'archive... On ne peut aussi éxécuter qu'une seule session du pilote à la fois.

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

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

Il doit-être possible de traduire le code de l'unité ZLPortIO pour Dev-Pascal...
http://www.specosoft.com/en/zlportio.html
à+
22/11/2004, 07h50
cerede2000

Ben meme avec ces logs la la valeur du port ne change pas!!
22/11/2004, 09h16
Sub0

Pas normal!

Citation:

Envoyé par Sub0

Extrait les fichiers du programme dans le dossier de ton choix

Tous les fichiers, en particulier l'éxé et le .sys

Vérifie dans le gestionnaire de périphériques que ton port // est bien dispo et ok.
Sinon, vérifie dans le Bios qu'il est bien en mode SPP ou EPP sur le port $378h...
Vérifie qu'il fonctionne avec une imprimante ou un autre périphérique...
Sinon, j'espère pour toi que tu n'as pas bidouillé le port car il est très fragile et crame assez vite si on fait de mauvais branchements!
http://www.leguide.com/cartes_port_parallele.htm
22/11/2004, 11h34
cerede2000

avec le log de specocoft ca marche!! Mais c'est quand je prog en turbo pascal que ca marche pas!!! Meme avec turbo pacal 7!! pourquoi?
22/11/2004, 12h14
Sub0

Parceque ce sont des compilateurs 16bits, et que le pilote nécessaire est en 32bits (système d'exploitation multi-taches)... Malgré tout, je pense qu'il est possible de faire du code 32bits avec ces compilateurs en utilisant une unité spéciale. Sinon, tu peux éventuellement développer une DLL 32bits (avec Delphi) compatible avec un compilateur 16bits... Il ya des topics à ce sujet dans le forum. Quoiqu'il en soit, Delphi est beaucoups mieux que ces vieux compilateurs. Il reste possible de réaliser des programmes Dos avec Delphi (programmes console). Si tu as la possibilité de passer à Delphi, fait-le! Le 64bits est déjà là!

Si ça t'intérresse, j'ai réalisé un programme Delphi dont la fonction unique est l'accès direct aux ports. Via les messages Windows, on peut l'utiliser pour accéder aux ports du pc avec n'importe quel programme. Si tu veux utiliser cette méthode, je pourrais adapter ce programme à tes besoins...

http://www.developpez.net/forums/vie...481798#1481798

à+
22/11/2004, 12h44
cerede2000

Ben je comprend parcque une foit vous me dites qu'il faut utiliser un compilateur 16 et une autre foit un 32. Car j'ai essayer avec DEV-PASCAL et il ne reconnait pas port!! Et pour le delphi ben non je peut pas car en faite c'est pour un pojet au lycée et on programmen en pascal!! Alors sinon quel compilateur utiliser merci!
22/11/2004, 12h56
Eric Sigoillot

On t'a jamais dit qu'il fallait utiliser un compilateur 16 bits... Personnellement, je t'ai ditqu'avec un compilateur 32 bits, tu ne pouvais pas te permettre d'attaquer le port parallèle de manière sauvage comme tu le fait.

A partir du moment où tu es sous Dos de toute manière, Windows XP va te causer de nombreux soucis : aucun accès matériel direct, et aucune possibilité d'accéder de manière simple aux API Windows.
Par contre, avec Dev-Pascal, tu dois pouvoir créer une application Console, donc le même principe qu'une application Dos, mais cette fois avec des accès aux API de Windows, et donc une manière simplifiée d'accéder au port parallèle, en utilisant par exemple la librairie proposée par Sub0.

A+
22/11/2004, 15h14
cerede2000

ouai merci mais je sait pas faire d'appli console? ya un tuto quelque par? Merci
Et aussi quand je veut utiliser la lib zlportio j'ai un probleme il ne trouve pas la lib winsvc???? Alors que c'est censer etre un lib windows!!
23/11/2004, 00h07
Sub0

:arrow: Un programme console est une application qui s'ouvre dans une fenêtre Dos sous Windows. Soit tu programmes en Dos pur (avec Windows95/98 par exemple) et dans ce cas, tu peux travailler directement en 16bits, soit tu travailles avec WinXP/2000/NT et dans ce cas, tu seras obligé d'accéder aux ports avec un pilote. Quoiqu'il en soit, il n'existe pas de Dos "pur" avec WinXP, donc ton appli sera forcément un programme console (Dos dans une fenêtre Windows). Pour voir ce qu'est une console, il suffit de faire menu éxécuter, taper "command" et valider. Tu as alors une fenêtre Dos qui s'affiche sur l'écran. Il sagit d'une console. Un programme console est un programme qui s'éxécute dans ce genre de fenêtre tout simplement.

:arrow: Si tu dois travailler avec un compilateur 16bits, et avec un système d'exploitation 32bits, tu n'auras pas d'autres choix que d'utiliser un pilote d'accès direct aux ports. Ce que je te propose dans ce cas, c'est d'utiliser un programme externe, une interface... C'est ce que réalise le programme Init_ZL.exe. Il permet l'accés direct aux ports via les messages Windows...

Télécharge cette démo, elle contient aussi le code source. Le programme Init_ZL est déjà compilé, tu n'as donc pas besoin des sources, il suffira simplement de l'éxécuter. Evidemment, il faudra probablement l'adapter un peu mieux à ton projet parce que là, il est à l'état de démo... Nous verrons ça par la suite... Ce qui est plus important pour l'instant, est de pouvoir communiquer avec Init_ZL en utilisant ton programme 16bits. Ouvre le fichier Unit1.pas du dossier Test. Tu trouveras dans ce code toutes les informations nécessaires pour communiquer avec mon pilote. Il sagit d'envoyer et de recevoir des messages... Recherche donc comment envoyer et recevoir un message Windows avec Dev-Pascal (les unités nécessaires sont peut-être bien différentes de celles de Delphi, je ne sais pas).

:arrow: En résumé, si tu es obligé de travailler avec un système d'exploitation 32bits, tu dois trouver comment envoyer et recevoir un message Windows avec ton compilateur. Ainsi tu pourras utiliser mon interface d'accès aux ports.

à+
23/11/2004, 00h55
Sub0

Les fonctions PostMessage et GetMessage se trouvent dans l'unité WinProcs normalement...

As-tu accès à cette unité avec ton compilateur ?
23/11/2004, 07h58
cerede2000

Ben j'ai tester deja ton programme Test.exe et quand on fait write pas de probleme mais quand on fait read il plante!!
23/11/2004, 17h35
cerede2000

Si j'ai lut et je comprend je vai voir avec le fichier unit1.pas sinon une question il utilise le service d'affichage des message c'est ca?? Car ce service je le descative moi pour pas me taper les messages du net tou pourri!!
23/11/2004, 18h03
Sub0

non, rien à voir avec les messages internet du style telnet!
D'ailleurs il n'ya aucun rapport avec le port parrallèle...
Voici une introduction aux messages windows (API):

http://alphomega.developpez.com/EchangeVal/

Ok alors dans unit1.pas j'ai trouve ceci
Code:

1 2 3 4 5 6 7 8 PROCEDURE TForm1.ButtonWriteClick(Sender: TObject); VAR Value:Byte; BEGIN TRY Value:=max(min(StrToInt(EditWrite.Text),255),0); PostMessage(StrToInt(EditHandle.Text),ZL_ECRITURE,$378,Value); EXCEPT ShowMessage('Valeur incorrecte!');END; END;
C'est donc ceci qui permet l'envoi d'un message c'est bien ca? Et c'est la routine PostMessage qui permet l'envoi avec l'utilisation du pilote c'est bien ca?
Et aussi pour WinProcs il ne le trouve pas non plus!!

23/11/2004, 20h06
Sub0

oui, c'est ce code qui permet d'écrire sur le port. Via les messages, on appelle les fonctions du programme Init_ZL que l'on pourrait comparer à un service (programme résident). Init_ZL est compatible 32bits, c'est donc lui qui est chargé d'accèder aux ports et te renvoit les résultats... Les messages permettent simplement de communiquer avec ce programme windows.
23/11/2004, 20h16
Eric Sigoillot

Le couple d'unités WinTypes, WinProcs est une parade trouvée par Borland pour ses compilateurs 16 bits face à la taille conséquente des librairies Windows.
Mais comme tu utilises Dev-Pascal, qui est un compilateur 32 bits, il y a de fortes chances que tu disposes de l'unité Windows qui rassemble les deux...

A+
23/11/2004, 20h32
Sub0

Si tu disposes de l'unité Windows, tu devrais peut-être réessayer de compiler ZLPortIO:

Voici l'unité qu'il te manquait: http://sub0.developpez.com/delphi/WinSvc.pas

ZLPortIO: http://sub0.developpez.com/delphi/LPT_1d.zip
24/11/2004, 19h22
cerede2000

Merci deja pour ca! Mais maintenan j'ai plein d'erreur a la compilation dans le fichier winsvc.pas!!!! 31 en tout repartie dans tout le fichier!! C'est assez embetant
25/11/2004, 00h39
Sub0

Tu as de la chance... Je suis arrivé à compiler ZLPortIO avec Dev-Pascal!
Et en plus, ça fonctionne! Néanmoins, j'ai été obligé de "bricoler" le code des unités, donc ce n'est pas très propre sur quelques points. Le compilateur signale quelques erreurs à la compilation, mais ça ne l'empêche pas de fonctionner. Je ne pense pas que ça posera problème pour ton projet... Le programme de test écrit le byte 123 sur le port parrallèle ($378h), puis lit le port. Le résultat de la lecture est ce que l'on vient d'écrire. Cela confirme donc que l'on a bien écrit sur le port...

:arrow: http://sub0.developpez.com/delphi/ZLTest.zip

Est-ce-que ça fonctionne chez toi?
25/11/2004, 06h50
cerede2000

Merci bocoup ca marche compilation sans auncune erreure!!! Mais aurait tu un autre compilateur a ma proposer qui marcherai sans prob?
25/11/2004, 07h07
Sub0

Je n'ai pas compris ta question... Tu programmes bien avec Dev-Pascal n'est-ce-pas?
Pourquoi voudrais-tu utiliser un autre compilateur? Et lequel?
:?:
1 • Quel est exactement l'objectif de ton projet?
2 • Que dois-tu faire avec le port parrallèle?
3 • Avec quel(s) système(s) d'exploitation comptes-tu utiliser ce programme?
4 • Combien de temps disposes-tu pour développer ce programme?
25/11/2004, 11h41
M.Dlb

Citation:

Envoyé par cerede2000

Mais aurait tu un autre compilateur a ma proposer qui marcherai sans prob?

TP7 sous Win9x.... Pourquoi se faire ch***, alors que tu obtiendras strictement le même résultat (et peut-être même que tu obtiendras mieux...)
25/11/2004, 13h52
Sub0
wormful_sickfoot a raison!
Avec TP7 sous Win95/98, les problèmes d'accès ne se posent plus.
Le code suivant (16bits) fonctionnera sans difficulté:
Code:

1 2 3 4 5 program port; begin Port[$378]:=$01; end.
Sous WinXP/2000/NT, ce code ne fonctionnera plus.
Il faudra alors passer par un pilote 32 bits pour pour accéder aux ports.
Et pour pouvoir utiliser un pilote 32bits, il vaut mieux un compilateur 32bits...
25/11/2004, 18h17
cerede2000

Donc sous xp pas d'autre choix que ce que je fait actuellement c'est bien ca?
25/11/2004, 19h01
M.Dlb

Citation:

Envoyé par cerede2000

Donc sous xp pas d'autre choix que ce que je fait actuellement c'est bien ca?

Euh oui, tu es obligé de passer par une interface, tu ne pourras pas attaquer le port directement...

Bonne chance pour la suite du développement ;)
25/11/2004, 21h41
Sub0

Le fichier ZLPORTIO.SYS est un service qui gère les droits d'accès aux ports dans un système d'exploitation multi-tâches... Sous ces systèmes, tous le matériel est géré avec des droits d'utilisateurs donnés aux programmes. Cela doit permettre d'éviter les conflits lorsque plusieurs programmes fonctionnent en simultanné et utilisent le même matériel (la mémoire ou le disque dur par exemple). Le matériel ne peut pas faire plusieurs choses à la fois. C'est pour ça qu'il faut utiliser des services qui se chargent de "distribuer" les ressources matérielles aux programmes. J'espère que tu as tout compris maintenant! ;)
26/11/2004, 20h00
cerede2000

Ouai je croit que j'ai comprit un grand merci a vous tous!!!! Ce forum est geniale!!!! Une derniere question destine surtout a Sub0 pourquoi lors de la compilation il yas pour les fichier inclus le message "11 / 1 cours.pas
Hint: unit WINSVC can't be smart linked, switching to static linking" par exemple et pour chaque fichier? Merci
30/11/2004, 10h22
Sub0
Ce sont des messages d'avertissement propres à Dev-Pascal...
Je n'en ai pas tenu compte pour la mise au point (tant que ça marche ;)).
Je ne sais pas d'où ça vient mais ça ne perturbe en rien le fonctionnement!

:arrow: Sources complètes du projet

Extraire tous les fichiers pour tester la démo.
-> Ecriture puis lecture directes sur le port :
Code:

1 2 portwriteb($378,123); Writeln(portreadb($378));
à+

Ce petit programme fonctionne à merveille sous Windows XP et compilé en BP7
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Program lpt1_output; Uses Dos; Var addr:word; data:byte; e:integer; Begin addr:=MemW[$0040:$0008]; { Port LPT1 } { Val(ParamStr(1),data,e);} data:=2; Port[addr]:=123; Writeln(addr,' ',port[addr1]); End.
Maintenant je pense à solutionner mon petit problème de controle domotique en utilisant le port LPT1 au lieu du game port.

13/04/2008, 18h48
Transgarp

Ah, j'oubliais.

Sous XP il faut absolument débarrer le port parallèle LPT1 ou LPT2 à l'aide d'utilitaire comme DirectIO, sinon il ne se passe rien.

Ca m'aide pas plus pour mon système domotique, car j'ai besoin des 8 premiers bits du port Data et Control de l'ordi. DiretcIO n'ouvre pas $300 à $303

Dans le cas du $378, DirectIO ne libère que les bits D0 à D5

Il y a t il quelqu'un qui connait une carte I/O digitale programmable par Pascal et fonctionnant sous XP ?

Je me casserais moins les neurones.