LPT Port

hedie · Verfasst: Fr 25.03.05 17:17

Hallo Zusammen

Ich möchte schon lange gerne mal wieder den LPT Port Ansteuern.
Seit mir nicht böse :wink:

aber ich habe schon mal in Visual Basic programmiert und da hats geklappt.
doch nun bin ich auf Delphi um gestiegen

und hier hab ich natürlich keine ahnung von der Port Programmierung
Ich habe auch schon die Suche benutzt leider nichts

Hoffe ihr könnt mir Helfen

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

klick
und
Suche in: Delphi-Forum, Delphi-Library

KLACK

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

Marekventur · Beiträge: 72

Hallo.

Lad dir die DLPORTIO.DLL aus dem Netz, steck sie ins Windows-Verzeichniss und greif so auf sie zu:

markieren

Delphi-Quelltext

1:
2:

  function  DlPortReadPortUchar(Port : Integer) : Byte; stdcall; external 'DLPORTIO.DLL';
  procedure DlPortWritePortUchar(Port : Integer; Value : Byte); stdcall; external 'DLPORTIO.DLL';

markieren

Delphi-Quelltext

1:
2:

  Value := DLPortReadPortUChar(888);  // Lesen
  DlPortWritePortUchar(888,Value);    // Schreiben

Der "Value" setzt sich aus dem Zustand der Pins zusammen. Die musst du addieren. Einer hat den WErt 1, der nächste 2, der nächste 4, usw....
Musst du dich mal im Internt informieren, welcher Pin welche "Nr" hat....
Du musst immer den Zustand aller sendenden Pins schreiben!!!

MFG Marek

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme