hallo flomei,
möchte mit einem Source Code von dir den Parallelport ansteuern....
Delphi-Quellcode:
procedure PortOut(x:byte);
begin
asm //erklärt dem Compiler, dass Assembler Code anfängt
mov dx,378h
//378h ist die Adresse von LPT 1
mov al,x
//x müssen wir noch einen Wert zuweisen
out dx,al
end;
end;
Source:
procedure TEureForm.ZBButtonClick(Sender: TObject);
assembler;
begin
port(1);
//hier weisen wir x einen Wert zu (siehe Tabelle unten)
end;
Das Problem ist, bei mir kommt bei " port(1) " immer die Fehlermeldung;
Operator oder Semikolon fehlt.
Kannst du mir evtl. sagen, was ich falsch gemacht habe?!?
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]