guten tag allerseits,
ich hab den alten thread hier mal ausgegraben, da ich noch einige fragen habe. manche werden euch wahrscheinlich etwas eigenartig vorkommen, aber das liegt daran, dass ich gerade erst in der schule delphi lerne und noch nicht so der spezialist bin.
also es geht los:
---------------------------------------------------
1. Frage
Code:
procedure PortOut(x:byte);
begin
asm //erklärt dem Compiler, dass Assembler Code anfängt
mov [b]dx[/b],378h //378h ist die Adresse von LPT 1
mov al,x //x müssen wir noch einen Wert zuweisen
out [b]dx[/b],al
end;
end;
wieso wird hier zwei mal
dx verwendet?
hier hingegen nicht
Code:
// Werte holen aus dem Register des Ports (NUR UNTER WINDOWS 9X)
asm
mov dx, Port
in al, dx
Mov Value, AL
end;
2. Frage
Code:
procedure TEureForm.ZBButtonClick(Sender: TObject); assembler;
begin
[b]port[/b](1); //hier weisen wir x einen Wert zu (siehe Tabelle unten)
end;
muss hier nicht hinter das
port ein
Out?
3. Frage
Code:
Function LesePort( [b]Port : Word[/b] ) : Byte;
Const
LPT_DataRegister = $378;
LPT_StatusRegister = $379;
LPT_KontrollRegister = $37A;
Var
Value: Byte;
[b]Port: Word;[/b]
wird hier port nicht zwei mal deklariert, bzw. der integer zugeordnet? (delphi meint: redeclaration...)
4. Frage
bedeutet
$378 das
gleiche wie
378h ?
5. Frage
muss ich bei
LPT2 einfach die drei jeweils durch die
2 austauschen? also,
378 --> 278
379 --> 279
37A --> 27A
6. Frage
wie kann ich den Wert der Variable
Port aus
word in einen
string umwandeln und in einer showmessage darstellen?
7. Frage
Code:
// Werte holen aus dem Register des Ports (NUR UNTER WINDOWS 9X)
asm
mov dx, Port
[b]in al, dx[/b]
Mov Value, AL
end;
wieso heißt es nicht
in dx,al
8. Frage
wie binde ich den Einlese-Code in mein Form ein? anders gefragt: wird die funktion automatisch beim öffnen ausgeführt oder muss ich sie noch durch ein ereignis (onclick) mit (z.B.) einem Button ausführen?
wieso verwendet man eine funktion und keine prozedur?
-----------------------------------------
ich weiß, das war viel. allerdings brauche ich im moment eure hilfe, da ich allein nicht weiter komme. schön, dass es hier menschen gibt, die ihr wissen gerne teilen und sich um nachkömmlinge kümmern.
danke!
Capable