Munka LPT port közül delphi
Hogyan kell kezelni a LPT port Delphi 7
Együttműködik LPT port Delphi 7 környezetben, szükségünk van egy dinamikus könyvtár inpout32.dll. akkor be kell másolni a mappát a projekthez.
Annak érdekében, hogy a projekt, hogy képes legyen dolgozni ezt a könyvtárat, amire szükség van a használatok közötti és a 2. típusú kijelentik funkciók:
felhasználások
Ablakok, üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms,
Dialógusok, StdCtrls;
működni Inp32 (PortAdr: szó): byte; stdcall; külső 'inpout32.dll';
működni Out32 (PortAdr: szó; Adatok: byte): byte; stdcall; külső 'inpout32.dll';
típus
TForm1 = osztály (TForm)
Megjegyzés: Ez a könyvtár csak akkor működik 32 bites Windows-verziók.
Ez minden, akkor most dolgozni az LPT, egy dinamikus könyvtár.
Az 1. ábra a pinout LPT port.
2. ábra
Egy kis elmélet.
Szoftver a láncokon (pinah) LPT port beállítható logikai nulla (hogy soottvetstvuet feszültség hiánya az áramkörben) és egy logikai egység (amely megfelel a + 5 V) a kívánt számunkra lánc t. E. le hozzánk Pina (pinah)
A legegyszerűbb (rövid) módja levelet eljárás, amely példát a 2. csap (port 888) egy logikai egységet a következőképpen néz ki:
ahol a 888 - a port száma, és az 1 - egy adat mérete 1 bit.
Az eljárást a gomb így néz ki:
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
Out32 (888, 1);
végén;
Állítsa be a naplót. egység áramkörök több (több pinah) egy port, mint például a 888 a következők lehetnek: 1 helyett 3 írási, ebben az esetben a naplóban. egység lesz a láncban (3 = 1 + 2) D0 és D1 (2. és 3. csapok). A napló. egységek minden 8 pinah, és ehelyett egy kell helyettesíteni 255 m. k. 1 + 2 + 4 + 8 + 16 + 32 + 64 + 128 = 255.
A legegyszerűbb módja az, véleményem szerint, hogy hajtsák végre az adatfeldolgozást az időmérő, mint én az én projekt, a kódot, amit lásd alább.
8 változó (d0-d7), deklarált globálisan, nyújtanak felett minden port áramkört. Ezután a projektben csak megváltoztatni a változó értékeknek és az összeg az említett változók minden 10ms küld a port.
És itt van a jelentkezési lapot
3. ábra
889 port menedzsment minden ugyanaz, kivéve, hogy szükség van, hogy helyettesítse helyett 888 889, és tekintettel arra, hogy 3 a 4 fordított láncok, t. E. Amikor létrehozni egy logikai nulla kimeneti lesz fordítva t. E. A készüléket. És alaposan szemügyre 2. ábra, azaz a kisülési oszlopot.
Ahhoz, hogy olvassa az állam (érték) használják Inp32 funkciót. A kód így néz ki: Inp32 (888);
Szüksége van egy könyvtár Inpout32 - ITT (11Kb)
A forráskód és a program tervét Delphi? Azonnal (219Kb)
Ha szüksége van egy diagram a készülék vezérlésére külső eszközök segítségével LPT port, akkor itt lehet megtekinteni