Steurung der Pins am Druckerport GANZ GANZ einfach

[Khazad]

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