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]

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

Uses ParaPrcs,Windows....;

[CrashMan]

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 !

Funktioniert nu!

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



CrashMan ^^