Hi Leute,
ich habe an meinem LPT-Stecker den Datenpin 1 mit dem Datenpin 3 verbunden. Wenn ich dazwischen eine LED schalte und auf Datenpin 1 Strom gebe, so leuchtet diese auch einwandfrei. Nehme ich jedoch die LED weg und verbinde direkt, so wird beim Lesen immer nur der Wert gelesen, den ich vorher geschrieben habe.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| program port;
{$APPTYPE CONSOLE}
uses
windows,
sysutils;
procedure PortOut(Port : Word; Data : Byte); stdcall; external
'io.dll';
function PortIn(Port : Word) : Byte; stdcall; external 'io.dll';
var
outp: byte;
begin
PortOut($378, 0);
PortOut($378, 1); outp := PortIn($378);
WriteLn(outp);
end. |
Wenn ich jetzt das Proggie ausführe, wird immer nur wieder die 1 angezeigt, obwohl durch die Verbindung von Datenpin 1 und 3 eigentlich eine größere Zahl ausgegeben werden müsste, da nun auch Strom auf Datenpin 3 geleitet wird.
Ich hoffe ihr könnt mir helfen,
Danke, Sebastian.
