Steuerung jedes Pines des Parallelports mit Win95 bis WinXP

[pmc]

1. Aufbau der Schnittstelle :

Der Parallelport ist in drei Register engeteilt,
Datenregister(output), Kontrollregister(Input/Output) und
StatusRegister(Input).

Datenregister :
Das Datenregister stellt 8 leitungen zur verfügung,
worüber die zu druckenden Daten an den Drucker geleitet werden.

• D0 bis D7 -> Pin 2 bis Pin 9 am PC-Stecker.

Kontrollregister :
Das Kontrollregister stellt 4 leitungen zur verfügung,
worüber der Drucker gesteuert wird.

• Strobe -> Pin 1 am PC-Stecker.
  AutoLF -> Pin 14 am PC-Stecker.
  Init -> Pin 16 am PC-Stecker.
  Select -> Pin 17 am PC-Stecker.

Statusregister :
Das Statusregister stellt 5 Leitungen zur Verfügung,
worüber der Drucker seinen Status an den Pc übermittelt.

1. Error -> Pin 15 am PC-Stecker.
   Online -> Pin 13 am PC-Stecker.
   Paper -> Pin 12 am PC-Stecker.
   Busy -> Pin 11 am PC-Stecker.
   ACK -> Pin 10 am PC-Stecker.

2. Verwendung :

Wichtig : Die Unit habe ich nur unter Win2K getestet, aber unter winXP
müsste es auch funktionieren!!!

Die Unit ParaPrcs stellt folgende Funktionen und Prozeduren zur Verfügung :

Function ReadCtrlLines : TCLines; ---> Liest die Leitungen des Kontroll-Registers der Parallelen Schnittstelle (Select - Init - AutoLF - Strobe)
Function ReadStateLines : TSLines; ---> Liest die Leitungen des Status-Registers der Parallelen Schnittstelle (Busy - ACK - Paper - Online - Error)

Procedure WriteDataLines(bits : TDBits); ---> Schreibt die Leitungen des Daten-Registers der Parallelen Schnittstelle (D0 bis D7)
Procedure WriteCtrlLines(cl : TCLines); ---> Schreibt die Leitungen des Kontroll-Registers der Parallelen Schnittstelle (Select - Init - AutoLF - Strobe)

Function PortReset : Boolean; ---> Setzt alle Leitungen auf LOW - Gibt True zurück wenn der Treiber geladen ist.


Hinweis zu den verwendeten Variablen-Typen :

1. TSLines = record
   Busy : boolean;
   Ack : boolean;
   Paper : boolean;
   Online : boolean;
   Error : boolean;
   end;
   
   TCLines = record
   Select : boolean;
   Init : boolean;
   AutoLF : boolean;
   Strobe : boolean;
   end;
   
   TDBits = array[0..7] of boolean;

Was man nun damit ansteuern will ist einem selbst überlassen.
Bei Fragen, Eamil an mich.

MFG PMC

[edit=sakura] Archiv als ZIP beigefügt. Mfg, sakura[/edit]

[dahaack]

Kann mir jetzt vielleicht jemand ein möglichst einfaches Beispielprogramm schreiebn oder sowas wie man 1 Pin auf high/low umschalten kann (für Delphi3)? Danke im Vorraus!!!

[dahaack]

Was ist jetzt eigentlich mit der *.pas Datei fuer Delphi3? Was steht eigentlich in dieser Datei drin! Weil dann kann ich mir das ja auch selber schreiben, nur ich weiss ja nichteinmal wozu diese Datei gut ist.

[flomei]

Komm mal nen bisschen auf Teppich zurück! Hast du schon mal nach LPT gesucht? Oder nach Parallelport ??? Das sind zwei Stichworte mit denen du dich beschäftigen solltest. Vielleicht kannst du dann selber ein Programm schreiben...
Ich könnte dir auch eins hier hin klatschen das funktioniert aber du würdest es einmal neu kompilieren und dann abgeben... Lerneffekt := 0 So soll es nicht sein. Such mal nach den Stichworten und lerne. Wenn du dann Probleme hast kannst du dich nochmal melden.

MfG Florian

[dahaack]

Wie neu kompolieren und abgeben? Also ich hab jetzt echt so vielen Foren durchsucht und alles durchgelesen und komm nicht weiter! Ich waere sowas von Dankbar fuer ein Programm, dass 1 Pin auf high/low stellen kann. (Am liebsten auf aller primitivster Weise, damit ich sehen kann, wie und durch welchen Befehl nun ein Pin auf high/low geschaltet wird.)
BITTE, BITTE, BITTE, kann jmd. ein Programm schreiben; 1 Button, wenn man raufdrückt soll Pin 2 auf low/high umschalten. Ich komm echt nicht weiter wenn ich mir alle Foren ueber LPT/Parallelport durchlese.
VIELEN DANK IM VORRAUS!!!

[flomei]

Dann guck mal bei Tutorials und Kurse. Da ist ein Tut von mir. In dem wird beschrieben wie du Pins auf High/Low setzen kannst...

MfG Florian

[dahaack]

Cool ich guck mal nach, ich hab ja schon ein paar Progs runtergeladen mit denen man das machen kann, nur leider sind die mit was höherem als D3 programmiert worden und ich kann sie nicht richtig oeffnen. Ausserdem sind die viel zu gross, sodass da viel zu viel Schei... drin steht sodass ich da nicht mehr durchblicke.

[dahaack]

Danke fuer deine Hilfe Florian, du meinst wahrscheinlich das hier!? http://www.delphipraxis.net/internal...highlight=high
Aber da wird auch nur hauptsaechlich ueber 9x und ME gesprochen und ueber einen Link kommt man dann wieder hierhin. Ich bin so am verzweifeln.

[flomei]

Für was für ein OS soll das denn sein??? Du erzählst uns immer nur, dass du es mit Delphi 3 machen willst aber nicht auf welchem OS es laufen soll.
Das würde nämlich weiterhelfen...

MfG Florian

[dahaack]

Achso oh ja! Ja auf vielen Seiten finde ich Beispiele für Win 9x /ME. Aber wenn es dann um NT geht (Ich hab Win NT), dann steht da immer was von Treiber der nicht mit Delphi programmiert werden kann wird benötigt und bla bla bla, und so weiter, viel zu viel für so ein kleines Gehirn wie meins. Wie gesagt möglichst kleines Beispiel für Win NT / Delphi 3 um 1 einzigen Pin zu verändern (Von low auf high oder andersrum) je kleiner desto besser! DANKE!

[pmc]

Aber mit dem Beispiel programm kannst du doch auch einen pin ansteuern!!!!