¿Cómo enviar un Txt al puerto Com1 en Visual Fox?
Hola verán he encontrado un código en esta web para abrir el Com1 y es el siguiente:
nPuerto = FOPEN("Com1",12)
IF nPuerto < 0
MESSAGEBOX('Imposible abrir el Puerto de Comunicación')
=FCLOSE(nPuerto)
RETURN .F.
ELSE
MESSAGEBOX('El COM1 esta abierto!')
gnEnd = FSEEK(nPuerto, 0, 2)
gnTop = FSEEK(nPuerto, 0)
IF gnEnd <= 0
MESSAGEBOX( 'Este archivo está vacío!')
= FCLOSE(nPuerto)&& Cierra el puerto.
Return .F.
ELSE
gcString = FGETS(nPuerto, gnEnd)
= FCLOSE(nPuerto)
WAIT WIND gcString
ENDIF
EndIf
Ahora mi pregunta es la siguiente yo en mi sistema genero un archivo de txt a la hora de hacer la factura pero necesito enviarle esos parámetros o que el puerto lea ese archivo de texto ahora que ya lo tengo abierto. Me podrían ayudar con esto por favor!