FoxPro/Visual FoxPro - necesito una funcion para abrir puerto serial , o

que funcion se use en vfp6 para e abrir el com1 , si es fopen (), me confirman y como debo escribir la funcion , y que funcion hace imprimir a traves del com1 , desde ya gracias

utiliza el MSCOMM32.OCX CONTIENE LAS PROPIEDADES DE LOS PUERTOS COM.
SI DESEAS UN EJEMPLO DE COMO UTILIZARLO ESCRIBEME AL [email protected]

Esta funcion te puede ayudar
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

Esta funcion te puede ayudar
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