Integración de Sistema de Mensajería en Visual FoxPro 6.0
La comunicación efectiva es un pilar esencial dentro de la operación de sistemas empresariales. Uno de los métodos más directos y eficientes de alcanzar a usuarios y clientes de manera inmediata es a través de mensajes de texto (SMS). Visual FoxPro 6.0, a pesar de que es una tecnología con varios años en el mercado, aún es empleada para el desarrollo y mantenimiento de numerosas aplicaciones de negocio. Agregar a estas aplicaciones la posibilidad de enviar SMS puede extender su funcionalidad y valor.
Configuración del Entorno en VFP para el Envío de SMS
Antes de proceder con la lógica de envío de SMS, es importante configurar adecuadamente el entorno de desarrollo. Se requiere de un módem GSM o similar, así como un servicio de mensajería que provea la API para enviar los mensajes. Una vez estos requisitos están listos, la comunicación con el módem se realiza a través de comandos AT, y Visual FoxPro 6.0 puede manejar esta comunicación usando su funcionalidad nativa para manipular puertos COM.
El siguiente fragmento de código muestra cómo inicializar un puerto COM en Visual FoxPro:
LOCAL lnHandle
lnHandle = FOPEN("COM1:9600,N,8,1", 0)
IF lnHandle < 0
= MESSAGEBOX("No se pudo abrir el puerto COM1", 0, "Error")
RETURN
ENDIF
FCLOSE(lnHandle)
En el código anterior, se abre el puerto COM1 con una velocidad de 9600 baudios, sin paridad, 8 bits de datos y 1 bit de parada. Es fundamental asegurarse de que los parámetros de comunicación coincidan con la configuración del módem para evitar problemas de conexión.
Envío de SMS Utilizando Comandos AT
A continuación, presentamos cómo se puede enviar un mensaje de texto utilizando los comandos AT desde Visual FoxPro. Este proceso consta de dos partes esenciales: la escritura del comando AT para mandar el SMS y su ejecución a través del puerto COM.
Aquí mostramos cómo redactar el comando AT correspondiente al envío de un SMS:
LOCAL lcComandoAT, lnComPort, lcMensaje, lcNumero
lcMensaje = "Tu mensaje aquí"
lcNumero = "NúmeroDestino" && Reemplaza con el número de teléfono destino.
lnComPort = FOPEN("COM1:9600,N,8,1", 0)
IF lnComPort < 0
= MESSAGEBOX("No se pudo abrir el puerto COM1", 0, "Error")
RETURN
ENDIF
lcComandoAT = "AT+CMGF=1" + CHR(13)
= FPUTS(lnComPort, lcComandoAT)
WAIT WINDOW "Configurando formato del mensaje..." TIMEOUT 2
lcComandoAT = "AT+CMGS=" + CHR(34) + lcNumero + CHR(34) + CHR(13)
= FPUTS(lnComPort, lcComandoAT)
lcComandoAT = lcMensaje + CHR(26)
= FPUTS(lnComPort, lcComandoAT)
WAIT WINDOW "Enviando mensaje..." TIMEOUT 2
FCLOSE(lnComPort)
En este bloque, se configura primero el módem para enviar mensajes en formato texto utilizando el comando “AT+CMGF=1”, luego se escribe el número de teléfono al que se desea enviar el mensaje y posteriormente el contenido del SMS, finalizando con la combinación de teclas CTRL+Z que se representa mediante CHR(26) para indicar el final del mensaje a enviar.