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]

[Der Gitarrist]

Guten Morgen.
ich stelle jetzt wahrscheinlich die dümmste Frage überhaupt, aber ddkint.dcu ist der Treiber oder wie muss ich das verstehen?
Alles im selben Dir? Also
C:\...\Projects\Projektname\ und hierdrin nun die *.pas, *.dfm, *.dpr, *.exe, Paraprcs.dcu, ddkint.dcu?
Ich entschuldige mich, falls diese Frage das tiefste Niveau erreicht hat, bitte aber dennoch um eine Antwort. Vielen Dank im Voraus! Schönen Sonntag noch

[pmc]

du hast drei dateien...

1. Paraprcs.dcu -> Hier sind die Proceduren zum steuern drin...
2. ddkint.dcu -> Hier sind Proceduren die der PC zum Initaliesieren braucht drin...
3. Portdriver.sys -> wie schon zu erkennen stecken hier die wörter Port = Schnittstelle und
Driver = Treiber drinnen ....

Portdriver muss im selben dir sein wie dein Program (.EXE)

[Der Gitarrist]

Vielen Dank! Wo du es sagst, ist mir auch mal aufgefallen, dass sich diese Datei bei den entpackten befindet. Da hätt ich lange rumrätseln können. Wünsche angenehme Woche - bis zum nächsten Problem...

[CalganX]

Hi,
leider kann ich das Archiv in deinem ersten Post nicht verwenden, da das Archiv beschädigt ist und sich somit nicht entpacken lässt. Wenn jemand ein funktionsfähiges vielleicht anhängen könnte, wäre das äußerst praktisch, denn ich muss eigentlich immer nur einen Pin an und aus machen. *g*

Chris

[sakura]

Ist jetzt noch einmal zusätzlich als ZIP am ersten Beitrag dran

......

[Wolti]

Also erst mal vielen Dank für die .dcu für Delphi 6. Ich arbeite momentan problemlos damit und baue gerade an einem projekt.

Also meine Frage: Wird in nächster Nähe (bis So. oder Di.) eine .dcu für Delphi 7 verfügbar sein?
Würde mir viel Arbeit abnehmen, da ich sonst einen anderen Treiber bis dahin einbinden müsste...

Schon mal vielen Dank,

Grüße Wolti

[RudiRizzo]

Ich arbeite ebenso mit Delphi7 und würde mich sehr freuen dafür eine compilierte Version zu bekommen

[CrashMan]

Ich habe momentan das Problem, dass das Programm immer "Treiber konnte nicht geladen werden!" anzeigt...

Auch nach neustart....nach einem Klick auf Read-State ist "Busy" aktiv...

Was könnte das Problem sein?

CrashMan

EDIT:
Problem gefunden *schäm* ... Treiber im falschen Verzeichnis ...

[CrashMan]

schon wieder ein Problem *g*

(Anmerkung: Es tat vor langer Zeit schonmal ...)

Die Read-States zeigen alle an
Die Read-Write-States kann ich aktivieren und des TestLämpchen leuchtet

Aber bei den Datenleitungen leuchtet die LED schwach, egal ob ich die Leitung an oder aus hab ... wo liegt das Problem?


CrashMan

[pedro0583]

hi,
ich beschäftige mich erst seit kurzem mit der steuerung der parallelports.
das demoprogramm (portaccess) funktioniert ohne probleme.
wenn ich allerdings ein eigenes programm schreibe (uses paraprcs und dcu-datien kopiert), findet er die paraprcs.pas nicht.
ich habe delphi 6 und win xp.
für eine lösung wäre ich sehr dankbar.