Hallo! Jetzt schreib ich mal wieder ein Prog für die Schule. Dieses Programm soll eine "Flaschenabfüllanlage" steuern. Bevor mich jetzt jeder fragt, wie die aussieht und wie die was abfüllt bleiben wir bei Delphi. Bei meinem ersten Steuerprogramm habe ich nach langem Googlen (so bin ich auch hier hingekommen!
) ein paar Teile Assembler gefunden mit denen das unter
Win9X und ME
ohne Treiber funktioniert. Das nächste Programm soll auch wieder unter Win98 laufen muss aber mehrere Ports einlesen und ausgeben.
Ich hatte folgenden Code zum Ansteuern des Parallelports:
Delphi-Quellcode:
procedure port(x:byte);
begin
asm
mov dx,378h
mov al,x
out dx,al
end;
end;
Geht auch. Wenn ich nun den ersten Datenpin auf High setzen will hab ich das so gemacht:
Delphi-Quellcode:
procedure TSteuerung.Pin1HighClick(Sender: TObject); assembler;
begin
port(1); //setzt ersten Datenpin high
end;
Nun frage ich mich:
- Wie steuere ich mehrere Pins an? Überlegung: Port(00000011); //oder anders???
- Wie lese ich Pins ein? Überlegung: in dx,al //in statt out
Thx im Voraus.
MfG Florian
P.S.: Ich würde gerne nach Schluss des Projektes das Programm und ein paar Infos über die Anlage hochladen für alle Interessierten. Wenn ich darf!