Delphi program til styring af paralelport

Jan 31, 2004 24 Replies

Hej,



Jeg kunne godt tænke mig at styre både input og output enheder ved hjælp af paralelporten - flere enheder på samme port. Dette vill jeg gøre ved hjælp af en "adressering" af de enkelte enheder.



Ved hjælp af Delphi kan jeg lige nu styre alle 8 outputs, men ikke resten; aflæse input, og sætte diverse styre og kontrol pins.



Selv om det ikke direkte er et elektronik spørgsmål, vil jeg tro at det er jer i gruppen som har mest styr på sådan noget. Er der nogen af jer som ved hvordan jeg skal aflæse og styre resten af de pins på lpt porten vha. Delphi? Jeg bruger lige nu "zlportio.sys" til det, men der er sikkert også andre drivere som kan bruges til det.



Hvis i har noget der kan bruges, må i MEGET gerne sende et kode-eksempel, eller et link.



Håber i kan hjælpe, og at det ikke er for meget off topic :)


Jeg ved godt at denne side ikke direkte omhandler delphi, men der står næsten alt om parallelporten. Nu må du se efter om det kan bruges.

formatting link

MVH Dennis Olesen.

"Casper Bang" skrev i en meddelelse news:bvg4il$t4i$ snipped-for-privacy@sunsite.dk...

af

ved

Jeg har kigget lidt på den, men tror siden er for gammel... i windows 2K og opefter skal man bruge drivere for at connecte til sine porte. De sider jeg kunne finde der var fra før den tid :( Men ellers tak for forsøget.

og

jeg

Joeh, siden er ikke helt opdateret, og der er meget WIN9x stuff... :-(

Men jeg mener da at du stadig kan finde anvendelige beskrivelser og dirvere til LPT på siden, og generelt har jeg erfaret at NT-drivere funker med BÅDE WIN2K og WINXP!

Mvh Villy

formatting link

du kan da også læse input og andet med zlportio. Se hellere dk.edb.programmering.pascal.

Calle

Ok, vil prøve i den gruppe. Har godt nok læst lidt på nettet om zlportio uden at kunne finde eksempler på det. Tak!

De ligger på forskellige adresser ..

Du kan finde en masse god information her:

formatting link

.. ellers er google din ven :)

FUT: dk.en.eller.anden.programmerings.gruppe :-)

-jens

Der er også eksempler med i selve programmet (var der i hvert fald i den Zip-fil jeg hentede.

Calle

Ja, men kun til styring af de 8 data pins... dem kan jeg godt finde ud af at bruge. Det er de andre jeg ikke ved med.

men det er bare 5 volt den skal have ind, right? Ved du hvor følsom den er overfor hvor mange volt man giver den (om det betyder noget hvis det ikke er helt exact 5 volt)?

at

Kontrol signalerne ligger på adresserne lige efter data out porten.

På "OutDataPortAddress+1" kan du læse kontrolsignalerne (Bit 3...7) På "OutDataPortAddress+2" kan du skrive kontrolsignaler (Bit 0..3)

Nogle af kontrolsignalerne er inverterede.

er

Over 5 volt -> Afbrændt port.

Den er jeg ikke helt med på :s Kan du give et kode eksempel på det (bare en linie hvor du sætter eller læser en af de pins)?

Tak

Ok... burde ikke blive noget problem hvis jeg bare bruger en 5 volts kilde. Under 5 volt kan den vel ikke tage skade (selv om den måske viser forkerte data på porten)... Kan det betale sig at bruge en form for opto-kobler, og hvilken skulle det så være? Jeg ved at det samlesæt som jeg ellers har brugt bruger opto-koblere, men ved ikke om det vil være en fordel hvis man bare er lidt forsigtig med hvad man laver.

Nu ved jeg ikke hvad i/o instruktionerne hedder i den driver du bruger, men det skal være noget i denne stil:

OutDataPortAddress:=378;

// Skriv til de 8 databits: PortWrite(OutDataPortAddress,17);

// Læs et handshake signaler if (PortRead(OutDataPortAddress+1) and $10) then begin end;

af

ved

Du kan finde det hele på

formatting link

Leo Havmøller

men

Umidelbart kunne jeg ikke finde en metode vha. min driver, men vil forsøge lidt mere. Kan du evt. sige hvilken du bruger?

Thanks

Har kigget på alle de drivere de linker til.. der er ikke nogen af dem med hjælp til hvordan de bruges i Delphi :(

Det kan jeg ikke huske...

Men lidt bladren i noget kode giver resultatet, det er den her:

formatting link

Men jeg har selv bygget lidt ovenpå, så mine I/O instruktioner automatisk initializere under både win98 og NT baserede windows versioner (NT, Win2K, WinXP).

Der hvor jeg har haft brugt for den, har den virket, men som du kan se, så er den ikke just opdateret.

perfekt! Det var lige den jeg skulle bruge. Så vidt jeg kan se kan det styre alle pins :)

Tak for det!!

Join the Discussion

Have something to add? Share your thoughts — no account required.

Didn't find your answer?

Ask the community — no account required