Port ParalleleRésolu

Question

J'ai fait pas mal de recherches pour savoir comment lire et écrire sur mon port parallèle LPT1.
J'ai trouvé des méthodes pour Windows XP, et notamment l'utilisation de Inpout32.dll
Logiciel de programmation = Delphi 4.
Le port parallèle marche très bien avec une imprimante.
La compilation accepte ma syntaxe :
      function Inp32(port:integer):integer;Stdcall; export;
      external 'inpout32.dll';
      function Out32(port, valeur:integer):integer;Stdcall;export;
      external 'inpout32.dll';

Procedure  TFenetre_Essai.Bouton_Mise_a_1Click (Sender: TObject);
begin
     Out32 ($378, $FF)
end;


Procedure  TFenetre_Essai.Bouton_Mise_a_0Click (Sender: TObject);
begin
     Out32 ($378, $00)
end;

Le programme tourne, mais les leds de test restent désespérément éteintes.

Y a-t-il une erreur dans mon code, ou y a-t-il une astuce de mise en oeuvre de la dll ?

Merci d'avance à tout intervenant susceptible de m'aider.

jlen100 · Accepted Answer

salut;
il ne faut pas oublier d'initialiser le port en sortie
  out32(LPTx+2,inp32(LPTx+2)and $DF); // Mettre reg data de LPT en sortie

@+
jlen

Port Parallele

1 réponse

Votre réponse

Discussions similaires