Leer Puerto Paralelo desde FoxPro

Que tal, expertos.
Me gustaría saber cómo leer el puerto paralelo desde Fox. He usado las funciones PortIn y GetPortBit pero ambas me devuelven un valor booleano (.T.). Esto mismo ya lo he hecho en VB y funciona correctamente. En FoxPro únicamente he podido enviar datos, pero no leerlos. Si me pudieran ayudar se los agradecería mucho.

1 Respuesta

Respuesta
1
Lo siguiente lo encontré en la webdelprogramador, como respuesto a una pregunta de como leer el puerto paralelo quizá te sirva.
**************
Bueno yo también tenia ese problema me votaba el v lor -1 pero como era en vfp5 genere el siguiente código:
set safety off
use prueba
zap
do while .t.
STORE FOPEN(´C:\WINDOWS\SYSTEM\LPT.VXD´) TO puerto
STORE FREAD(´C:\WINDOWS\SYSTEM\LPT.VXD´,254) TO MCAD
mcad2 = asc(mcad)
if MCAD2 > 0
appen blank
repla valor with mcad2
exit
else
loop
endif
enddo
CON EL CUAL SE HABRE EL ARCHIVO DEL CONTROLADOR DEL PUERTO Y ASI SE PUEDEN TOMAR LOS DATOS.
ESPERO HABERTE AYUDADO.
**************
Si revisas windows\system existe un archivo serie. Vxd.
Gracias por tu respuesta y perdona mi tardanza en finalizarla. Más bien, me refería a leer cada línea de entrada y no el puerto completo, pero de cualquier forma tu respuesta me fue de utilidad.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas