Hardware Access/fr: what changed
Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | - | ||
| 2 | - | ||
| 3 | - | ||
| 4 | - | ||
| 5 | - | ||
| 6 | - | ||
| 7 | - | ||
| 8 | - | ||
| 9 | - | ||
| 10 | - | ||
| 11 | - | ||
| 12 | - | ||
| 13 | - | ||
| 14 | 1 | ## Vue d'ensemble | |
| 15 | 2 | ||
| 16 | - | ||
| 3 | + | Cette page est le début d'un tutoriel sur la manière d'accéder aux périphériques matériels de Lazarus. Ces dispositifs incluent les matériels suivants, mais ne sont pas limités à ceux-ci: ISA, PCI, USB, port parallèle, port série. | |
| 17 | 4 | ||
| 18 | - | ||
| 19 | - | ||
| 20 | - | ||
| 21 | - | ||
| 22 | - | ||
| 23 | - | ||
| 24 | - | ||
| 25 | - | ||
| 26 | - | ||
| 27 | - | ||
| 5 | + | L'accès aux périphériques matériels d'une façon complètement multi-plate-forme n'est pas implémenté par la bibliothèque d'exécution de Free Pascal ou par la LCL. Aussi ce tutoriel va fondamentalement couvrir des méthodes d'accès matérielles sur des plates-formes diverses. Le code peut être compilé sur différents environnements en employant la compilation conditionnelle, comme ceci : | |
| 6 | + | ||
| 7 | + | ``` pascal | |
| 8 | + | uses | |
| 9 | + | Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, | |
| 10 | + | {$IFDEF WIN32} | |
| 11 | + | Windows; | |
| 12 | + | {$ENDIF} | |
| 13 | + | {$IFDEF Unix} | |
| 14 | + | ports; | |
| 15 | + | {$ENDIF} | |
| 28 | 16 | ``` | |
| 29 | 17 | ||
| 30 | - | ||
| 18 | + | On ne sait pas encore, pour l'instant, si Mac OS X/x86 permettra des accès HW. Il peut le rejeter, quoique dans ce cas je suppose qu'à terme des pilotes de périphériques comme io.dll apparaîtrons. | |
| 31 | 19 | ||
| 32 | 20 | ## Comparaison parallèle et série | |
| 33 | 21 | ||
| 34 | - | ||
| 22 | + | Les cartes ISA, les cartes PCI et le port parallèle communiquent avec l'ordinateur en utilisant un protocole **parallèle**. Le port série et les périphériques USB travaillent avec un protocole **série**. Puisque le processeur et de ce fait les langages de programmation travaillent tous dans une approche parallèle aux données, accéder à ces diverses sortes de protocoles est plus simple à implémenter du coté logiciel. Quand vous accédez par exemple à une variable entière (Integer), vous pouvez accéder à sa valeur par une commande simple. Cependant, avec un protocole série, vous pouvez seulement connaître un bit à la fois et vous devez coller les morceaux ensemble pour comprendre les données. | |
| 35 | 23 | ||
| 36 | - | ||
| 24 | + | La communication série est difficile à implémenter directement, mais ce peut être assez facile si vous employez un composant tout-prêt. C'est également plus dur du côté matériel, aussi la plupart des périphériques utilisent des circuits intégrés spécialisés ou même des microcontrôleurs pour l'implémenter. | |
| 37 | 25 | ||
| 38 | - | ||
| 26 | + | Voici une brève comparaison des protocoles d'accès au matériel: | |
| 39 | 27 | ||
| 40 | - | ||
| 41 | - | ||
| 42 | - | ||
| 43 | - | ||
| 44 | - | ||
| 45 | - | ||
| 46 | - | ||
| 47 | - | ||
| 28 | + | | | Vitesse | Difficulté d'implémentation matérielle | | |
| 29 | + | |----|----|----| | |
| 30 | + | | Port série | Très lent (\< E5 bit/s) | Milieu | | |
| 31 | + | | Port parallèle | Lent (~ E6 bit/s) | Facile | | |
| 32 | + | | Carte ISA | Milieu (~ E7 bit/s) | Milieu | | |
| 33 | + | | USB | Milieu (~ E7 bit/s) | Dur | | |
| 34 | + | | Carte PCI | Très rapide (\> E9 bit/s) | Très dur | | |
| 35 | + | ||
| 48 | 36 | ## Communication parallèle | |
| 49 | 37 | ||
| 50 | 38 | ### Utilisation de inpout32.dll pour Windows | |
| 51 | 39 | ||
| 52 | - | ||
| 40 | + | Windows a différentes manières d'accéder aux périphériques matériels sur les séries 9x et sur les séries NT. Sur les séries 9x (95, 98, Me) les programmes peuvent accéder au matériel directement , juste comme ils faisaient avec le DOS. Les séries de NT (Windows NT et XP), cependant , ne permettent pas cette approche. Sur cette architecture , toute communication avec des ports matériel doit être effectuée au travers d'un pilote de périphérique. C'est un mécanisme de sécurité, mais développer un pilote peut coûter beaucoup trop en termes de temps et d'argent pour de petits projets. | |
| 53 | 41 | ||
| 54 | - | ||
| 42 | + | Heureusement il y a une bibliothèque qui résout ce problème.Si Windows NT est détecté, il décompresse le noyau du pilote de périphérique HWInterface.sys et l'installe. Si Windows 9x est détecté, il emploie simplement des codes d'opération en assembleur pour accéder au matériel . | |
| 55 | 43 | ||
| 56 | - | ||
| 44 | + | Mais comment j'emploie la bibliothèque ? Simple! Il a seulement deux fonctions , Inp32 et Out32, et leur utilisation est tout à fait intuitive . | |
| 57 | 45 | ||
| 58 | - | ||
| 59 | - | ||
| 60 | - | ||
| 61 | - | ||
| 62 | - | ||
| 46 | + | Nous chargerons la bibliothèque dynamiquement, ainsi définissons les deux fonctions d'abord : | |
| 47 | + | ||
| 48 | + | ``` pascal | |
| 49 | + | type | |
| 50 | + | TInp32 = function(Address: ShortInt): ShortInt; stdcall; | |
| 51 | + | TOut32 = procedure(Address: ShortInt; Data: ShortInt); stdcall; | |
| 63 | 52 | ``` | |
| 64 | 53 | ||
| 65 | - | ||
| 66 | - | ||
| 67 | - | ||
| 54 | + | - L'adresse représente l'adresse du port que vous désirez accéder | |
| 55 | + | - Out32 envoie des données au port que vous indiquez avec l'adresse | |
| 56 | + | - Inp32 renvoie un octet du port que vous indiquez par l'adresse | |
| 68 | 57 | ||
| 69 | - | ||
| 70 | - | ||
| 71 | - | ||
| 72 | - | ||
| 73 | - | ||
| 74 | - | ||
| 75 | - | ||
| 76 | - | ||
| 77 | - | ||
| 78 | - | ||
| 79 | - | ||
| 80 | - | ||
| 81 | - | ||
| 82 | - | ||
| 83 | - | ||
| 84 | - | ||
| 85 | - | ||
| 86 | - | ||
| 87 | - | ||
| 88 | - | ||
| 89 | - | ||
| 90 | - | ||
| 91 | - | ||
| 92 | - | ||
| 93 | - | ||
| 94 | - | ||
| 95 | - | ||
| 96 | - | ||
| 97 | - | ||
| 58 | + | Maintenant nous pouvons charger la bibliothèque. Ceci peut être implémenté dans un endroit comme la méthode OnCreate de fiche principale de votre programme : | |
| 98 | 59 | ||
| 99 | - | ||
| 100 | - | ||
| 101 | - | ||
| 102 | - | ||
| 103 | - | ||
| 104 | - | ||
| 105 | - | ||
| 106 | - | ||
| 60 | + | ``` pascal | |
| 61 | + | type | |
| 62 | + | TMyForm = class(TForm) | |
| 63 | + | ......... | |
| 64 | + | private | |
| 65 | + | { private declarations } | |
| 66 | + | Inpout32: THandle; | |
| 67 | + | Inp32: TInp32; | |
| 68 | + | Out32: TOut32; | |
| 69 | + | ......... | |
| 70 | + | implementation | |
| 71 | + | ......... | |
| 72 | + | procedure TMyForm.FormCreate(Sender: TObject); | |
| 73 | + | begin | |
| 74 | + | {$IFDEF WIN32} | |
| 75 | + | Inpout32 := LoadLibrary('inpout32.dll'); | |
| 76 | + | if (Inpout32 <> 0) then | |
| 77 | + | begin | |
| 78 | + | // needs overtyping, plain Delphi's @Inp32 = GetProc... leads to compile errors | |
| 79 | + | Inp32 := TInp32(GetProcAddress(Inpout32, 'Inp32')); | |
| 80 | + | if (@Inp32 = nil) then Caption := 'Error'; | |
| 81 | + | Out32 := TOut32(GetProcAddress(Inpout32, 'Out32')); | |
| 82 | + | if (@Out32 = nil) then Caption := 'Error'; | |
| 83 | + | end | |
| 84 | + | else Caption := 'Error'; | |
| 85 | + | {$ENDIF} | |
| 86 | + | end; | |
| 107 | 87 | ``` | |
| 108 | 88 | ||
| 109 | - | ||
| 89 | + | Si vous chargez la bibliothèque sur OnCreate juste ne pas oublier de le décharger dans OnDestroy: | |
| 90 | + | ||
| 91 | + | ``` pascal | |
| 92 | + | procedure TMyForm.FormDestroy(Sender: TObject); | |
| 93 | + | begin | |
| 94 | + | {$IFDEF WIN32} | |
| 95 | + | FreeLibrary(Inpout32); | |
| 96 | + | {$ENDIF} | |
| 97 | + | end; | |
| 110 | 98 | ``` | |
| 111 | - | ||
| 112 | - | ||
| 113 | - | ||
| 99 | + | ||
| 100 | + | Voici un exemple simple de la façon d'employer la fonction Inp32 : | |
| 101 | + | ||
| 102 | + | ``` pascal | |
| 103 | + | {$IFDEF WIN32} | |
| 104 | + | myLabel.Caption := IntToStr(Inp32($0220)); | |
| 105 | + | {$ENDIF} | |
| 114 | 106 | ``` | |
| 115 | 107 | ||
| 116 | - | ||
| 108 | + | Ce code a été testé avec une carte habituelle ISA sur le port \$0220, en utilisant Lazarus 0.9.10 sous Windows XP. Naturellement, vous devrez avoir Windows sur votre clause d'utilisations afin que ce code s'exécute. Pour le déploiement vous devez seulement inclure "inpout32.dll" dans le même répertoire de notre application . | |
| 117 | 109 | ||
| 118 | - | ||
| 110 | + | C'est la page d'accueil pour la bibliothèque : [www.logix4u.net/inpout32.htm](http://www.logix4u.net/inpout32.htm) *voir la discussion * | |
| 119 | 111 | ||
| 120 | 112 | ### Employer l'assembleur sur Windows 9x | |
| 121 | 113 | ||
| 122 | - | ||
| 123 | - | ||
| 124 | - | ||
| 125 | - | ||
| 126 | - | ||
| 127 | - | ||
| 128 | - | ||
| 129 | - | ||
| 130 | - | ||
| 114 | + | Sur Windows 9x vous pouvez également employer le code assembleur . Supposons que vous souhaitez écrire \$CC sur le port \$320 . Le code suivant le fera : | |
| 115 | + | ||
| 116 | + | ``` pascal | |
| 117 | + | {$ASMMODE ATT} | |
| 118 | + | ... | |
| 119 | + | asm | |
| 120 | + | movl $0x320, %edx | |
| 121 | + | movb $0xCC, %al | |
| 122 | + | outb %al, %dx | |
| 123 | + | end ['EAX','EDX']; | |
| 131 | 124 | ``` | |
| 132 | 125 | ||
| 133 | 126 | ### Dépannage sur Windows | |
| 134 | 127 | ||
| 135 | - | ||
| 128 | + | Une source possible d'ennui dans l'utilisation de matériel parallèle qui ne supporte pas le "Plug And Play" sur Windows est que Windows peut assigner le port utilisé par votre matériel à un autre périphérique. Vous pouvez trouver des instructions sur l'URL ci-dessous concernant la façon de dire à Windows de ne pas assigner l'adresse de votre périphérique aux périphériques "Plug And Play": | |
| 136 | 129 | ||
| 137 | 130 | <http://support.microsoft.com/kb/135168> | |
| 138 | 131 | ||
| 139 | 132 | ### Utilisation de ioperm pour accéder à des ports sur Linux | |
| 140 | 133 | ||
| 141 | - | ||
| 134 | + | La meilleure manière d'accéder au matériel sur Linux est au travers des drivers de périphérique, mais , en raison de la complexité de la création d'un driver, parfois une méthode rapide est très utile . | |
| 142 | 135 | ||
| 143 | - | ||
| 136 | + | Afin d'employer l'unité "[[doc:rtl/ports|ports]]" sous Linux votre programme doit être exécuté comme root , et IOPerm doit être appelé pour fixer des permissions appropriées sur l'accès au port. Vous pouvez trouver de la documentation au sujet de l'unité "[[doc:rtl/ports|ports]]" [ici](http://www.freepascal.org/docs-html/rtl/ports/index.html). | |
| 144 | 137 | ||
| 145 | - | ||
| 146 | - | ||
| 147 | - | ||
| 148 | - | ||
| 149 | - | ||
| 138 | + | La première chose à faire est le lien à (g)libc et l'appel de IOPerm. Une unité qui est liée à (g)libc en entier existe sur free pascal, mais cette unité donne des problèmes quand elle est utilisée directement par l'application est être lié statiquement à la bibliothèque (g)libc dans son entier n'est pas une idée très bonne parce qu'il y a souvent des changements entre les versions d'une façon incompatible. Les fonctions comme ioperm, cependant, sont peu susceptible de changer . | |
| 139 | + | ||
| 140 | + | ``` pascal | |
| 141 | + | {$IFDEF Linux} | |
| 142 | + | function ioperm(from: Cardinal; num: Cardinal; turn_on: Integer): Integer; cdecl; external 'libc'; | |
| 143 | + | {$ENDIF} | |
| 150 | 144 | ``` | |
| 151 | 145 | ||
| 152 | - | ||
| 153 | - | ||
| 146 | + | - "from" représente le premier port à accéder . | |
| 147 | + | - "num" est le nombre de ports après le premier à être accédé, ainsi ioperm(\$220, 8, 1) donnera l'accès pour le programme pour tous les ports entre \$220 et \$227 et incluant les valeurs limites . | |
| 154 | 148 | ||
| 155 | - | ||
| 156 | - | ||
| 157 | - | ||
| 158 | - | ||
| 159 | - | ||
| 160 | - | ||
| 161 | - | ||
| 162 | - | ||
| 163 | - | ||
| 149 | + | Après la liaison à IOPerm vous pouvez écrire port\[\<Address\>\] pour accéder aux ports. | |
| 150 | + | ||
| 151 | + | ``` pascal | |
| 152 | + | {$IFDEF Linux} | |
| 153 | + | i := ioperm($220, 8, 1); | |
| 154 | + | port[$220] := $00; | |
| 155 | + | myLabel.Caption := 'ioperm: ' + IntToStr(i); | |
| 156 | + | i := Integer(port[$220]); | |
| 157 | + | myOtherLabel.Caption := 'response: ' + IntToStr(i); | |
| 158 | + | {$ENDIF} | |
| 164 | 159 | ``` | |
| 165 | 160 | ||
| 166 | - | ||
| 161 | + | Ce code a été testé avec une carte ISA ordinaire sur le port \$0220, en utilisant Lazarus 0.9.10 sur Mandriva Linux 2005 et Damn Small Linux 1.5 | |
| 167 | 162 | ||
| 168 | 163 | ### Access général au matériel UNIX | |
| 169 | - | ||
| 164 | + | ||
| 165 | + | ``` pascal | |
| 170 | 166 | {$IFDEF Unix} | |
| 171 | - | ||
| 172 | - | ||
| 173 | - | ||
| 174 | - | ||
| 175 | - | ||
| 176 | - | ||
| 167 | + | Uses Clib; // rechercher de la bibliothèque libc. | |
| 168 | + | {$ENDIF} | |
| 169 | + | ||
| 170 | + | {$IFDEF Unix} | |
| 171 | + | function ioperm(from: Cardinal; num: Cardinal; turn_on: Integer): Integer; cdecl; external clib; | |
| 172 | + | {$ENDIF} | |
| 177 | 173 | ``` | |
| 178 | 174 | ||
| 179 | - | ||
| 180 | - | ||
| 175 | + | **Note** que FPC fournit une abstraction pour ioperm appelée "fpioperm" dans [[doc:rtl/x86/index.html|unité x86]], et définit également les fonctions out et import.Ces fonctions sont actuellement implémentées pour Linux/x86 et FreeBSD/x86. | |
| 181 | 176 | ||
| 182 | - | ||
| 177 | + | Il n'est pas recommandé de faire la liaison à libc à moins d'une absolue nécessité due aux possibles fonctions de déploiement et de portabilité. En outre un lien manuel à libc (en déclarant ad hoc que libc importe des fonctions qui sont disponible ailleurs) comme fait l'exemple ci-dessus n'est pas recommandé (e.g. la ligne d'importation de libc ci-dessus va échouer inutilement si la bibliothèque standard de C ne s'appelle pas libc, comme e.g. libroot sur BeOS, ou sur les plate-formes avec une mutilation de symboles C non standard). | |
| 183 | 178 | ||
| 184 | - | ||
| 179 | + | **Note 2** L'utilisation de _unit_ libc n'est pas recommandée dans toutes circonstances autres que la compatibilité avec Kylix. Ceci parce que l'unité est relativement non portable (en raison de l'exposition excessive des structures et d'autres symboles privés ) et doit seulement être modifié le moins possible hors des questions de compatibilité avec Kylix . | |
| 185 | 180 | ||
| 186 | 181 | ## Communication série | |
| 187 | 182 | ||
| 188 | - | ||
| 183 | + | la section des [[Hardware Access/fr|Liens externes]] a des tutoriels sur les ports série sous UNIX et Windows. | |
| 189 | 184 | ||
| 190 | 185 | ## Liens externes | |
| 191 | 186 | ||
| 192 | - | ||
| 187 | + | Comparaison de vitesse des protocoles de communication : | |
| 193 | 188 | ||
| 194 | - | ||
| 195 | - | ||
| 196 | - | ||
| 197 | - | ||
| 189 | + | 1. <http://en.wikipedia.org/wiki/Serial_port#Speed> | |
| 190 | + | 2. <http://www.lvr.com/jansfaq.htm> - Jan Axelson's Parallel Port FAQ | |
| 191 | + | 3. <http://en.wikipedia.org/wiki/USB#Transfer_Speed> | |
| 192 | + | 4. <http://en.wikipedia.org/wiki/PCI#Conventional_PCI_bus_specifications> | |
| 198 | 193 | ||
| 199 | - | ||
| 194 | + | Liens de communication série: | |
| 200 | 195 | ||
| 201 | - | ||
| 202 | - | ||
| 203 | - | ||
| 204 | - | ||
| 196 | + | 1. Sur UNIX: [1](http://www.easysw.com/~mike/serial/serial.html) | |
| 197 | + | 2. Sur Windows: <http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnfiles/html/msdn_serial.asp> | |
| 198 | + | 3. Composant Synaser : <http://synapse.ararat.cz/> | |
| 199 | + | 4. paquet Delphi Comport: <http://sourceforge.net/projects/comport/> | |
| 205 | 200 | ||
| 206 | - | ||
| 201 | + | Oscilloscope Digital ISA - Un exemple de l'accès au matériel avec les sources complètes incluses :[2](http://eletronicalivre.incubadora.fapesp.br/portal/english/oscilloscope/) | |
| 207 | 202 | ||
| 208 | 203 | --- | |
| 209 | - | ||
| 204 | + | *From the Free Pascal wiki, page "Hardware Access/fr", as it stood on 2020-02-16 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |