Auslesen des Parallel Ports

[hibbert]

Hi,
ich habe folgendes vor:

Ich möchte gerne einen Draht, der aus dem Parralelport kommt wieder in den Parralel Port leiten.

Nun möchte ich gerne gerne mit meinem Delphi Programm ermitteln, wann nun der Stromimpuls wieder in den Port reingeht.

Mein Problem ist, an welche Pins muss ich die Drähte löten ?

Und wie bemerke ich mit meinem Programm, dass die "Verbindung" hergestellt ist ?

Mit der io.dll sende ich ja folgendermaßen:

Delphi-Quellcode:

portout(888,16)

Doch wie lese bzw merke ich jetzt das was in den Port "gesendet" wird ??

Danke
Hibbert

[christian.noeding]

Hi!

Ich nutze für so etwas immer die inpout32.dll von www.logix4u.com. Die Library ist klein, schnell, und hat nur das, was man braucht.

Lade sie in dein Programm wie folgt:

Delphi-Quellcode:

// inpout32.dll für LPT-Ausgang unter WinNT, Win2000 und WinXP laden
procedure Out32(PortAddress:word;Value:byte);stdcall;export;
external 'inpout32.DLL';
function Inp32(PortAddress:word):byte;stdcall;export;
external 'inpout32.DLL';

Mit

Delphi-Quellcode:

out32(888,1);

kannst du z.B. D0 des LPT1-Portes auf High setzen. Mit

Delphi-Quellcode:

Inp32(888);

liest du den aktuellen Status des LPT1-Portes aus. Das klappt prima. Zudem kann man jede Byteoperation anwenden, die man kennt.

Wenn du

Delphi-Quellcode:

Out(888,255);

setzt, dann schaltest du alle Register auf high, bei 127 nur das letzte, bei 64 das vorletzte, etc.

Der LPT1-Port geht dann auch noch von 888 auf 889 und 890, wo man dann jeweils neben den Data-Registern auch die Status- und Strobe-/Line-/Feed- etc. Register lesen / setzen kann.


Du musst jetzt nur noch einen Timer setzen, der in bestimmten Zeitabständen den Port mit

Delphi-Quellcode:

if not inp32(888)=0 then ShowMessage('Da ist einer auf meine Schnur getreten!');

etc. abfragt. Pass aber auf: manche Register sind negiert und müssen gesondert behandelt werden.

Schöne grüße,
Christian :D

[christian.noeding]

Ich hab hier noch ne kleine *.doc-File für dich... die habe ich genutzt, um mir das Schnittstellensystem näher zu bringen. Wenn du Sourcecode brauchst, dann kannst du z.B. in die Sources meines PC_DIMMERs schauen, da ich dort ebenfalls den Parallelport ansteuere: PC_DIMMER


Die Belegung des LPT-Ports findet man ganz einfach HIER! *g* du brauchst theoretisch nur nen Data-Port mit nem Schalter auf einen der Status-Registerports legen und dann per inp32(889) oder inp32(890) abfragen - mehr nicht. Auf diese Weise habe ich mir einen Signalgeber zusammengebastelt, der mich per ISDN auf dem Handy alarmiert, falls bestimmte Kontakte geschlossen, oder geöffnet werden :D


viel Glück,
Christian :)

[hibbert]

cool danke, ich werde mir das morgen mal nach der schule angucken.

ich werde mich auf jedenfall nochmal melden :wink:

[zebrafalke]

Hallo,

Zitat:

Zitat von christian.noeding

Delphi-Quellcode:

if not inp32(888)=0 then ShowMessage('Da ist einer auf meine Schnur getreten!');

Damit hab ich ein paar Probleme.

An welche Pins könnte ich zum Beispiel einen Taster anschließen, dessen drücken dann registriert wird?

Code:

   ----------------------
  |                  |
  |                  |
LPT-Port           Taster
  |                  |
  |                  |
   -------------------

Zitat:

Zitat von christian.noeding

du brauchst theoretisch nur nen Data-Port mit nem Schalter auf einen der Status-Registerports legen und dann per inp32(889) oder inp32(890) abfragen - mehr nicht.

geht bei mir nicht, da wird der Taster immer als aus erkannt, auch wenn ich ihn drücke...

Gruß
zebrafalke

[Olli]

Usermode böse - Kernelmode lieb! Treiber sinnvoll einsetzen.

[zebrafalke]

Thx, hatte es schon anders hingekriegt :wink:

Gruß
zebrafalke

[alleinherrscher]

Zitat:

Thx, hatte es schon anders hingekriegt

Sorry, dass ich das alte Thema neu anschneide...aber weiß jemand wie man das jetzt letztendlich löst? Wie kann ich herausfinden, ob ich eine Datenleitung z.B. D0 kurzgeschlossen habe? Ich benutzte ja schon die inpout32.dll, das Out32 funktioniert erstklassig. Ich setzte erst per Out32(888,1) das D0 auf High, die Led zwiscehn D0 und Ground leuchtet. Schließe ich d0 kurz, und lese per Inp32(888) den zustand ein, so bleibt dieser unverändert bei "1"

Hab schon im Bios auf EPP1.7 umgestellt, hat nichts genützt.


Grüße,

Alleinherrscher

[Muetze1]

Auch das Output Latch im Data Control Register konfiguriert? Im Normalfall ist der LPT nur zur Ausgabe da. Von daher hatte man früher immer den zuletzt ausgegebenen Wert beim einlesen zurück bekommen. Von daher muss man nun erstmal dieses Latch Umschalten um das Signal der Datenleitungen zu bekommen.

Aber noch was grundlegendes: Offene Datenpins sowie zu Ground geschlossene liefern immer das gleiche Signal: LOW.

[hibbert]

Hi,
ich habe am Anfang des Jahres ein altes Ketcar mit nem Laptop und ner Autobatterie zum Fahren gebracht. Dabei musste man natürlich auch die Radstellung überprüfen, also etwas über den LPT einlesen.

dazu habe ich mir damals n kleines Testprogramm geschrieben. Es gibt Signale ab, kann aber auch welche einlesen. Ich habe das Prog mal angehangen.

Kurz zum Programm:
V, L, R, Z würden das Teil zum Fahren bringen. Bumber, Mittelstellung und Links/rechts sind rot oder grün bei entsprechender belegung, ist aber auch egal, war nur was für mich zum überprüfen. Wichtig dürften hier die Checkboxen an der rechten Seite sein. Ist ein Haken gesetzt, so ist die Leitung geschlossen. (Pin 10 - 13 und Pin 15)

Mit dieser Methode konnte ich später im Hauptsteuerungsprogramm alle wichtigen Informationen "einlesen".
Ich hoffe es hilft...

(Bitte nicht über den schlechten Programmirstiel/rechtschreibfehler oder sonstiges herziehen, es war nur ein kleines Testprogramm für mich. Habe auch ein wenig in der Das005.pas rumgefummelt... also mal gucken.

hibbert

[oldmax]

Hi
Also, so einfach, wie du dir das vorstellst (1. Posting) wird's nix. Wenn du ein Out auf den Port gibst, wird dir ein Datenbit gesetzt (oder auch nicht..) undnun möchtest du per In dieses Bit auf einem anderen Datenbit lesen. Klar, die Hardware schaltet das gesetzte Bit aus und erwartet nun ein Signal von "außen". Eine Chance gäbe es über die Steuerleitungen. Irgendwo gibt's hier ein Tutorial von mir, aber such unter Autor den Namen Matze. Er hat es damals für nich hier reingesetzt.
Übrigends, der Parallelport ist für "Spielereien" gut geeignet und wenn du einen alten PC mit Win 95 / 98 hast, kannst du direkt mit in und Out in Assemblercode die Portregister beschreiben und auslesen. Allerdings wirst du nicht so ganz ohne ein paar Ic's auskommen, um den Portbaustein nicht zu überlasten. Das witzige, er raucht nicht, aber du kannst ohne weiteres Spiegeleier drauf braten.....
Gruß oldmax

[Muetze1]

Zitat:

Zitat von oldmax

Eine Chance gäbe es über die Steuerleitungen.

Oder 5V Stromversorgung und damit dann ein HIGH Signal erzeugen. Wenn man externe Beschaltung benötigt, dann braucht man eh auch 5V.

[hibbert]

Zitat:

Zitat von oldmax

Also, so einfach, wie du dir das vorstellst (1. Posting) wird's nix.

Hmm komisch aber genau so habe ich es realisiert...
Ein Pin der Dauer High ist wird zb auf Pin 13 gelegt, dazwischen ein Schalter. Nun das Programm starten und ein wenig an dem Schalter spielen. Und siehe da... in dem Programm tut sich was.

[alleinherrscher]

Besten Dank, hibbert!

Dein Programm funktioniert wunderbar, und am Wochenende werde ich auf dieser Grundlage dann mal mein Programm schreiben!

In diesem Sinne, schönes WE an alle und danke nochmal für eure Hilfe

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage,

[oldmax]

Hi
Auch wenn du vielleicht dieses Thema als beendet betrachtest, möchte ich hier noch einmal eine Antwort geben und vor möglichen Trugschlüssen warnen.
Also, mag sein das eine Beschaltung eines 5V führenden Pins dir komischerweise auf dem Pin 13 grad mal freundlich gesonnen ist, aber...
Hier ein wenig Erklärung:
Es gibt für den Parallelport 3 Register
Ein Datenregister, ein Kontrollregister und ein Statusregister. Die Bits dieser Register sind auf den Parallelport geschaltet. So sind Pin 2 bis Pin 9 die Datenbits. (vollständiges Byte)
Statusbits sind Pin 10, 11, 12 , 13 und 15. (nicht alle Bits des Registers )
Das Controllregister findet sich auf den Pins 1, 14, 16 und 17. ( auch nicht alle Bits des Registers)
Nun hab ich grad mein schlaues Buch nicht zur Hand, aber ich glaub, das Statusregister sind Eingänge und das Controlregister sind Ausgänge. Die Datenbits sind unter bestimmten Voraussetzungen Bidirektional. Wenn du nun (durch Zufall) eine 5V Leitung auf deinem Port gefunden hast, so ist das kein Garant, das diese 5 V auch immer anstehen. Der Parallelport hat keine 5V Spannung auf dem Port. Wenn du nun dein Programm so auslegst, das du einen programmierbaren Pin das 5V Signal abforderst, nun ja, die Antwort nach der Zuverlässigkeit abgesehen von der unnötigen Gefahr durch irgendeinen dummen Kurzschluß den Port zu zersemmeln, kannst du dir da schon selbst beantworten....

Da ist es schon besser, wenn eine 4,5V Batterie genommen wird, der Minus an eines der Pins 18 bis 25 (alles GND-Leitungen) und die 5 V + auf eine der Statusleitungen, die dann unter der Adresse der Statusbits eingelesen werden kann.
Wesentlich besser ist es, sich mal in ein paar Elektronikforen unzuhören, was die Experten so zum Beschalten irgendwelcher Portleitung vorschlagen. Manchmal gibt's sogar Wissen unter Leuten, die nich grad Delphi programmieren.
Gruß oldmax und deinem Rechner ein möglichst langes Leben....