puerto paralelo

hector
10 de Noviembre del 2004
¿como puedo programar un puerto paralelo con delphi?
me gustaria recibir algo de codigo fuente sobre el tema y/o alguna pagina relacionada

ALMEGO
10 de Noviembre del 2004
Function InPort(PortAddr:Word): byte;
{$IFDEF WIN32}
assembler; stdcall;
asm
mov dx,PortAddr
in al,dx
end;
{$ELSE}
begin
Result:=Port[ PortAddr];
end;
{$ENDIF}

procedure OutPort(PortAddr:word; DataByte:byte);
{$IFDEF WIN32}
assembler; stdcall;
asm
mov al,DataByte
mov dx,PortAddr
out dx,al
end;
{$ELSE}
begin
Port[ PortAddr]:=dataByte;
end;
{$ENDIF}


Bueno la primera funcion InPort Lee el puerto y la segunda envia datos al puerto
no hay necesidad de definirlas solo copias el codigo despues del bloque implementation algo mas es que el puerto $378 para escribir y $379 para leer OutPort($378,5); y Inport($379); algo mas funciona en win 98, me y hay algo que no deja trabajar en xp estoy invetigando y luego te comento si tu encuentras algo por favor dimelo estoy haciendo un progarma para leer el puerto com3 del modem.