Delphi - Programa para hacer funcionar motores PaP

Mi problema consiste en el sgte:
* Necesito hacer funcionar un motor PaP
* Que gire 2 pulsos hacia un sentido, y 3 giros hacia el otro sentido.
*Información de como manejar el puerto paralelo, para realizar el mi laboratorio.
* y el programa de dicho laboratorio

sin nada más que decir adios
saludos Chris..

Hola Cristian
No tengo idea de la interface que tenes conectada al puerto para hacer funcionar el motor pero supongo la habras diseñado vos será una placa de la cual conoces la manera de operar.

Si lo que te interesa en como enviar datos al puerto tenes un procedimento y una funcion simples que te permiten leer y escribir en un puerto, las he usado hace tiempo para cosas similares sin problemas.

procedure SetPort(address, value: Word);
var
bValue: Byte;
begin
bValue := trunc(value and 255);
asm
mov DX, address
mov AL, bValue
out DX, AL
end;
end;

function GetPort(address: Word): Word;
var
bValue: Byte;
begin
asm
mov DX, address
in AL, DX
mov bValue, AL
end;
result := bValue;
end;

Sino creo que el componente Asinc32 tambien te permite trabajar con el puerto paralelo de una forma mas simple.

Saludos