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 :coder:

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

[pmc]

Das Ergebniss würde mich auch mal Interessieren!!!

[CrashMan]

Bei mir kommt die Meldung:

[Fatal Error] Unit1.pas(7): File not found: 'ddkint.dcu'

Ich hab D6 Personal.

CrashMan

[pmc]

hast du die unit ParaPrcs eingebunden???
du musst draufd achten das die unti im bin verzeichnis inerhalb deines
delphi verzeichnisses ist!!!

[CrashMan]

Ja...

Ich wollt erstmal n mini-test machen und Bit 1 an und ausmachen...

Wenn ich ParaPrcs einbinde sagt der File not found (also die ddkint.dcu)

enn ich die nicht einbinde kommt nur undeklared dingens (b und WriteDatalines)

Also liegt das an der ParaPrcs.dcu

Diese liegt im Delphi6/Lib - Ordner !

CrashMan

[CrashMan]

Die ist im Lib-Verzeichnis ... aber auch im bin-Verzeichnis tuts net (auch net wen die aus lib raus ist)

Immer kommt ddkint not found


CrashMan

[pmc]

Also:

Die Datei aus dem Anhang pakst du ins bin verzeichniss...
(vorher entpaken)...Es muss so funktionieren das macht es bei mir nähmlich auch!!!!
Achte auf die schreibweise!!!
Und dann bindest du die Unit ein :

Delphi-Quellcode:

Uses ParaPrcs,Windows....;

[CrashMan]

Zitat:

Zitat von pmc

Es muss so funktionieren

...tuts aber net...

Ich hab ParaPrcs in den Uses, ich hab die dcu im Bin und im Lib, ich hab die richtige Schreibweise und kommt der selbe Fehler

Übrigens:
Wenn man mal die ParaPrcs im Editor öffnet steht schon in der ersten Zeile ddkint...also irgentwas muss damit sein...hast du die ? Guck ma nach und häng die ma plz an

[pmc]

ups... mein fehler...
hier die andere dcu ... jetzt muss es funktionieren...
aber eigentlich muss das doch wenn es kompiliert ist auch ohne funktionieren.
Egal!!!

[CrashMan]

Super, thx ! :dancer: :dancer2:

Funktioniert nu! :bounce1:

Hast du auch wieder was gelernt ^^ http://people.freenet.de/crashman2003/pmcrules.gifhttp://people.freenet.de/crashman2003/pmcrules.gifhttp://people.freenet.de/crashman2003/pmcrules.gif

:freak: :cat: :coder:

CrashMan ^^

[PsychoDK]

bei mir kommt auch ein fehler...
der sagt das er die ParaPrcs.pas nicht finden kann...
mache ich da was falsch oder woran liegt das?

[CrashMan]

Hast dud die ParaPrcs auch im Delphi6\Lib untergebracht?

CrashMan

[Niels_]

Kenne das Problem - bei mir meckert er auch, dass er die nicht finden kann! Hab keine Ahnung woran das liegt - leider!
Habe sie unter Lib reingeschmissen (und überall, wo man sich es noch vorstellen könnte), funkt aber immernoch nicht.

[PsychoDK]

genau so ist es bei mir auch...
ich hab sie auch in alle mögliche verzeichnisse getan

[Ronni]

:idea:
Ursache des Problems : Kann Datei nicht finden ParaPrcs.pas
ist, dass die dcu-Datei unter Delphi 6 compiliert wurde.
Das gleiche Problem habe ich mit Delphi 5 auch. :cry:
Und da Delphi 5, vorcompilierte Units aus Delphi 6 nicht verwenden kann,
verlangt Delphi hier die ursprüngliche *.pas Datei.
Ich hoffe aber auch im eigenen Interesse, dass es eine Möglichkeit gibt,
dass uns pmc evtl. eine compilierte Unit unter D5 zur Verfügung stellen
kann.

Gruß

Ronni

[dahaack]

Hilfe!
Ich brauche diese *.pas Datei bitte fuer Delphi3! Kann mir jemand helfen?
Danke!

[pmc]

Ich arbeite bereits an einer neuen datei die auch für delphi 3 verwendbar ist....Bitte noch ein bissel geduld!!!!

Danke!!!

[dahaack]

Oh Mann ist das supercool! Ich muss dir echt schonmal im Vorraus Danke sagen!

[dahaack]

Also ich wollt noch sagen, dass bei mir von den Datenpins (Pin 2-9) alle Pins bis auf Pin3 auf High sind (ca. 4,3V). Nur D1 ist auf Low (ca 0,2V).

[pmc]

Hast du auch die Richtigen pins benutzt???
Schau mal in die info(Info Button im Programm)!!!!
Überprüfe auch das kabel ob das richtig verlötet ist!!!
Kann ja sein das es nicht 1 zu 1 übersetzt ist!!!

[dahaack]

Also bis jetzt hab ich nochnicht einmal gelötet; ich hab einfach ein Druckerkabel bei mir angeschlossen (OnBoard) und am anderen Ende stehen an den einzelnen Pins auch Zahlen von 1 - 25. Bei Pin 2,4,5,6,7,8,9 ist high und Bei Pin 3 ist low. Ich habe die Spannungen selber gemessen.

[pmc]

Dann überprüfe doch mal den pin drei von den beiden steckern mit einem durchgangsprüfer!!!

[dahaack]

Also wenn ich dein Programm benutze was du ganz am Anfang bereitgestellt hast, ändert sich nichts wenn ich an die Pins anklicke. Egal was ich da mach, jede Spannung bleibt wie sie ist, Pin 3 ist low alle anderen high.

[dahaack]

Alles klar Danke erstmal, Kabel ist kaputt, hab ein anderes genommen und es sind alle auf high. Das Programm funktioniert trotzdem nicht. Muss ich noch irgendwas machen wenn ich Pin 2 angeklickt habe? Soll dann Pin2 low oder high sein?

[pmc]

Wenn die auf checked sin dann muss die leitung auch auf high sein!!!

Das programm funtzt auf jeden fall...
hab es ausgiebig getestet!!!!

[dahaack]

Dann muesste es bei mir ja so sein, dass wenn ich das Programm starte die Datenleitungen alle low sind, sind sie aber nicht. Wenn ich die "anchecke" verändert sich die Spannung auch nicht. Muss ich fuer dieses Programm Delphi aufn Rechner installiert haben? Vielleicht gehts ja nicht weil ich Delphi3 habe. Mein Betriebssystem ist Windows NT.

[pmc]

Das programm ist fertig compiliert und deswegen bracuht man dafür ja auch nicht delphi...oder bracuhst du damit Word funktioniert Delphi aufm rechner???

Das programm ist schon in ordnung!!!
Es ist extra für die neuen betriebssysteme geschireben!!!!
Es kann nur am kabel liegen oder du mist die para-schnittstelle auf EPC im Bios umschalten....

[dahaack]

Häh? Wie jetzt? Wo muss ich im Bios was umstellen?

[pmc]

Ich sagte nur vielleicht!!!!!
Im Bios irgendwo .... wo genau weiss ich jetzt nicht...
Weil ich ja nicht jeden tag irgendwas im bios rumstelle!!!!

[dahaack]

Geil, geil, geil! (Falls dieses Wort hier erlaubt) Danke, danke, danke! Programm funktioniert jetzt. Ich hab das jetzt auf ECP gestellt und funktioniert. DAnke!

[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...

Delphi-Quellcode:

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 :hi:

[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 :hi:

[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 :hi:

[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!!!!