Accès au port parallèle

Voila, j'essaie de convertir un programme en Turbo Pascal écrit par mon prof de physique. Tout va bien sauf pour la partie d'accès au port parallèle.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

uses Printer;   repeat begin Inc(i); port[$378] := i; end; until (port[$379] < 128); U1 := (port[$378]-4)*0.0194;

---

C'est surtout l'accès au port 378 par le tableau port[] que je n'arrive pas à implémenter dans delphi. J'ai entendu parler de TComPort mais je ne sais pas comment m'en servir.

Merci d'avance.

pas d'idées ? :(

il me semble que TComPort ne gère que le port série ?

sinon, en tapant "port parallele delphi" dans google, j'ai plein de pistes...

Fait une recherche sur le forum, le sujet à déjà été traité et résolu (librairie ZLPortIO ...).

voilà, il te faut déjà pouvoir accéder au port parallèle de l'imprimante...
si tu ne veux pas trop t'ennuyer tu télécharges userport qui te permet d'ouvrir l'accès au port parallèle sous xp.
tu cliques sur start et c'est bon.
ensuite, tu télécharges la dll pikpok32 que tu places dans system 32 ou dans le dossier qui contient ton application.
après dans ton appli, tu déclares:

Code:

---

procedure outb(ad:integer;val:integer);stdcall;external 'pikpok32'name'outb';

---

pour utiliser la procédure :
out(888,ta valeur) et voilà.
c'est simple.
c'est encore un prof de physique qui te répond .;)

salut

petit ajout, outb, c'est pour envoyer l'info vers le port parallèle sinon tu as aussi la function inpb toujours utilisable à partir de pikpok32...

Bonjour,

Citation:

---

C'est surtout l'accès au port 378 par le tableau port[] que je n'arrive pas à implémenter dans delphi.

---

Normal, les entées-sorties physiques sur un port ou la mémoire sont protégées dans Windows, contrairement à DOS.

On peut passer par les drivers Windows ou des DLL.