Hallo zusammen,
ich möchte für nen Kumpel ein kleines Programm schreiben, das mithilfe des Parallelports letzten Endes eine Lichterorgel ansteuern soll. Zum Probieren habe ich mir ein kleines Board mit 8 LEDs via Parallelport angeschlossen.
Da ich erfahren habe, dass man unter Windows XP nicht mehr direkt auf den Anschluss zugreifen kann, habe ich mir die "io.dll" in mein Projekt eingebunden, die mehrere Funktionen und Prozeduren bereitstellt, mit denen man doch auf den Parallelport zugreifen können soll,
Hier mal ein Auszug:
die PortOut-Procedure
procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
und die PortIn-Funktion
function PortIn(Port:Word):Byte; stdcall; external 'io.dll';
Daraus habe ich folgendes kleines Programm gebastelt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
PortOut($378, $4);
Edit2.Text:=IntToStr(PortIn($378));
end;
Leider bekomme ich im Edit2 immer den Wert "255" als anliegenden Wert zurück, was auch begründen würde, warum alle LEDs am Parallelport dauerhaft leuchten...
Könnte Ihr mir erklären bzw weiterhelfen??
PS: Warum wird eigentlich ein "$" vor der "4" übergeben (habe diese Syntax so übernommen)?
Viele Grüße
Andy