Discussion :

[fab56]

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 :

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

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.

[fab56]

pas d'idées ?

[tourlourou]

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...

[kariatis]

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

[Archimède]

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 :

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

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

[Archimède]

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...