La Web del Programador: Comunidad de Programadores
 
    Pregunta:  4090 - PUERTO PARALELO
Autor:  Luis Guillermo Castillo Farfán
Buenas noches

Versión Delphi 4.0, estoy tratando de manipular el puerto paralelo pero hasta el momento no he encontrado la instrucción (s) que me permita enviar datos al puerto paralelo.

Le agradezco si me pueden colaborar, gracias de antemano.

  Respuesta:  Roberto Morales
lo mas facil es
.
.
.
asm
mov dx,0378h
mov al,11110000b
out dx,al
end;
0378 es el puerto, puede variar con respecto a cada maquina pero lo puedes ver en el panel de control(esta en hexadecimal)

el valor binario 11110000b es un valor binario, el cual indica cual pin encender(puedes modificarlo a tu gusto para encender los pines que desees), en este caso estoy encendiendo desde el pin 2 al pin 5, porque?, el pin 1 es el strob y el pin 18-25 son tierra, puedes probarlo conectando un led entre los pines 2-5 y cualquiera de las tierras.

  Respuesta:  José Luis Freire
Depende de lo que quieras no hacen falta componentes. Ya sabes que el puerto funciona como un fichero, solo tienes que asignarlo. Por ejemplo, para enviar a la impresora en paralelo:

procedure TForm1.Button1Click(Sender: TObject);
var
Impresora:TextFile;
begin
with printer do
begin
AssignPrn(Impresora);
Rewrite(Impresora);
WriteLn(Impresora,´Hola´);
CloseFile(Impresora)
end;
end;

  Respuesta:  Rafael Monterroza
Bueno, te cuento que en la internet existen muchísimos componentes que encapsulan el funcionamiento del puerto paralelo. Así que te recomiendo que vayas a algún sitio de la red donde se consigan componentes para delphi y bajes alguno. Por lo general se encuentran en las secciones de comunicaciones. Algunos sitios son:

www.softseek.com/programming/
www.clubdelphi.com
www.winfiles.com

otra manera es que te suscribas a los newsgroups de borland, a los ThirdParty tools de delphi.

el servidor de news de borland es newsgroups.borland.com

Espero encuentres tu componente.

Rafael.