Cita:
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:
Código:
implementation
function Inp32(wAddr:word):byte; stdcall; external 'inpout32.dll';
function Out32(wAddr:word;bOut:byte):byte; stdcall; external 'inpout32.dll';
Código:
Enviar 65 al puerto 378 hexadecimal}
Out32($378,65);
{Leer del puerto 379 hexadecimal}
ShowMessage( 'Lectura del puerto $379:'+IntToStr(Inp32($379)) );
Saludos.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;