Foros Club Delphi - Técnica Básica de acceso a puertos en XP

-----------------------------------------------------------------
Nota:
Esta mini guía está orientada al uso del Puerto Paralelo desde Delphi
-----------------------------------------------------------------

La problemática surge, con la llegada de sistemas operativos basados en Windows NT donde la premisa fundamental es una cuestión de Seguridad.
Sabemos que un programa (y no escapan a éstos los que realizamos con Delphi) en sistemas operativos como XP, se ejecutan en modo Kernel o en modo Usuario, siendo este último el que nos compete. En el modo Kernel, es posible lograr un control sobre los periféricos mediante el diálogo entre la aplicación y su controlador (driver), ya que dicho modo, supone un acceso directo a recursos del sistema. Pero en el modo Usuario, por una cuestión muy simple, la seguridad, esto no nos es posible, por lo que dependeremos para acceder a un periférico de un controlador que corra sobre el modo Kernel, ya que en modo Usuario, tenemos si al menos acceso a los drivers.
Nos bastará con emplear un driver que este corriendo en nuestro Kernel.
Anterior a la aparición de los sistemas basados en NT, podíamos (y aún podemos si los tenemos instalados o lo seguimos usando) acceder a los puertos directamente, ya que no eran instrucciones de privilegio del modo Kernel. Las rutinas clásicas que empleabamos eran las siguientes:

Código Delphi [-]procedure EscribePuerto(direccion:word;valor:byte);
begin
  asm
   mov dx,direccion
   mov AL,valor
   out DX,AL
  end;
end;

function LeePuerto(direccion:word):byte;
begin
  asm
   mov dx,direccion
   in al,dx
   mov Result,al
  end;
end;

En XP, podemos utilizar un driver, por ejemplo, podemos descargar http://www.logix4u.net/inpout32.htm (incluye un OCX y no ahorramosde distribuir la dll). Y hacer uso de dos funciones de esta librería estaticamente en nuestro programa:

Código Delphi [-]implementation 
function Inp32(wAddr:word):byte; stdcall; external 'inpout32.dll';
function Out32(wAddr:word;bOut:byte):byte; stdcall; external 'inpout32.dll';

Obviamente, para evitar excepciones, queda a criterio de cada uno de queforma cargar la librería en nuestra aplicación. Luego bien, su uso es muy básico y sensillo:

Código Delphi [-]....
byteLeido:byte;
begin
 //Enviar 8 al puerto $300
 Out32($300,8) //Puerto=$300 - byte=8
 //Leer el puerto $300
 byteLeido:=Inp32($300); //Puerto=$300 - byte=8end;
end;
....

La alternativa que opté yo en su momento, es importar el OCX desdeDelphi que se incluye en la descarga, THWinterface, ya que meolvido de tener que distribuir la dll en otro archivo. Espero que les ayude esta mini guía, y se animen a retocar ymodificar esos programas que les han dejado de funcionar en XPdebido a las Funciones de Privilegio.

Saludos