Sign in Join
Wiki copytemporary

Revision 3 of 5, by WikiArchive on 11-4-2026. The page as it is now.

Hardware Access/sk

Contents

O čom je článok

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.

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:

`

pascal
uses
     Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    {$IFDEF WIN32}
      Windows;
    {$ENDIF}
    {$IFDEF Linux}
      ports;
    {$ENDIF}
pascal

``

Pomoc je vtan, hlavne pre MacOS. 

## Pouvanie inpout32.dll na Windows

Windows pouva rozlin spsoby prstupu k hardvrovm zariadeniam na systmoch skupiny 9x a in v skupine NT. Toto me psobi skutone problematicky. Windows 9x (95, 98, Me) umouj programova pristupova na porty priamo, podobne ako to bolo v DOSe. Avak Windows NT u toto vbec nedovol a k portom treba pristupova cez ovldae zariaden. Je to bezpenostn mechanizmus, ale me by dos otravn, ke je ovlda zariadenia prli komplexn pre mal projket, ktor potrebuje pristupova k paralelnmu portu. 

Naastie existuje kninica, ktor v sebe nesie ovldae zariaden. Ak detekuje Windows z rodiny NT, dekomprimuje ovlda a naintaluje pre jadro ovlda Hwinterface.sys. Ke zdetekuje Windows rodiny 9x, jednoducho pouije na prstup k zariadeniam assembler. 

A ako pouva kninicu? jednoducho! Pozn iba dve funkcie: Inp32 a Out32. Ich pouitie je celkom intuitvne. 

Kninicu budeme natava dynamicky, take najskr potrebujeme definova obe funkcie: 

` `

`

type TInp32 = function(Address: ShortInt): ShortInt; stdcall; TOut32 = procedure(Address: ShortInt; Data: ShortInt); stdcall;

pascal

``

Teraz môžeme načítať knižnicu. Môžete to implementovať napríklad v metóde OnCreate vášho hlavného formulára.

`

pascal
type
      TMyForm = class(TForm)
      .........
      private
        { private declarations }
        Inpout32: THandle;
        Inp32: TInp32;
        Out32: TOut32;
      .........
    implementation
      .........
    procedure TMyForm.FormCreate(Sender: TObject);
    begin
    {$IFDEF WIN32}
      Inpout32:= LoadLibrary('inpout32.dll');
      if (Inpout32 <> 0) then
      begin
        @Inp32:= GetProcAddress(Inpout32, 'Inp32');
        if (@Inp32 = nil) then Caption:= 'Error';
        @Out32:= GetProcAddress(Inpout32, 'Out32');
        if (@Out32 = nil) then Caption:= 'Error';
      end
      else Caption:= 'Error';
    {$ENDIF}
    end;
pascal

``

Ak ste kninicu natavali pri OnCreate, nezabudnite ju pri OnDestroy aj uvoni z pamte: 

` `

`

procedure TMyForm.FormDestroy(Sender: TObject); begin {$IFDEF WIN32} FreeLibrary(Inpout32); {$ENDIF} end;

pascal

``

Toto je jednoduchý príklad, ako používať funkciu Inp32:

`

pascal
{$IFDEF WIN32}
      myLabel.Caption:= IntToStr(Inp32($0220));
    {$ENDIF}
pascal

``

Tento kd bol testovan s vlastnou ISA kartou na porte $0220, Lazarom verzie 0.9.10 na Windows XP. Pre sprvny beh programu budete, samozrejme, potrebova ma vo svojej uses klauzule uveden "windows". Sbor "inpout.dll" by mal by umiestnen v rovnakom adresri, ako vaa aplikcia. 

Domovsk strnku kninice njdete tu: [www.logix4u.net/inpout32.htm](<http://www.logix4u.net/inpout32.htm>)

## Pouitie ioperm na prstup k portom na Linuxe

Najlep spsob pristupovania k hardvru na Linuxe vedie cez ovldae zariaden. Avak, vaka komplexnosti loh spojench s vytvranm ovldaa, bvaj rchlejie metdy obas vemi uiton. 

Aby ste na LInuxe mohli pouva unit "ports", v program mus by spusten s prvami uvatea root a pre nastavenie prslunch orpvnen prstupu k portom mus by volan IOPerm. Dokumentciu vzahujcu sa k unitu "ports" mete njs [tu](<http://www.freepascal.org/docs-html/rtl/ports/index.html>). 

Prv vec, ktor muste urobi, je zlikova v program s glibc a zavola IOPerm. Vo FreePascale existuje unit, ktor dynamicky linkuje cel glibc; avak s s nm problmy, ke je pouvan priamo aplikciou. A linkova staticky cel glibc kninicu nie je vemi dobr mylienka pre multiplatfomov aplikciu, pretoe pouvanie platformovo pecifickch rieen by malo by minimlne. 

  
` `

`

{$IFDEF Linux} function ioperm(from: Cardinal; num: Cardinal; turn_on: Integer): Integer; cdecl; external 'libc'; {$ENDIF}

pascal

``

Po sprístupnení OIPerm môžete na porty pristupovať cez port[<adresa>].

`

pascal
{$IFDEF Linux}
      i:= ioperm($220, 8, 1);
      port[$220]:= $00;
      myLabel.Caption:= 'ioperm: ' + IntToStr(i);
      i:= Integer(port[$220]);
      myOtherLabel.Caption:= 'response: ' + IntToStr(i);
    {$ENDIF}
pascal

``

Tento kd bol testovan s vlastnou ISA kartou na porte $0220, pouijc Lazarus 0.9.10 na systmoch Mandriva Linux 2005 a Damn Small Linux 1.5

---
*From the Free Pascal wiki, page "Hardware Access/sk", as the Internet Archive kept it on 2022-11-29. 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).*