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.
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.
Respuesta de squire
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.
**************
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.
