Windows - lendo da paralela

Top  Previous  Next

conheco um modo acesso a porta paralela em delphi, nao sei se esta a melhor forma recomendada mas 

da para quebra um galho, pois os sistema deveria tomar conta de todos os dispositivos e nao 

deixar ninguem acessar para nao ocorrer conflito, se voce quiser arriscar aqui vai:

 

-------------------------------------------------------------------------------------------------

 

{Funcao de leitura}

 

 function LePorta(): Byte;

 var

   

    Valor   : Byte;

    Endereco: Word;

 

 begin

         asm

           mov         DX,Endereco        {p/ paralela Endereco = $378 (end 0378H)}

           in        AL,DX

           mov        Valor,AL

         end;

 

         LePorta := Valor;

 end;

 

 

{Procedimento de escrita}

 

 procedure EscrevePorta(Valor: Byte);

 var

 

    Endereco: Word;

 

 begin

         asm

           mov         DX,Endereco        {p/ paralela Endereco = $378 (end 0378h)}

           mov        AL,Valor

           out        DX,AL

         end;

 end;