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]

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

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