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