LPT überwachen

[philiph]

Also ich habe mir schon viele Tutorials und Beiträge dazu angeschaut aber nichts hat mich weitergebracht. Ich habe einen Taster am LPT Port und möchte bei druck darauf im Prog. eine Prozedur auslösen wie mache ich das?

[turboPASCAL]

Suche mal nach der INPOUT32.DLL, dann kanst du auch LPT-Port-Pins abfragen.
Guckst du auch: Auslesen des Parallel Ports die Suche machts möglich ...

Delphi-Quellcode:

procedure Out32(Addresse:Integer; Wert:byte); stdcall; export;
external 'INPOUT32.DLL';

function Inp32(Addresse:Integer):Byte; stdcall; export;
external 'INPOUT32.DLL';

[omata]

Moin,

oder wenn du gern auf den Interrupt des LPT-Ports reagieren möchtest, schau mal hier

MfG
Thorsten

[philiph]

Danke erstmal aber wie kann ich jetzt einen bestimmten Ein bzw. Ausgang abfragen?

Wie müssste es z.B. aussehen um den eigentlichen busy(Pin11) Status abzufragen?

PS:der obige code geht bei mir nicht editroblem gelöst

[turboPASCAL]

Warscheinlich weil du die Pin's nicht richtig angeschlossen hast ?

Wie hast du den den Taster angeschlossen ?

[philiph]

Zwischen Pin 11 und Pin 25 (mit anderen Programmen geht das)

[turboPASCAL]

Guck mal: http://www.vbarchiv.net/workshop/workshop76.php ist zwar kein Delphi aber die Vohrgehensweise
ist gut erklärt.

Schon mal gemessen ob auch eine Spannung da ist ?

Zitat:

(mit anderen Programmen geht das)

und welchem, Code dabei?

[philiph]

Also das auslesen bekomme ich jetzt halbwegs hin lag am Taster aber ich habe mir nun mal näher das angeguckt Auslesen des Parallel Portsund mit out32(888,1); den D0 auf high gesetzt ich weiss auch das wenn ich die eins durch eine zwei ersetze ich das für D1 mache aber wie kann ich sie unabhängig voneinander abschalten? ich habe es bisher nur geschaft mit out32(888,0); alle abzuschalten!

[turboPASCAL]

http://www.delphipraxis.net/internal...=435477#435477 ...und abwärts mal gucken.

[philiph]

und was genau davon brauche ich jetzt das meiste geht bei mir nicht

wieso z.B. wird bei meinem Programm immer nur eine LED angemacht