Einzelnen Beitrag anzeigen

Khazad

Registriert seit: 18. Okt 2004
Ort: Hamburg
15 Beiträge
 
Delphi 2007 Professional
 
#1

Steurung der Pins am Druckerport GANZ GANZ einfach

  Alt 19. Okt 2004, 11:16
Hi ich habe hier schon ein Tutorial gefunden das sich mit diesem Thema beschäftig findes es aber ein bisschen zu kompliziert ich habe es so gelöst:

Delphi-Quellcode:
procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
function PortIn(Port:Word):Byte; stdcall; external 'io.dll';
Ein zugriff könnte dann so aussehen:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
PortOut(378, $FF);
end;
Die 378 Steht für die Adresse des Datenregisters eures Druckerports (Müsst ihr mal im Bios schauen) und das $FF steht für alle 8Bit auf High, $00 währe dann alle 8Bit auf Low. Um diese Sachen zu benutzen braucht ihr die io.dll die im selben Ordner wie euer Programm liegen muss.

Mfg Maik
Angehängte Dateien
Dateityp: dll io.dll (45,5 KB, 82x aufgerufen)
Mann muss nicht LANG sein um GROSS zu sein
Ich mag Elben die schmecken nach Wald
  Mit Zitat antworten Zitat