Como sacar y leer datos por el puerto paralelo?

[m-o-s]

Hola compañeros, estoy empezando en este lenguaje y me gustaria empezar sacando datos por el puerto paralelo, alguien tiene alguna idea o ha hecho algo parecido, un saludo compañeros.

[mariano_pic]

Hola amigo puedes usar las siguientes funciones:

Código: [Seleccionar]

  procedure EscribePuerto(Direccion:word;valor:byte);
   begin
    asm
      mov dx,Direccion
      mov AL,valor
      out DX,AL
    end;
   end;


Código: [Seleccionar]

   function LeePuerto(Direccion:Word):Byte;
   begin
    asm
      mov dx,Direccion
      in al,dx
      mov Result,al
    end;
   end;

Ojo que windows Xp es fregado y no deja que lo manipulemos directamente, esto solo funciona en win95,98 y ME.
Si usas xp tienes que manejar una dll como inpout32.dll o un componente especialmente diseñado.
Un saludo.

[m-o-s]

gracias compañero , voy a probarlo, un saludo.

[gonzalo_asc]

Hola la verdad soy nuevo utilizando delphi y estoy con una idea que no he podido concluir.  Lo que quiero hacer es leer y sacar datos por el puerto serie, descargue un archivo (win32.dll) para manejarlo en win Xp pero no se donde poner esta carpeta para utilizar los comandos input y output, lo otro que quiero es generar una especie de reporte de los datos recibidos a una carpeta, ya vi algo parecido y se que es posible. si alguien me puede ayudar de antemano

muchas gracias.

[mariano_pic]

   Hola gonzalo_asc cual es esa win32.dll la busque y aparesen muchas no sera que te refieres a inpout32.dll?

   Y si es esa es para manejar el puerto paralelo no el serie. si es la que te digo solo tienes que copiar el dll en la misma carpeta donde esta tu ejecutable en en la carpeta c:\windows\system o system32 da igual.
 
  Lo de el reporte es con base de datos y para eso esta quikreport pero te tienes que leer un tutorial de eso.