LPT Port ansteuern, aber wie?

butterkeks · Beiträge: 56 Win XP, Win 7 Delphi 2007

Hallo zusammen,

ich wühle mich jetzt seit Stunden durchs mehrere Foren aber finde nur widersprüchliche angaben.
Wie kann ich von einem Delphi 2007 Programm aus, auf einem Windows XP System, den LPT Port ansteuern und einzelne Pins auf "1" setzen?

Ich habe gelesen das soll über eine IO DLL gehen, aber dann sagt der nächste wieder das geht nicht weil man angeblich ab Win 2000 nen Treiber braucht. Aber sicher sagt da niemand was zu.

Wie mach ich das jetz denn am besten? und wo bekomme ich eine aktuelle, funktionierende DLL oder nen Treiber?

Danke schonmal

_________________
Dear lord,
please grant me the ability to punch people in the face over Standard TCP/IP!

ALF · Verfasst: Fr 09.04.10 12:11

Hi schau Dir das ZLPORTIO.LIB an.
Vielleicht Hilft es Dir.
Gruss Alf

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!

butterkeks · Beiträge: 56 Win XP, Win 7 Delphi 2007

danke

werds mir direkt mal angucken.

_________________
Dear lord,
please grant me the ability to punch people in the face over Standard TCP/IP!

Reinhard Kern · Beiträge: 591 Erhaltene Danke: 14

butterkeks hat folgendes geschrieben :

Wie kann ich von einem Delphi 2007 Programm aus, auf einem Windows XP System, den LPT Port ansteuern und einzelne Pins auf "1" setzen?
...

Hallo,

ja geht mit DLL oder Treiber - aber lohnt sich das noch? LPT ist fast ausgestorben, auch wenn du noch einen am PC hast, wird es vermutlich dein letzter sein.

Gruss Reinhard

Xentar · Verfasst: Fr 09.04.10 16:04

Hier der Thread
www.delphi-forum.de/viewtopic.php?t=98861
könnte für dich auch interessant sein?
Da ist zwar von Eingängen die Rede, aber die Ideen kann man sicher auch verwenden, um Pins als Ausgang zu schalten.

_________________
PROGRAMMER: A device for converting coffee into software.

butterkeks · Beiträge: 56 Win XP, Win 7 Delphi 2007

@ Reinhard:
Leider ja, ich wüsste aber auch keine alternative um ein einfaches Signal an ein externes gerät zu senden ohne viel Aufwand.

In diesem Fall will ich einen kleinen Motor einfach an und ausschalten.

Das klappt ja nur über LPT oder vielleicht noch USB. Aber USB is mir zu kompliziert und aufwendig.

@ Xentar: Werd ich mir auch mal angucken.

_________________
Dear lord,
please grant me the ability to punch people in the face over Standard TCP/IP!

Xentar · Verfasst: Fr 09.04.10 16:22

Wenn es wirklich nur um eine Leitung geht, könntest du auch eine serielle Schnittstelle (bzw. USB - RS232 Konverter) verwenden, und dort die Handshake Leitungen missbrauchen. Hier musst du wahrscheinlich am Ende einen Transistor anschließen, der wiederum die eigentliche Last schaltet.

_________________
PROGRAMMER: A device for converting coffee into software.

Waldheini · Beiträge: 32 Win 98SE, XP D5 St., K3 Prof

Ist nicht so schwierig, Daten auf dem LPT Port auszugeben.
Die folgende Prozedur schaltet die Bits einzeln durch:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure LPTAusgabe;
var Datei: File;
Daten: Array[0..7]of Byte;
begin
  Daten[0]:= 1;
  Daten[1]:= 2;
  Daten[2]:= 4;
  Daten[3]:= 8;
  Daten[4]:= 10;
  Daten[5]:= 20;
  Daten[6]:= 40;
  Daten[7]:= 80;
  AssignFile(Datei,'LPT1');
  Reset(Datei,1);
  BlockWrite(Datei,Daten,8);
  CloseFile(Datei);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme