Hardware Access/sk: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | ## O čom je článok | |
| 2 | 2 | ||
| 3 | 3 | Táto stránka je začiatkom tutoriálu venovanom prístupe k hardwarovým zariadeniam v Lazare. Medzi tieto zariadenia patria (ale nie sú jediné): ISA, PCI, paralelný sériový port. | |
| 4 | 4 | ||
| 5 | 5 | Platformovo nezávislý prístup k zariadeniam nie je implementovaný ani freepascalovskou RTL (Runtime Library) ani LCL, takže tento článok sa venuje metódam prístupu k hardvérovým zariadeniam na rozličných platformách. Zdrojový kód však môže byť pri používaní podmienenej kompilácie preložený na rozličných systémoch. Príklad podmienenej kompilácie: | |
| 6 | 6 | ||
| 7 | - | ||
| 8 | - | ||
| 9 | 7 | `uses`\ | |
| 10 | 8 | ` Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,`\ | |
| 11 | 9 | `{$IFDEF WIN32}`\ | |
| 12 | 10 | ` Windows;`\ | |
| 13 | 11 | `{$ENDIF}`\ | |
| 14 | 12 | `{$IFDEF Linux}`\ | |
| 15 | 13 | ` ports;`\ | |
| 16 | 14 | `{$ENDIF}` | |
| 17 | 15 | ||
| 18 | - | ||
| 19 | - | ||
| 20 | 16 | Pomoc je vítaná, hlavne pre MacOS. | |
| 21 | 17 | ||
| 22 | 18 | ## Používanie inpout32.dll na Windows | |
| 23 | 19 | ||
| 24 | 20 | Windows používa rozličné spôsoby prístupu k hardvérovým zariadeniam na systémoch skupiny 9x a iný v skupine NT. Toto môže pôsobiť skutočne problematicky. Windows 9x (95, 98, Me) umožňujú programovať pristupovať na porty priamo, podobne ako to bolo v DOSe. Avšak Windows NT už toto vôbec nedovolí a k portom treba pristupovať cez ovládače zariadení. Je to bezpečnostný mechanizmus, ale môže byť dosť otravné, keď je ovládač zariadenia príliš komplexný pre malý projket, ktorý potrebuje pristupovať k paralelnému portu. | |
| 25 | 21 | ||
| 26 | 22 | Našťastie existuje knižnica, ktorá v sebe nesie ovládače zariadení. Ak detekuje Windows z rodiny NT, dekomprimuje ovládač a nainštaluje pre jadro ovládač Hwinterface.sys. Keď zdetekuje Windows rodiny 9x, jednoducho použije na prístup k zariadeniam assembler. | |
| 27 | 23 | ||
| 28 | 24 | A ako používať knižnicu? jednoducho! Pozná iba dve funkcie: Inp32 a Out32. Ich použitie je celkom intuitívne. | |
| 29 | 25 | ||
| 30 | 26 | Knižnicu budeme načítavať dynamicky, takže najskôr potrebujeme definovať obe funkcie: | |
| 31 | 27 | ||
| 32 | - | ||
| 33 | - | ||
| 34 | 28 | `type`\ | |
| 35 | 29 | ` TInp32 = function(Address: ShortInt): ShortInt; stdcall;`\ | |
| 36 | 30 | ` TOut32 = procedure(Address: ShortInt; Data: ShortInt); stdcall;` | |
| 37 | 31 | ||
| 38 | - | ||
| 39 | - | ||
| 40 | 32 | - Address reprezentuje adresu portu, ku ktorému chcete pristupovať. | |
| 41 | 33 | - Out32 odosiela dáta špecifikované v Data na port určený v Address. | |
| 42 | 34 | - Inp32 vracia jeden bajt z portu, ktorý ste zadali. | |
| 43 | 35 | ||
| 44 | 36 | Teraz môžeme načítať knižnicu. Môžete to implementovať napríklad v metóde OnCreate vášho hlavného formulára. | |
| 45 | 37 | ||
| 46 | - | ||
| 47 | - | ||
| 48 | 38 | `type`\ | |
| 49 | 39 | ` TMyForm = class(TForm)`\ | |
| 50 | 40 | ` .........`\ | |
| 51 | 41 | ` private`\ | |
| 52 | 42 | ` { private declarations }`\ | |
| 53 | 43 | ` Inpout32: THandle;`\ | |
| 54 | 44 | ` Inp32: TInp32;`\ | |
| 55 | 45 | ` Out32: TOut32;`\ | |
| 56 | 46 | ` .........`\ | |
| 57 | 47 | `implementation`\ | |
| 58 | 48 | ` .........`\ | |
| 59 | 49 | `procedure TMyForm.FormCreate(Sender: TObject);`\ | |
| 60 | 50 | `begin`\ | |
| 61 | 51 | `{$IFDEF WIN32}`\ | |
| 62 | 52 | ` Inpout32 := LoadLibrary('inpout32.dll');`\ | |
| 63 | 53 | ` if (Inpout32 <> 0) then`\ | |
| 64 | 54 | ` begin`\ | |
| 65 | 55 | ` @Inp32 := GetProcAddress(Inpout32, 'Inp32');`\ | |
| 66 | 56 | ` if (@Inp32 = nil) then Caption := 'Error';`\ | |
| 67 | 57 | ` @Out32 := GetProcAddress(Inpout32, 'Out32');`\ | |
| 68 | 58 | ` if (@Out32 = nil) then Caption := 'Error';`\ | |
| 69 | 59 | ` end`\ | |
| 70 | 60 | ` else Caption := 'Error';`\ | |
| 71 | 61 | `{$ENDIF}`\ | |
| 72 | 62 | `end;` | |
| 73 | 63 | ||
| 74 | - | ||
| 75 | - | ||
| 76 | 64 | Ak ste knižnicu načítavali pri OnCreate, nezabudnite ju pri OnDestroy aj uvoľniť z pamäte: | |
| 77 | 65 | ||
| 78 | - | ||
| 79 | - | ||
| 80 | 66 | `procedure TMyForm.FormDestroy(Sender: TObject);`\ | |
| 81 | 67 | `begin`\ | |
| 82 | 68 | `{$IFDEF WIN32}`\ | |
| 83 | 69 | ` FreeLibrary(Inpout32);`\ | |
| 84 | 70 | `{$ENDIF}`\ | |
| 85 | 71 | `end;` | |
| 86 | 72 | ||
| 87 | - | ||
| 88 | - | ||
| 89 | 73 | Toto je jednoduchý príklad, ako používať funkciu Inp32: | |
| 90 | 74 | ||
| 91 | - | ||
| 92 | - | ||
| 93 | 75 | `{$IFDEF WIN32}`\ | |
| 94 | 76 | ` myLabel.Caption := IntToStr(Inp32($0220));`\ | |
| 95 | 77 | `{$ENDIF}` | |
| 96 | 78 | ||
| 97 | - | ||
| 98 | - | ||
| 99 | 79 | Tento kód bol testovaný s vlastnou ISA kartou na porte \$0220, Lazarom verzie 0.9.10 na Windows XP. Pre správny beh programu budete, samozrejme, potrebovať mať vo svojej uses klauzule uvedené "windows". Súbor "inpout.dll" by mal byť umiestnený v rovnakom adresári, ako vaša aplikácia. | |
| 100 | 80 | ||
| 101 | 81 | Domovskú stránku knižnice nájdete tu: [www.logix4u.net/inpout32.htm](http://www.logix4u.net/inpout32.htm) | |
| 102 | 82 | ||
| 103 | 83 | ## Použitie ioperm na prístup k portom na Linuxe | |
| 104 | 84 | ||
| 105 | 85 | Najlepší spôsob pristupovania k hardvéru na Linuxe vedie cez ovládače zariadení. Avšak, vďaka komplexnosti úloh spojených s vytváraním ovládača, bývajú rýchlejšie metódy občas veľmi užitočné. | |
| 106 | 86 | ||
| 107 | 87 | Aby ste na LInuxe mohli používať unit "ports", váš program musí byť spustený s právami užívateľa root a pre nastavenie príslušných orpávnení prístupu k portom musí byť volaný IOPerm. Dokumentáciu vzťahujúcu sa k unitu "ports" môžete nájsť [tu](http://www.freepascal.org/docs-html/rtl/ports/index.html). | |
| 108 | 88 | ||
| 109 | 89 | Prvá vec, ktorú musíte urobiť, je zlikovať váš program s glibc a zavolať IOPerm. Vo FreePascale existuje unit, ktorý dynamicky linkuje celé glibc; avšak sú s ním problémy, keď je používaný priamo aplikáciou. A linkovať staticky celú glibc knižnicu nie je veľmi dobrá myšlienka pre multiplatfomovú aplikáciu, pretože používanie platformovo špecifických riešení by malo byť minimálne. | |
| 110 | 90 | ||
| 111 | - | ||
| 112 | - | ||
| 113 | 91 | `{$IFDEF Linux}`\ | |
| 114 | 92 | `function ioperm(from: Cardinal; num: Cardinal; turn_on: Integer): Integer; cdecl; external 'libc';`\ | |
| 115 | 93 | `{$ENDIF}` | |
| 116 | 94 | ||
| 117 | - | ||
| 118 | - | ||
| 119 | 95 | - "from" repezentuje prvý port, ktorý sa má sprístupniť, "num" je počet | |
| 120 | 96 | - portov, na ktoré sa ma pristupovať po prvom, takže ioperm(\$220, 8, | |
| 121 | 97 | - 1\) sprístupní pre náš program všetky porty od \$220 do \$227 (vrátane oboch). | |
| 122 | 98 | ||
| 123 | 99 | Po sprístupnení OIPerm môžete na porty pristupovať cez port\[\<adresa\>\]. | |
| 124 | 100 | ||
| 125 | - | ||
| 126 | - | ||
| 127 | 101 | `{$IFDEF Linux}`\ | |
| 128 | 102 | ` i := ioperm($220, 8, 1);`\ | |
| 129 | 103 | ` port[$220] := $00;`\ | |
| 130 | 104 | ` myLabel.Caption := 'ioperm: ' + IntToStr(i);`\ | |
| 131 | 105 | ` i := Integer(port[$220]);`\ | |
| 132 | 106 | ` myOtherLabel.Caption := 'response: ' + IntToStr(i);`\ | |
| 133 | 107 | `{$ENDIF}` | |
| 134 | - | ||
| 135 | - | ||
| 136 | 108 | ||
| 137 | 109 | Tento kód bol testovaný s vlastnou ISA kartou na porte \$0220, použijúc Lazarus 0.9.10 na systémoch Mandriva Linux 2005 a Damn Small Linux 1.5 | |
| 138 | 110 | ||
| 139 | 111 | --- | |
| 140 | 112 | *From the Free Pascal wiki, page "Hardware Access/sk", as it stood on 2005-11-28 after a change by Moriquend, 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).* |