delphi et port parallele

delphi et port parallele - Programmation

Marsh Posté le 03-08-2001 à 15:33:29    

salut à tous  
je voudrais avoir des infos sur la programmation du port parallele avec delphi.
J'ai installé un ecran LCD (2*16 caractere) et je souhaites créer un programme permettant de le piloter.
 
merci de m'aider  directement ou de me donner des liens.
 
a+  :bounce:

Reply

Marsh Posté le 03-08-2001 à 15:33:29   

Reply

Marsh Posté le 03-08-2001 à 16:07:17    

Faut que je regarde dans Interfaces PC, ou Elektor ce soir. Je sais que j'ai vu qq chose une fois sur DELPHI et l'interface parallèle. Je cherche cela pour lundi (si pas oublié)...

Reply

Marsh Posté le 03-08-2001 à 16:19:49    

Tu peux essayer qqchose comme ca:

Code :
  1. ----------------------------------------------------------------
  2. procedure Test;
  3. var
  4.   hPort: THandle;
  5. begin
  6.   try
  7.     // ouverture du port
  8.     hPort:=CreateFile('LPT1',GENERIC_READ or GENERIC_WRITE,  0,nil,OPEN_EXISTING,0,0);
  9.     try
  10.       if hPort = INVALID_HANDLE_VALUE then
  11.         raise exception.Create('Erreur lors de l''ouverture du port');
  13.       // ecriture sur le port parallele
  14.       WriteFile(hPort,...)
  16.       // lecture du port parallele
  17.       ReadFile(hPort,...)
  18.     finally
  19.       CloseHandle(hPort);
  20.    end;
  21.   except
  22.     on e:exception do
  23.       ShowMessage(e.message);
  24.   end;
  25. end;
  26. ----------------------------------------------------------------


 
tu accedes au port avec l'API CreateFile et tu fais tes lectures et ecritures avec  ReadFile et WRiteFile. regarde l'aide de Delphi (Windows SDK) pour les differents parametres qui faut passer...

 

[edtdd]--Message édité par JWhy--[/edtdd]


---------------
www.alliancefrancophone.org ... Home is where the heart is
Reply

Marsh Posté le 03-08-2001 à 16:42:02    

et ça marche aussi en NT/2k ? Pcq j'avais lu qu'on ne pouvait pas facilement y accéder (aux ports) sous NT.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 03-08-2001 à 17:03:57    

Ce bout de code vient d'un driver fait pour le port serie (remplacer LPT1 par COM1) et ca marchait sans prob. sous NT4 (pas tester sous 2K, mais ca devrait pas poser de soucis)


---------------
www.alliancefrancophone.org ... Home is where the heart is
Reply

Marsh Posté le 04-08-2001 à 12:05:51    

sinon, sur ces sites, y'a un des composants free qui font ça je crois (au moins pour le com1)
 
http://www.torry.net/
 
http://www.delphipages.com/result. [...] imeout=500

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed