APrender sobre puertos seriales y paralelo

[[seoane]]

Esas funciones ¿te funcionan en Windows XP? a mi me sigue dando el error (Privileged instruction) ¿hay que hacer algún otro cambio? ¿instalar algún driver adicional?

[MaMu]

Empezado por seoane

Esas funciones ¿te funcionan en Windows XP? a mi me sigue dando el error (Privileged instruction) ¿hay que hacer algún otro cambio? ¿instalar algún driver adicional?

A mi me funcionan porque tengo cambiadas las directivas del sistema. Para utilizarlos sin problemas, te recomiendo que te armes y compiles la DLL con las funciones correspondientes, modificalas a gusto y despues me cuentas.

Por las dudas te dejo la DLL compilada, utilizarla es muy sencillo:

implementation

function Inp32(wAddr:word):byte; stdcall; external 'inpout32.dll';
function Out32(wAddr:word;bOut:byte):byte; stdcall; external 'inpout32.dll';

Enviar 65 al puerto 378 hexadecimal}
Out32($378,65);

{Leer del puerto 379 hexadecimal}
ShowMessage( 'Lectura del puerto $379:'+IntToStr(Inp32($379)) );

Saludos.

[[seoane]]

Entonces si que es necesario instalar un driver adicional para acceder a los puertos, y ya que el compilador de delphi no puede generar drivers, este tiene que estar creado con alguna otra herramienta diferente. Te preguntaba por curiosidad, no sabia de nadie que fuera capaz de acceder a los puertos sin utilizar drivers en XP y pensé que tu habías encontrado la forma. Por mi parte yo me conformo con la comunicación serie y los dos pines de salida que puedo manejar solo con funciones de la API.

[MaMu]

Si, entiendo el punto, quizas no me he expresado bien. Hasta donde yo se, siempre es necesario utilizar un driver para acceder a los puertos, ya que de forma nativa no se puede. Lo que se hace comunmente, es agregar el driver al programa y compilarlos juntos. Una libreria muy completa es la del PortTalk, a mi gusto, muy superior a inpout32.dll, y que tambien se encuentra el source por internet.

Saludos.