Delhpi + LPT1

[antcool]

Procedure TForm1.port(zahl:byte);
begin
asm
MOV AL, zahl
MOV DX, $378
OUT DX, AL
end
end;

procedure TFrom1.Button1Click(Sender:TObject);
begin
port(12);
end;

Das alles sollte eigentlich ein Spannung(5V) am LPT1
erzeugen und somit ein Lampe zum Leuchten bringen!
Beim compilieren kommt keine Fehlermeldung! Aber wenn ich das Programm starte und die
procedure TForm1.Button1Click(sender:tobject);
ausführe kommt eine Fehlermeldung:
"Privileged instruction"
was, wenn mich meine Englishkenntnisse nicht verlassen
haben, heißt:
Priviligierte Anweisung.
Wie kann das ändern? Wo ist der Fehler?
*Brüll*:Hilfe!!!!!!!!! ?( ?( ?( ?(

 

[blueflash]

Möglicherweise wird ja bereits von einem anderen Programm aus auf den Port zugegriffen? Würde zuminedest irgendwie Sinn machen.

 

[ph0x]

Welches OS hast du?

NT z.B. unterbindet nämlich den Zugriff von nicht-
authorisierten Programmen auf die Ports.


so long, gruß mcrack

 

[antcool]

bei Windows NT geht gar nichts.
Deswegen funtkz das nicht!
Ich habe die halbe nacht daran run gefummelt!
Unter Win95 lauft es jetzt!