FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour SMS - Envio de Mensajes - Peru
Posts: 467
Joined: Fri Dec 09, 2005 12:41 AM
SMS - Envio de Mensajes - Peru
Posted: Fri Feb 03, 2017 07:31 PM

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

Posts: 467
Joined: Fri Dec 09, 2005 12:41 AM
Re: SMS - Envio de Mensajes - Peru
Posted: Sun Feb 05, 2017 06:25 PM

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

Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: SMS - Envio de Mensajes - Peru
Posted: Sun Feb 05, 2017 07:13 PM

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... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: SMS - Envio de Mensajes - Peru
Posted: Sun Feb 05, 2017 10:27 PM
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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: SMS - Envio de Mensajes - Peru
Posted: Sun Feb 05, 2017 10:36 PM

Carlos, muy interesante
Has usado su API?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: SMS - Envio de Mensajes - Peru
Posted: Sun Feb 05, 2017 11:02 PM
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 (fw): Select all Collapse
// **********************************************************************
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)

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: SMS - Envio de Mensajes - Peru
Posted: Sun Feb 05, 2017 11:12 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 467
Joined: Fri Dec 09, 2005 12:41 AM
Re: SMS - Envio de Mensajes - Peru
Posted: Mon Feb 06, 2017 03:16 PM

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 !!!

Continue the discussion