FoxPro/Visual FoxPro - Solución - PUERTO PARALELO en VFP

HOLA A TODOS MIS COLEGAS
Finalmente luego de andar y andar en busqueda del modo de acceder al puerto paralelo de la Pc en Visual FOXPRO encontré la librería que aparentemente resolvería todo: hwinterface.ocx

Si bien hace unos instantes he logrado subirla a mi proyecto para iniciar las pruebas quería que quede registrado este nombre dada la gran cantidad de colegas que vi en la Web con el mismo problema.

io.dll - inpout32.dll - mscomm32.dll > No me permitieron resolver la situación. Suerte a todos aquellos que tenga la misma necesidad, personal que yo en este momento. "Acceder a LEER y ESCRIBIR en el Puerto Paralelo con Visual Foxpro 9.0"

Si alguien tiene mas información acerca de como usarla: Funciones, ejemplos, etc. les agradecería que me lo hagan saber. Saludos para Todos mis colegas.

Gracias Humberto, aca te dejo una direccion para que le eches un vistazo, esta muy bueno, te lo recomiento...
http://www.todopic.com.ar/foros/index.php?topic=13280.0

Gracias Mauricio
Intente entrar en el Link, pero da error. Invita a ingresar mas tarde.

Vamos colegas !!! Agrenguen cosas QUE TODO SUMA.

El Link de Mauricio para que no de error es: http://www.todopic.com.ar/foros/index.php?topic=13280 (sin el Punto cero ".0" )

Vamos Colegas hay que patearle el trasero a Visual Basic. VFP también puede meterse con el PUERTO PARALELO.

Esta librería hwinterface.ocx tiene dos metodos InPort / OutPort

Inport
Lparameters address

Outport
Lparameters address, data

Es evidente que trabaja igual que io.dll como lo hace en visual basic 6.0 la cosa ahora es descubrir como debemos escribir en el cada uno de sus metodos para poder enviar y recibir los datos.

Alguien puede agregar algún comentario. TODO SIRVE, aunque parezca una burrada TODO comentario sirve. Dios queria que la solución puedas salir de este foro de buena gente.

DONDE puedo descargar la libreria hwinterface.ocx o ya la trae Visual Fox, para pegarla en System de mi pc

Si pudieran compartir el link o enlace de descarga de la libreria que les digo.

Por favor decirme lo más pronto posible :)

Bueno a TODOS mis COLEGAS

Efectivamente esta es la librería (OCX) Justa para trabajar con el Puerto Paralelo con nuestro siempre bien ponderado Visual FoxPro.

La Estrella del Puerto Paralelo para VFP es *** hwinterface.ocx ***

Init del Formulario
! regsvr32 hwinterface.ocx

CommandButton1 - Presiono el botón y enciede el Led Nr. 2 del Puerto
ThisForm.Olecontrol1.Outport(0x378,2)

Apartir de este momento, al presionar el botón veras como se ENCIENDE el LED

Nota aclaratoria
Led 1=> 0x378,1
Led 2=> 0x378,2
Led 3=> 0x378,4
Led 4=> 0x378,8
Led 5=> 0x378,16
Led 6=> 0x378,32
Led 7=> 0x378,64
Led 8=> 0x378,128

Todos Juntos
ThisForm.Olecontrol1.Outport(0x378,255)

Apagar todos
ThisForm.Olecontrol1.Outport(0x378,0)

Mucha Suerte a todos los que a partir de esta Ocx quieran

>Trabajar en Domotica
>Abrir un cajon de una registradora
>O todo aquello que tenga que ver con un Relee
>Juego recibiendo señal de tu joistick
Y TODO AQUELLO QUE LLEVE LA VINCULACIÓN DEL PUERTO PARALELO CON NUESTRO SISTEMA.

MUCHA SUERTE PARA TODOS y DISFRUTENLO, como yo en este momento.

Un Gran Abrazo para todos desde Gualeguaychu, E. Ríos - ARGENTINA

Gracias Humberto por el aporte!!
Saludos desde Machala - Ecuador!!

No, No, No.. Nada de saludos Veni a la Argentina y Dame un ABRAZO. Ja, ja, ja

Fernando.
No logro todavía deglosar el byte en ESCRITURA DEL PUERTO.
Lo hice igual que en Vbasic 6.0 con la IO.DLL, pero no da resultado alguno todavía
Solo me devuelve 888, pero nada mas.

Si descubris como escribir con un SWITCH en el puerto por favor hacenos saber. Muchas Gracias.

Solo falta eso que también es tan importante como mandar datos al puerto.

VAMOS CHICOS, AGREGUEN AL TEMA POR FAVOR SUMENSE

estaba leyendo el tema que esta mas que interesante, pero vos haces mencion de leds, me gustaria que comentes como conectaste los leds? cirtcuito o algo ya que me quede con la intriga, o me perdi en algun punto :-)
Desde ya mil gracias

Esa fue la solución para mi reto de un sistema de peaje que levanta las barreras automaticamente al cobrar en la case de peaje.

Gracias por la solucion

Se que el post es muy antiguo, pero tengo un problema que no he podido solucionar con el programa.
Tengo botones para encender los led o reles según sea el caso, el problema es que por ejemplo si enciendo el led 1, al presionar para encender en led 2 el primero se apaga y así con todos, no logro dejar encendido más que 1 o todos con un botón que tengo con esa instrucción

para activar el led 1, lo hago así.

ThisForm.Olecontrol1.Outport(0x378,1) en el click

el led 2

ThisForm.Olecontrol1.Outport(0x378,2) en el click

y así para abajo.