Sign in Join
Wiki copytemporary

Hardware Access/ja: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Hardware Access/ja

OldNewLine
1+## 概要
2+
3+このページはLazarusでハードウェアデバイスにアクセスを行うためのチュートリアルです。ここにはISA、PCI、USB、パラレルポート、シリアルポートの各デバイスについて書かれていますが、完全ではありません。
4+
5+ハードウェアデバイスへのアクセスはFree PascalランタイムライブラリやLCLをもってしても完全な移植性をもつことはできません。このチュートリアルは多くのプラットホームに適用できるハードウェアへアクセスの手法の基本的な部分をカバーします。コードを違った環境でコンパイルするためには以下のような条件付きコンパイルが必要となるでしょう。
6+
7+<code>
8+
9+`uses`\
10+` Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,`\
11+`{$IFDEF WIN32}`\
12+`  Windows;`\
13+`{$ENDIF}`\
14+`{$IFDEF Unix}`\
15+`  ports;`\
16+`{$ENDIF}`
17+
18+</code>
19+
20+x86プロセッサ上で動作するMac OS Xでのハードウェアアクセスが可能かどうかは現時点では不明です。
21+
22+## パラレルおよびシリアル接続
23+
24+ISAカード、PCIカードおよびパラレルポートでの通信ではコンピュータは**パラレル**プロトコルを使用します。シリアルポートやUSBデバイスでは**シリアル**プロトコルを使用します。このようにプロトコルを使い分けるのは、プロセッサやプログラミング言語はすべてデータにパラレルでアプローチするため、より簡単にするためにプロトコルはソフトウェア側で実装してやる必要があるのです。 例えばあなたがInteger変数にアクセスする時、それは一つのコマンドで行う事ができます。しかしそれは連続した手順によって一度に一ビットずつデータを取得しているだけなのです。ですから、その断片化したデータをくっつけてやる必要があります。
25+
26+シリアル通信を直接行う事は難しいですが、仮実装されたコンポーネントを使用する事により簡単に行う事もできます。また、ハードウェア側ではそれすらできないので、多くの場合それを実行するのに特化した装置が必要であり、ICやマイクロコントローラを使用する必要があります。
27+
28+ハードウェアアクセスプロトコルの簡潔な比較を以下に提示します。
29+
30+| | 速度 | 実装の難易度 |
31+|----------------|--------------------------|--------------|
32+| シリアルポート | 非常に遅い (\< E5 bit/s) | 普通 |
33+| パラレルポート | 遅い (~ E6 bit/s) | 簡単 |
34+| ISAカード | 普通 (~ E7 bit/s) | 普通 |
35+| USB | 普通 (~ E7 bit/s) | 難しい |
36+| PCIカード | 非常に速い (\> E9 bit/s) | 非常に難しい |
37+
38+## パラレル通信
39+
40+### Windows上でinpout32.dllを使用する
41+
42+Windowsではハードウェアデバイスへのアクセスを行う手順に9x系とNT系では違いがあります。9x系（95,98,Me）ではプログラムはDOSのように直接ハードウェアに対してアクセスすることができます。NT系（Windows NT,2000,XP）ではそのような方法は使えません。すべてのハードウェアポートはデバイスドライバによって通信する事ができます。これはセキュリティ上の問題からそうなっていますが、ドライバを作るためには時間とお金が必要で小さいプロジェクトは難しいでしょう。
43+
44+しかし、幸せな事にこの問題を解決するライブラリがあります。WIndowsNTが検出されるとそれはHWInterface.sysカーネルデバイスドライバを解凍して、インストールします。Window9xが検出されると、それはハードウェアデバイスにアクセスするのに単にアセンブラオペコードを使用します。
45+
46+でもそのライブラリをどうやって使ったらいいのでしょうか？簡単です！このライブラリはInp32とOut32という２つの関数しか持っていませんし、その使用は非常に直感的です。
47+
48+ライブラリを動的にロードすると、関数は次のように定義されます
49+
50+<code>
51+
52+`type`\
53+`  TInp32 = function(Address: ShortInt): ShortInt; stdcall;`\
54+`  TOut32 = procedure(Address: ShortInt; Data: ShortInt); stdcall;`
55+
56+</code>
57+
58+- Address represents the address of the port you desire to access
59+- Out32 sends Data to the port you specify by Address
60+- Inp32 returns a byte from the port you specify by Address
61+
62+わたしたちはこれでライブラリをロードする事ができます。あなたのプログラムのメインフォームのOnCreateメソッドのような場所でこれを実行する事が可能です:
63+
64+<code>
65+
66+`type`\
67+`  TMyForm = class(TForm)`\
68+`  .........`\
69+`  private`\
70+`    { private declarations }`\
71+`    Inpout32: THandle;`\
72+`    Inp32: TInp32;`\
73+`    Out32: TOut32;`\
74+`  .........`\
75+`implementation`\
76+`  .........`\
77+`procedure TMyForm.FormCreate(Sender: TObject);`\
78+`begin`\
79+`{$IFDEF WIN32}`\
80+`  Inpout32 := LoadLibrary('inpout32.dll');`\
81+`  if (Inpout32 <> 0) then`\
82+`  begin`\
83+`    // needs overtyping, plain Delphi's @Inp32 = GetProc... leads to compile errors`\
84+`    Inp32 := TInp32(GetProcAddress(Inpout32, 'Inp32'));`\
85+`    if (@Inp32 = nil) then Caption := 'Error';`\
86+`    Out32 := TOut32(GetProcAddress(Inpout32, 'Out32'));`\
87+`    if (@Out32 = nil) then Caption := 'Error';`\
88+`  end`\
89+`  else Caption := 'Error';`\
90+`{$ENDIF}`\
91+`end;`
92+
93+</code>
94+
95+もしOnCreateでライブラリをロードしたなら、OnDestroyでアンロードする事を忘れないで下さい:
96+
97+<code>
98+
99+`procedure TMyForm.FormDestroy(Sender: TObject);`\
100+`begin`\
101+`{$IFDEF WIN32}`\
102+`  FreeLibrary(Inpout32);`\
103+`{$ENDIF}`\
104+`end;`
105+
106+</code>
107+
108+これはInp32関数を使う単純な例です:
109+
110+<code>
111+
112+`{$IFDEF WIN32}`\
113+`  myLabel.Caption := IntToStr(Inp32($0220));`\
114+`{$ENDIF}`
115+
116+</code>
117+
118+このコードはカスタムISAカードのポート\$0200と、WindowsXP上のLazarus 0.9.10でテストされました。もちろんこのコードを実行するためにはuses節にWindowsが必要です。また、自分のアプリケーションと同じディレクトリに"input32.dll"も必要です。
119+
120+このホームページのライブラリはこちら: [www.logix4u.net/inpout32.htm](http://www.logix4u.net/inpout32.htm)
121+
122+### Linuxでiopermを使用する
123+
124+Linuxでハードウェアにアクセスする最適な方法はThroughtデバイスドライバを使用することですが、ドライバを作成するタスクは複雑なので整理されたメソッドを使えば楽にそれを行うことができます。
125+
126+あなたのLinuxプログラム上で "[[doc:rtl/ports|ports]]" ユニットを呼び出すためにはrootで実行する必要があり、またIOPermを呼び出すためにはポートにアクセスするための権限が必要です。 あなたは"[[doc:rtl/ports|ports]]"ユニットについての情報を[ここ](http://www.freepascal.org/docs-html/rtl/ports/index.html)で手に入れることができます。
127+
128+最初にやることは、(g)libcをリンクして、IOPermをコールすることです。すべての(g)libc（の関数）にリンクするユニットは、free pascal上にありますが、このユニットをアプリケーションから直接リンクすることは問題をひきおこします。(g)libcライブラリ全体を静的リンクをおこなう、ということはあまり良い方法とはいえません、なぜなら、それはバージョンの間で、しばしば変更されるからです。iopermといった関数はしかしながら、変更することはあまりないと思います。
129+
130+<code>
131+
132+`{$IFDEF Linux}`\
133+`function ioperm(from: Cardinal; num: Cardinal; turn_on: Integer): Integer; cdecl; external 'libc';`\
134+`{$ENDIF}`
135+
136+</code>
137+
138+- "from" はアクセスする最初のポートを指定します。
139+- "num" は最初のポートから何ポートアクセスするかを指定します。
140+
141+たとえば、ioperm(\$220, 8, 1)はプログラムに\$220から\$227までのアクセス権限を与えます。
142+
143+IOPermをリンクしたあとで、ポートにアクセスするために、port\[\<Address\>\]配列を使うことができます。
144+
145+<code>
146+
147+`{$IFDEF Linux}`\
148+`  i := ioperm($220, 8, 1);`\
149+`  port[$220] := $00;`\
150+`  myLabel.Caption := 'ioperm: ' + IntToStr(i);`\
151+`  i := Integer(port[$220]);`\
152+`  myOtherLabel.Caption := 'response: ' + IntToStr(i);`\
153+`{$ENDIF}`
154+
155+</code>
156+
157+このコードは、Mandriva Linux 2005とDamn Small Linux 1.5上で、Lazarus 0.9.10を使って、自作のISAカードで\$0220にアクセスしてテストしました。
158+
159+### 一般的なUNIXでのハードウエアアクセス
160+
161+ {$IFDEF Unix}
162+ Uses Clib; // retrieve libc library name.
163+ {$ENDIF}
164+
165+ {$IFDEF Unix}
166+ function ioperm(from: Cardinal; num: Cardinal; turn_on: Integer): Integer; cdecl; external clib;
167+ {$ENDIF}
168+
169+**注意** FPCはin [[doc:rtl/x86/index.html|unit x86で]]"fpioperm"よ呼ばれる抽象的な機構を提供しています。そして、入出力機能を定義しています。 これらの関数はx86で動作するLinuxとFreeBSDで実装されています。
170+
171+配布と関数のポータビリティのため、必要な抽象化なしにlibcをリンクすることは推奨されていません。libcの手動リンク（つまり、どこからでも使えるように、libcをad hoc宣言をする方法）をおこなうことは推奨されません。
172+
173+(e.g. the above libc import line will unnecessarily fail if the standard C lib is not called libc, like e.g. libroot on BeOS, or on platforms with a non standard C symbol mangling). 訳注：うまいこと訳せないので、和訳せず、そのままのこしておきます。）
174+
175+**注意2** _unit_ libcを使うことはどんな状況下でもKylixの互換性の点では推奨されません。このユニットは相対的にポータブルではないからです。(due to excessive exposure of structures and other private symbols)
176+
177+そして、Kylixの互換性の問題からは、なるべく少なく変更すべきです。
178+
179+## シリアル通信
180+
181+[[Hardware Access/ja|外部リンクセクションにUNIXとWindowsのシリアルポートチュートリアルがあります]]。
182+
183+## 外部リンク
184+
185+通信プロトコルスピードの比較:
186+
187+1. <http://en.wikipedia.org/wiki/Serial_port#Speed>
188+2. <http://www.lvr.com/jansfaq.htm> - Jan Axelson's Parallel Port FAQ
189+3. <http://en.wikipedia.org/wiki/USB#Transfer_Speed>
190+4. <http://en.wikipedia.org/wiki/PCI#Conventional_PCI_bus_specifications>
191+
192+シリアル通信のリンク:
193+
194+1. On UNIX: [1](http://www.easysw.com/~mike/serial/serial.html)
195+2. On Windows: <http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnfiles/html/msdn_serial.asp>
196+3. Synaser component: <http://synapse.ararat.cz/>
197+
198+ISA デジタルオシロスコープ - 全ソースが含まれるハードウエアのアクセス例：
199+
200+[2](http://eletronicalivre.incubadora.fapesp.br/portal/english/oscilloscope/)
201+
202+---
203+*From the Free Pascal wiki, page "Hardware Access/ja", as it stood on 2006-08-20 after a change by Saeka-jp, 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).*

Back to history