FoxPro/Visual FoxPro - API que lea serial port

¿Conoce alguien de un API que me permita desde el Visual Fox leer un puerto serial?

Agradezco cualquier otra sugerencia, pero lo ideal sería un API.

Muchas gracias por la ayuda que me puedan dar.

la funcion es esta:
Function LeerPuertoSerial()
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
EndFunc

hola que tal!!!


bueno a demas de lo anterior funcion
hay un ocx que maneja los puertos es el "mscomm32.ocx"
si deseas obtener un ejemplo y sus propiedades enviame un e-mails a [email protected]

victor manuel