FiveTech Software tech support forums

Buenas Tardes con todos

Luego de una revisión en el Foro como enviar un SMS Mensaje de texto a un celular, la verdad no pude lograr nada en concreto.

1. Es posible enviar un SMS con FWH de preferencia gratuitamente o debe de ser un servicio pagado.

2. Alguien podría mostrar un ejemplo completo para Harbour, que librerías necesitamos. existe alguna Clase?


Muchas Gracias.

Lubin

Que tal Amigos,
Parece que el tema de SMS esta mas alla que complicado,,, Quizas otro medio será por Whatsaappp ??
Algun ejemplo completo y operativo ??

Gracias
Lubn

Para el envio de SMS normalmente se contrata el servicio de la empresa que los gestiona, ellos te diran cuales son los datos que necesitas enviarles para la gestion de envio masivo de SMS, recientemente lei un tema sobre envio de SMS aca en el foro, no recuerdo si en ingles o español, coloca en el buscador ENVIO SMS y mas seguro te dara los link relacionados al tema y por alli te puedes guiar, saludos...

lubin wrote:Que tal Amigos,
Parece que el tema de SMS esta mas alla que complicado,,, Quizas otro medio será por Whatsaappp ??
Algun ejemplo completo y operativo ??

Gracias
Lubn

En absoluto.
Hoy por hoy creo que está mucho más complicado el envío por Whatsapp.

Puedes provar con http://www.smsarena.es; te dan 25 mensajes gratis para probar.
He tardado 3 días (a ratos claro) en incluirlo en una aplicación.
Evidentemente es de pago, pero más barato que los SMS 'normales'.

Con el servicio que da http://www.smsarena.es puedes enviar mensajes SMS llamando una URL del estilo:
https://api.smsarena.es/http/sms.php?au ... 09&text=el mensajito SMS para mi amigo

Date de alta, es gratis y mira el manual, si yo pude tu también. Realmente es sencillo.

Seguro que hay más servicios del mismo estilo, a mi con este me va bien.

Carlos, muy interesante
Has usado su API?

cnavarro wrote:Carlos, muy interesante
Has usado su API?

No, no, no.
El secreto sólo está en montar la URL a enviar, luego la envías a internet explorer por ejemplo así:

Code: Select all  Expand view

// **********************************************************************
FUNCTION ConsultaWeb( cUrl )

/* Lanza una WWW desde Internet Explorer para obtener su resultado; no abre ninguna ventana.
   -------------------------------------------------------------------------------------- */

Local oExplorer := Nil
Local cResult   := ""

oExplorer := TOleAuto():New("InternetExplorer.Application")
oExplorer:Navigate( cUrl )
oExplorer:Visible:=.F. // IE invisible

// Las siguientes 4 lineas son para pausar la carga de una pagina, omitelas si no te son necesarias
//WaitSeconds(5) // deshabilito, no hace falta
WHILE oExplorer:Busy
    HB_IDLESLEEP(1)
ENDDO

// Guardamos en texto del resultado de la web
cResult := oExplorer:Document:Body:InnerText

// Estos métodos dan error.
//oExplorer:End()
//oExplorer:Destroy()

oExplorer := Nil

//IF "OK"$cResult
//ALERT("El envio del SMS fue un exito")
//ENDIF

Return cResult
// **********************************************************************
 

(Por cierto, esta función está sacada del foro)

A partir de ahí te puedes complicar la gestión hasta donde quieras. (que si controlo si ha ido bien, que si quiero que se envíe más tarde, que lo guardo en BB.DD, etc)

Por las explicaciones que habías dado en tu anterior post, imaginaba algo asi
Sólo te preguntaba el tema de las APIs por curiosidad

Gracias Jose y Carlos

Al menos no perderé la esperanza, voy a probar lo indicado
y espero los mejores resultados,,,

caso contrario,,,, estare de vuelta por aquí..

un saludo y una prospera semana para todos !!!