Immer mal wieder Schnittstellen

[saschab]

Hi,
ok das wars so war der Code :

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;

Um das Problem mit dem Zugriff unter NT-XP zu lösen nehmt den Anhang.