Howto. Envios de SMS a traves de Internet.

[rafa]

Me encargaron de buscar una solución para el enví­o de SMS.
En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
momentito hice esto, por si tenéis la necesidad de implementar algo similar.
La clase TSMS esta codificada para trabajar directamente con Harbour,
he obviado las property etc.. que nos provee Xailer, para que pueda
ser usado por más gente.
Para poder hacerlo servir podéis simplemente ir a la web y pedir
información para implementar el sistema, el cual os darán las claves
para usarlo temporalmente, entonces, solamente tenéis que rellenar 3 campos.
METHOD FormCreate( oSender ) CLASS TForm1
WITH OBJECT ::oSms := TSms():Create()
:domainId := "ejemplo"
:login := "rafa"
:passwd := "pass"
END
RETURN Nil
La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
tienes en el móvil.
El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
Saludos
Rafa Carmona
Nota:
Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
bien que va y lo rápido que uno hace las cosas.
Este es otra granito de arena a esta fantástica herramienta.
--

[Rene Flores]

rafa:
Te pasa lo que a mí­ que tenemos mucho tiempo libre y nos aburrimos
mucho!!!! jajaja
Saludos
Rene Flores
http://www.ciber-tec.com
escribió:
> Me encargaron de buscar una solución para el enví­o de SMS.
>
> En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
>
> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
> momentito hice esto, por si tenéis la necesidad de implementar algo similar.
>
> La clase TSMS esta codificada para trabajar directamente con Harbour,
> he obviado las property etc.. que nos provee Xailer, para que pueda
> ser usado por más gente.
>
> Para poder hacerlo servir podéis simplemente ir a la web y pedir
> información para implementar el sistema, el cual os darán las claves
> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3 campos.
>
> METHOD FormCreate( oSender ) CLASS TForm1
>
> WITH OBJECT ::oSms := TSms():Create()
> :domainId := "ejemplo"
> :login := "rafa"
> :passwd := "pass"
> END
>
> RETURN Nil
>
> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
> tienes en el móvil.
>
> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>
> Saludos
> Rafa Carmona
>
> Nota:
> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
> bien que va y lo rápido que uno hace las cosas.
> Este es otra granito de arena a esta fantástica herramienta.
>

[ignacio]

Rafa,
Estupenda contribución. Con tu permiso lo he subido al Wiki de Xailer
(http://xailer.info/wiki).
Un saludo
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Me encargaron de buscar una solución para el envío de SMS.
>
> En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
>
> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
> momentito hice esto, por si tenéis la necesidad de implementar algo
> similar.
>
> La clase TSMS esta codificada para trabajar directamente con Harbour,
> he obviado las property etc.. que nos provee Xailer, para que pueda
> ser usado por más gente.
>
> Para poder hacerlo servir podéis simplemente ir a la web y pedir
> información para implementar el sistema, el cual os darán las claves
> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
> campos.
>
> METHOD FormCreate( oSender ) CLASS TForm1
>
> WITH OBJECT ::oSms := TSms():Create()
> :domainId := "ejemplo"
> :login := "rafa"
> :passwd := "pass"
> END
>
> RETURN Nil
>
> La verdad es que es rapidísimo, es darle a enviar, y a los 2 segundos lo
> tienes en el móvil.
>
> El para que usarlo, solamente vuestra imaginación será vuestro límite
>
> Saludos
> Rafa Carmona
>
> Nota:
> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
> ayuda, el sistema, etc... sinceramente, yo todavía estoy alucinado lo
> bien que va y lo rápido que uno hace las cosas.
> Este es otra granito de arena a esta fantástica herramienta.
>
>

[jasm.quitaesto]

Hola,
Genial idea.
Al compilar me dice que no encuentra samples.lib, si lo quito de las
librerias me da un error de compilacion de .res.
Saludos
Alf+.
rafa escribió:
> Me encargaron de buscar una solución para el enví­o de SMS.
>
> En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
>
> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
> momentito hice esto, por si tenéis la necesidad de implementar algo similar.
>
> La clase TSMS esta codificada para trabajar directamente con Harbour,
> he obviado las property etc.. que nos provee Xailer, para que pueda
> ser usado por más gente.
>
> Para poder hacerlo servir podéis simplemente ir a la web y pedir
> información para implementar el sistema, el cual os darán las claves
> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3 campos.
>
> METHOD FormCreate( oSender ) CLASS TForm1
>
> WITH OBJECT ::oSms := TSms():Create()
> :domainId := "ejemplo"
> :login := "rafa"
> :passwd := "pass"
> END
>
> RETURN Nil
>
> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
> tienes en el móvil.
>
> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>
> Saludos
> Rafa Carmona
>
> Nota:
> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
> bien que va y lo rápido que uno hace las cosas.
> Este es otra granito de arena a esta fantástica herramienta.
>

[Jose Lopez Carrasco]

Jose A.,
Lo que ocurre es que esta creada con la version 2.0 de xailer. Quitale
xailer.res
;-})
Un saludo
Pepe.
"José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
mensaje news:4a26bd18$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola,
>
> Genial idea.
>
> Al compilar me dice que no encuentra samples.lib, si lo quito de las
> librerias me da un error de compilacion de .res.
>
> Saludos
>
> Alf+.
>
>
> rafa escribió:
>> Me encargaron de buscar una solución para el envío de SMS.
>>
>> En un rato encontré un sitio que me ha parecido muy bueno,
>> www.altiria.com
>>
>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>> momentito hice esto, por si tenéis la necesidad de implementar algo
>> similar.
>>
>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>> he obviado las property etc.. que nos provee Xailer, para que pueda
>> ser usado por más gente.
>>
>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>> información para implementar el sistema, el cual os darán las claves
>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>> campos.
>>
>> METHOD FormCreate( oSender ) CLASS TForm1
>>
>> WITH OBJECT ::oSms := TSms():Create()
>> :domainId := "ejemplo"
>> :login := "rafa"
>> :passwd := "pass"
>> END
>>
>> RETURN Nil
>>
>> La verdad es que es rapidísimo, es darle a enviar, y a los 2 segundos lo
>> tienes en el móvil.
>>
>> El para que usarlo, solamente vuestra imaginación será vuestro límite
>>
>> Saludos
>> Rafa Carmona
>>
>> Nota:
>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>> ayuda, el sistema, etc... sinceramente, yo todavía estoy alucinado lo
>> bien que va y lo rápido que uno hace las cosas.
>> Este es otra granito de arena a esta fantástica herramienta.
>>

[jasm.quitaesto]

Si quito samples.lib y xailer.res me da otro problema.
Jose Lopez Carrasco escribió:
> Jose A.,
> Lo que ocurre es que esta creada con la version 2.0 de xailer. Quitale
> xailer.res
>
> ;-})
> Un saludo
> Pepe.
>
>
> "José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
> mensaje news:4a26bd18$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hola,
>>
>> Genial idea.
>>
>> Al compilar me dice que no encuentra samples.lib, si lo quito de las
>> librerias me da un error de compilacion de .res.
>>
>> Saludos
>>
>> Alf+.
>>
>>
>> rafa escribió:
>>> Me encargaron de buscar una solución para el enví­o de SMS.
>>>
>>> En un rato encontré un sitio que me ha parecido muy bueno,
>>> www.altiria.com
>>>
>>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>>> momentito hice esto, por si tenéis la necesidad de implementar algo
>>> similar.
>>>
>>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>>> he obviado las property etc.. que nos provee Xailer, para que pueda
>>> ser usado por más gente.
>>>
>>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>>> información para implementar el sistema, el cual os darán las claves
>>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>>> campos.
>>>
>>> METHOD FormCreate( oSender ) CLASS TForm1
>>>
>>> WITH OBJECT ::oSms := TSms():Create()
>>> :domainId := "ejemplo"
>>> :login := "rafa"
>>> :passwd := "pass"
>>> END
>>>
>>> RETURN Nil
>>>
>>> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
>>> tienes en el móvil.
>>>
>>> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>>>
>>> Saludos
>>> Rafa Carmona
>>>
>>> Nota:
>>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>>> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
>>> bien que va y lo rápido que uno hace las cosas.
>>> Este es otra granito de arena a esta fantástica herramienta.
>>>
>
>

[jasm.quitaesto]

Actualizada la 2.0 y compila bien.
¿Por que no va con la 1.98?
Saludos
Alf+.
José Alfonso Suárez Moreno escribió:
> Hola,
>
> Genial idea.
>
> Al compilar me dice que no encuentra samples.lib, si lo quito de las
> librerias me da un error de compilacion de .res.
>
> Saludos
>
> Alf+.
>
>
> rafa escribió:
>> Me encargaron de buscar una solución para el enví­o de SMS.
>>
>> En un rato encontré un sitio que me ha parecido muy bueno,
>> www.altiria.com
>>
>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>> momentito hice esto, por si tenéis la necesidad de implementar algo
>> similar.
>>
>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>> he obviado las property etc.. que nos provee Xailer, para que pueda
>> ser usado por más gente.
>>
>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>> información para implementar el sistema, el cual os darán las claves
>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>> campos.
>>
>> METHOD FormCreate( oSender ) CLASS TForm1
>>
>> WITH OBJECT ::oSms := TSms():Create()
>> :domainId := "ejemplo"
>> :login := "rafa"
>> :passwd := "pass"
>> END
>>
>> RETURN Nil
>>
>> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
>> tienes en el móvil.
>>
>> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>>
>> Saludos
>> Rafa Carmona
>>
>> Nota:
>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
>> bien que va y lo rápido que uno hace las cosas.
>> Este es otra granito de arena a esta fantástica herramienta.
>>

[Jose Lopez Carrasco]

Jose A.
Yo lo he reconstruido con la version 1.98 quitandole sample.lib y
xailer.res y me genera el ejecutable sin problemas.
Pepe.
"José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
mensaje news:4a26ca52$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Actualizada la 2.0 y compila bien.
> ¿Por que no va con la 1.98?
>
> Saludos
>
> Alf+.
>
>
> José Alfonso Suárez Moreno escribió:
>> Hola,
>>
>> Genial idea.
>>
>> Al compilar me dice que no encuentra samples.lib, si lo quito de las
>> librerias me da un error de compilacion de .res.
>>
>> Saludos
>>
>> Alf+.
>>
>>
>> rafa escribió:
>>> Me encargaron de buscar una solución para el envío de SMS.
>>>
>>> En un rato encontré un sitio que me ha parecido muy bueno,
>>> www.altiria.com
>>>
>>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>>> momentito hice esto, por si tenéis la necesidad de implementar algo
>>> similar.
>>>
>>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>>> he obviado las property etc.. que nos provee Xailer, para que pueda
>>> ser usado por más gente.
>>>
>>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>>> información para implementar el sistema, el cual os darán las claves
>>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>>> campos.
>>>
>>> METHOD FormCreate( oSender ) CLASS TForm1
>>>
>>> WITH OBJECT ::oSms := TSms():Create()
>>> :domainId := "ejemplo"
>>> :login := "rafa"
>>> :passwd := "pass"
>>> END
>>>
>>> RETURN Nil
>>>
>>> La verdad es que es rapidísimo, es darle a enviar, y a los 2 segundos lo
>>> tienes en el móvil.
>>>
>>> El para que usarlo, solamente vuestra imaginación será vuestro límite
>>>
>>>
>>> Saludos
>>> Rafa Carmona
>>>
>>> Nota:
>>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>>> ayuda, el sistema, etc... sinceramente, yo todavía estoy alucinado lo
>>> bien que va y lo rápido que uno hace las cosas.
>>> Este es otra granito de arena a esta fantástica herramienta.
>>>

[jasm.quitaesto]

Rafa,
Un gran trabajo. Y con estos de altitia todo muy fácil para hacer pruebas.
Saludos
Alf+.
rafa escribió:
> Me encargaron de buscar una solución para el enví­o de SMS.
>
> En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
>
> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
> momentito hice esto, por si tenéis la necesidad de implementar algo similar.
>
> La clase TSMS esta codificada para trabajar directamente con Harbour,
> he obviado las property etc.. que nos provee Xailer, para que pueda
> ser usado por más gente.
>
> Para poder hacerlo servir podéis simplemente ir a la web y pedir
> información para implementar el sistema, el cual os darán las claves
> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3 campos.
>
> METHOD FormCreate( oSender ) CLASS TForm1
>
> WITH OBJECT ::oSms := TSms():Create()
> :domainId := "ejemplo"
> :login := "rafa"
> :passwd := "pass"
> END
>
> RETURN Nil
>
> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
> tienes en el móvil.
>
> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>
> Saludos
> Rafa Carmona
>
> Nota:
> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
> bien que va y lo rápido que uno hace las cosas.
> Este es otra granito de arena a esta fantástica herramienta.
>

[rafa]

Estupendo!
Por cierto, serí­a interesante también subir uno que dejo por aqui sobre
los servicios que corren en Windows.
Lamentablemente, no se donde esta ;-( ( Lo ando buscando, pero no lo
encuentro )
Saludos
Rafa Carmona

[Xevi]

Rafa,
A ver si fué este que adjunto...
Lo tengo anexado a mis proyectos...
Un Saludo,
Xevi.
"rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
news:4a27ad80$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Estupendo!
> Por cierto, sería interesante también subir uno que dejo por aqui sobre
> los servicios que corren en Windows.
>
> Lamentablemente, no se donde esta ;-( ( Lo ando buscando, pero no lo
> encuentro )
>
> Saludos
> Rafa Carmona


Attached files Tareas.zip (2.4 KB)Â

[rafa]

No, eso no es mio, el que digo era un RichEdit donde mostraba los
estados de los servicios en el sistema, etc.. a traves del WMI.
Saludos
Rafa Carmona

[Xevi]

Rafa,
buscando tu post...
miércoles, 23 de julio de 2008 13:50
Información sobre servicios.
>Bueno, os dejo mi primer intento de jugar un poco con Xailer.
>Actualmente he tenido que pelearme con el mundo de los servicios de
>Windows.
>Aqui os dejo el proyecto para averiguar cosas sobre los servicios,
>es una cosa pequeña pero bastante útil
>Saludos
>Rafa Carmona
Un Saludo,
Xevi.
"rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
news:4a27da22$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> No, eso no es mio, el que digo era un RichEdit donde mostraba los
> estados de los servicios en el sistema, etc.. a traves del WMI.
>
> Saludos
> Rafa Carmona


Attached files servicios.zip (3 KB)Â

[rafa]

Correcto! Thanks! Pero esto no es lo mismo que las tareas que habias
dejado... ¿?
Saludos
Rafa Carmona

[ignacio]

Rafa,
Subido al Wiki. Muchísimas gracias.
Un saludo
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
news:4a27fda2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Correcto! Thanks! Pero esto no es lo mismo que las tareas que habias
> dejado... ¿?
>
> Saludos
> Rafa Carmona
>

[Xevi]

Rafa,
Hoy disponía de un rato y me he puesto a "jugar" con tu estupendo aporte.
He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
así podemos comparar y/o escoger entre mas de un proveedor de servicios SMSs
Un Saludo,
Xevi.
"rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Me encargaron de buscar una solución para el envío de SMS.
>
> En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
>
> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
> momentito hice esto, por si tenéis la necesidad de implementar algo
> similar.
>
> La clase TSMS esta codificada para trabajar directamente con Harbour,
> he obviado las property etc.. que nos provee Xailer, para que pueda
> ser usado por más gente.
>
> Para poder hacerlo servir podéis simplemente ir a la web y pedir
> información para implementar el sistema, el cual os darán las claves
> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
> campos.
>
> METHOD FormCreate( oSender ) CLASS TForm1
>
> WITH OBJECT ::oSms := TSms():Create()
> :domainId := "ejemplo"
> :login := "rafa"
> :passwd := "pass"
> END
>
> RETURN Nil
>
> La verdad es que es rapidísimo, es darle a enviar, y a los 2 segundos lo
> tienes en el móvil.
>
> El para que usarlo, solamente vuestra imaginación será vuestro límite
>
> Saludos
> Rafa Carmona
>
> Nota:
> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
> ayuda, el sistema, etc... sinceramente, yo todavía estoy alucinado lo
> bien que va y lo rápido que uno hace las cosas.
> Este es otra granito de arena a esta fantástica herramienta.
>
>


Attached files tsms.prg (8.1 KB)Â

[rafa]

Xevi escribió:
> Rafa,
>
> Hoy disponí­a de un rato y me he puesto a "jugar" con tu estupendo aporte.
> He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
> así­ podemos comparar y/o escoger entre mas de un proveedor de servicios SMSs
>
>
Ey! Estupendo!
Es maravilloso ver como el trabajo de uno es transformado y mejorado por
los demás.
Muchas gracias!
Saludos
Rafa Carmona

[Bingen Ugaldebere]

Una gran opción, he trabajado con Mensario hasta ahora y es muy bueno,
fiable y rapidí­simo, trabajando desde su aplicación, si ahora se puewde
hacer desde Xailer 1000 veces mejor.
Gracias por el aporte.
Xevi escribió:
> Rafa,
>
> Hoy disponí­a de un rato y me he puesto a "jugar" con tu estupendo aporte.
> He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
> así­ podemos comparar y/o escoger entre mas de un proveedor de servicios SMSs
>
>
> Un Saludo,
> Xevi.
>
>
> "rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
> news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Me encargaron de buscar una solución para el enví­o de SMS.
>>
>> En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
>>
>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>> momentito hice esto, por si tenéis la necesidad de implementar algo
>> similar.
>>
>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>> he obviado las property etc.. que nos provee Xailer, para que pueda
>> ser usado por más gente.
>>
>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>> información para implementar el sistema, el cual os darán las claves
>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>> campos.
>>
>> METHOD FormCreate( oSender ) CLASS TForm1
>>
>> WITH OBJECT ::oSms := TSms():Create()
>> :domainId := "ejemplo"
>> :login := "rafa"
>> :passwd := "pass"
>> END
>>
>> RETURN Nil
>>
>> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
>> tienes en el móvil.
>>
>> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>>
>> Saludos
>> Rafa Carmona
>>
>> Nota:
>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
>> bien que va y lo rápido que uno hace las cosas.
>> Este es otra granito de arena a esta fantástica herramienta.
>>
>>
>
>

[jasm.quitaesto]

Xevi,
Esoy probando lo que hiciste para Mensario y la consulta de saldo la
hace bien pero el envio del SMS da un error de sintaxis. He mirado y
remirado con la documentacion de Mansario y todo esta aparentemente bien
¿puede comprobarlo? Con Altiria funciona correctamente.
Saludos
Alf+.
Xevi escribió:
> Rafa,
>
> Hoy disponí­a de un rato y me he puesto a "jugar" con tu estupendo aporte.
> He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
> así­ podemos comparar y/o escoger entre mas de un proveedor de servicios SMSs
>
>
> Un Saludo,
> Xevi.
>
>
> "rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
> news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Me encargaron de buscar una solución para el enví­o de SMS.
>>
>> En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
>>
>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>> momentito hice esto, por si tenéis la necesidad de implementar algo
>> similar.
>>
>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>> he obviado las property etc.. que nos provee Xailer, para que pueda
>> ser usado por más gente.
>>
>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>> información para implementar el sistema, el cual os darán las claves
>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>> campos.
>>
>> METHOD FormCreate( oSender ) CLASS TForm1
>>
>> WITH OBJECT ::oSms := TSms():Create()
>> :domainId := "ejemplo"
>> :login := "rafa"
>> :passwd := "pass"
>> END
>>
>> RETURN Nil
>>
>> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
>> tienes en el móvil.
>>
>> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>>
>> Saludos
>> Rafa Carmona
>>
>> Nota:
>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
>> bien que va y lo rápido que uno hace las cosas.
>> Este es otra granito de arena a esta fantástica herramienta.
>>
>>
>
>

[Xevi]

Alf+
Estoy utilizando la clase tal cual he colgado en este post y me está
funcionando correctamente.
Ahora mismo no tengo saldo de Mensario para hacer mas pruebas, pero en su
día te puedo asegurar que funcionó.
Si puedes darme alguna pista mas del error que te da...
Un Saludo,
Xevi.
"José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
mensaje news:4a4cef04$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Xevi,
>
> Esoy probando lo que hiciste para Mensario y la consulta de saldo la hace
> bien pero el envio del SMS da un error de sintaxis. He mirado y remirado
> con la documentacion de Mansario y todo esta aparentemente bien ¿puede
> comprobarlo? Con Altiria funciona correctamente.
>
> Saludos
>
> Alf+.
>
>
> Xevi escribió:
>> Rafa,
>>
>> Hoy disponía de un rato y me he puesto a "jugar" con tu estupendo aporte.
>> He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
>> así podemos comparar y/o escoger entre mas de un proveedor de servicios
>> SMSs
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
>> news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Me encargaron de buscar una solución para el envío de SMS.
>>>
>>> En un rato encontré un sitio que me ha parecido muy bueno,
>>> www.altiria.com
>>>
>>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>>> momentito hice esto, por si tenéis la necesidad de implementar algo
>>> similar.
>>>
>>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>>> he obviado las property etc.. que nos provee Xailer, para que pueda
>>> ser usado por más gente.
>>>
>>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>>> información para implementar el sistema, el cual os darán las claves
>>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>>> campos.
>>>
>>> METHOD FormCreate( oSender ) CLASS TForm1
>>>
>>> WITH OBJECT ::oSms := TSms():Create()
>>> :domainId := "ejemplo"
>>> :login := "rafa"
>>> :passwd := "pass"
>>> END
>>>
>>> RETURN Nil
>>>
>>> La verdad es que es rapidísimo, es darle a enviar, y a los 2 segundos lo
>>> tienes en el móvil.
>>>
>>> El para que usarlo, solamente vuestra imaginación será vuestro límite
>>>
>>>
>>> Saludos
>>> Rafa Carmona
>>>
>>> Nota:
>>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>>> ayuda, el sistema, etc... sinceramente, yo todavía estoy alucinado lo
>>> bien que va y lo rápido que uno hace las cosas.
>>> Este es otra granito de arena a esta fantástica herramienta.
>>>
>>>
>>

[jasm.quitaesto]

Xevi,
Solucionado.
El tema esta en que para el de Rafa hay que incluir el prefijo del paí­s
(+34) en cada numero de la lista de destinos y para el tuyo lo metes fijo.
Gracias.
Saludos
Alf+.
Xevi escribió:
> Alf+
>
> Estoy utilizando la clase tal cual he colgado en este post y me está
> funcionando correctamente.
> Ahora mismo no tengo saldo de Mensario para hacer mas pruebas, pero en su
> dí­a te puedo asegurar que funcionó.
> Si puedes darme alguna pista mas del error que te da...
>
>
> Un Saludo,
> Xevi.
>
>
> "José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
> mensaje news:4a4cef04$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Xevi,
>>
>> Esoy probando lo que hiciste para Mensario y la consulta de saldo la hace
>> bien pero el envio del SMS da un error de sintaxis. He mirado y remirado
>> con la documentacion de Mansario y todo esta aparentemente bien ¿puede
>> comprobarlo? Con Altiria funciona correctamente.
>>
>> Saludos
>>
>> Alf+.
>>
>>
>> Xevi escribió:
>>> Rafa,
>>>
>>> Hoy disponí­a de un rato y me he puesto a "jugar" con tu estupendo aporte.
>>> He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
>>> así­ podemos comparar y/o escoger entre mas de un proveedor de servicios
>>> SMSs
>>>
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>> "rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
>>> news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Me encargaron de buscar una solución para el enví­o de SMS.
>>>>
>>>> En un rato encontré un sitio que me ha parecido muy bueno,
>>>> www.altiria.com
>>>>
>>>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>>>> momentito hice esto, por si tenéis la necesidad de implementar algo
>>>> similar.
>>>>
>>>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>>>> he obviado las property etc.. que nos provee Xailer, para que pueda
>>>> ser usado por más gente.
>>>>
>>>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>>>> información para implementar el sistema, el cual os darán las claves
>>>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>>>> campos.
>>>>
>>>> METHOD FormCreate( oSender ) CLASS TForm1
>>>>
>>>> WITH OBJECT ::oSms := TSms():Create()
>>>> :domainId := "ejemplo"
>>>> :login := "rafa"
>>>> :passwd := "pass"
>>>> END
>>>>
>>>> RETURN Nil
>>>>
>>>> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
>>>> tienes en el móvil.
>>>>
>>>> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>>>>
>>>>
>>>> Saludos
>>>> Rafa Carmona
>>>>
>>>> Nota:
>>>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>>>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>>>> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
>>>> bien que va y lo rápido que uno hace las cosas.
>>>> Este es otra granito de arena a esta fantástica herramienta.
>>>>
>>>>
>

[Juan Jose Zamora San]

Estoy haciendo pruebas con el proveedor de Mesario, pero me da un error
de autentificación, en concreto retorna este error:
01020000 20 AUTENTIFICACION NEGATIVA
La autentificacion ha fallado. Compruebe que ha escrito bien sus datos
de identificacion, y si el problema persiste, contacte con su proveedor.
Sabeis si ha cambiado algo en Mesario? Sigue funcionando con este proveedor?
Gracias
Xevi escribió:
> Rafa,
>
> Hoy disponí­a de un rato y me he puesto a "jugar" con tu estupendo aporte.
> He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
> así­ podemos comparar y/o escoger entre mas de un proveedor de servicios SMSs
>
>
> Un Saludo,
> Xevi.
>
>
> "rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
> news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Me encargaron de buscar una solución para el enví­o de SMS.
>>
>> En un rato encontré un sitio que me ha parecido muy bueno, www.altiria.com
>>
>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>> momentito hice esto, por si tenéis la necesidad de implementar algo
>> similar.
>>
>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>> he obviado las property etc.. que nos provee Xailer, para que pueda
>> ser usado por más gente.
>>
>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>> información para implementar el sistema, el cual os darán las claves
>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>> campos.
>>
>> METHOD FormCreate( oSender ) CLASS TForm1
>>
>> WITH OBJECT ::oSms := TSms():Create()
>> :domainId := "ejemplo"
>> :login := "rafa"
>> :passwd := "pass"
>> END
>>
>> RETURN Nil
>>
>> La verdad es que es rapidí­simo, es darle a enviar, y a los 2 segundos lo
>> tienes en el móvil.
>>
>> El para que usarlo, solamente vuestra imaginación será vuestro lí­mite
>>
>> Saludos
>> Rafa Carmona
>>
>> Nota:
>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>> ayuda, el sistema, etc... sinceramente, yo todaví­a estoy alucinado lo
>> bien que va y lo rápido que uno hace las cosas.
>> Este es otra granito de arena a esta fantástica herramienta.
>>
>>
>
>

[Xevi]

Otro ratito que tengo...
He añadido a la clase el proveedor de servicios SMSs Descom
http://www.descom.es/
Para clientes que no precisen de gran tamaño de envios de SMSs, con Descom
se pueden hacer recargas desde 6 créditos... 150, 500...
Cosa que con los otros proveedores las recargas mínimas que me exigían eran
Altiria 1000 y Mensario 4000
Como veais... si es de vuestro interés... lo podeis utilizar...
Sólo debeis poner la Url
https://seguro.descom.es/telapp/descomM ... comxmens.p hp
y el número de teléfono debe ir precedido de "0034"
Hasta hoy lo utilizaba usando una Dll que me facilitaron Descom, pero,
gracias a Rafa la oportunidad de no tener que necesitar un producto de un
tercero y poder tenerlo integrado en nuestras aplicaciones, ES LO MAS!!!
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:4a30e23d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Rafa,
>
> Hoy disponía de un rato y me he puesto a "jugar" con tu estupendo aporte.
> He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
> así podemos comparar y/o escoger entre mas de un proveedor de servicios
> SMSs
>
>
> Un Saludo,
> Xevi.
>
>
> "rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
> news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Me encargaron de buscar una solución para el envío de SMS.
>>
>> En un rato encontré un sitio que me ha parecido muy bueno,
>> www.altiria.com
>>
>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>> momentito hice esto, por si tenéis la necesidad de implementar algo
>> similar.
>>
>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>> he obviado las property etc.. que nos provee Xailer, para que pueda
>> ser usado por más gente.
>>
>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>> información para implementar el sistema, el cual os darán las claves
>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>> campos.
>>
>> METHOD FormCreate( oSender ) CLASS TForm1
>>
>> WITH OBJECT ::oSms := TSms():Create()
>> :domainId := "ejemplo"
>> :login := "rafa"
>> :passwd := "pass"
>> END
>>
>> RETURN Nil
>>
>> La verdad es que es rapidísimo, es darle a enviar, y a los 2 segundos lo
>> tienes en el móvil.
>>
>> El para que usarlo, solamente vuestra imaginación será vuestro límite
>>
>> Saludos
>> Rafa Carmona
>>
>> Nota:
>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>> ayuda, el sistema, etc... sinceramente, yo todavía estoy alucinado lo
>> bien que va y lo rápido que uno hace las cosas.
>> Este es otra granito de arena a esta fantástica herramienta.
>>
>>
>
>
>

[Xevi]

El adjunto... se me ha colado el mensajito sin él!!!
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:4aa7bdb7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Otro ratito que tengo...
>
> He añadido a la clase el proveedor de servicios SMSs Descom
> http://www.descom.es/
> Para clientes que no precisen de gran tamaño de envios de SMSs, con Descom
> se pueden hacer recargas desde 6 créditos... 150, 500...
> Cosa que con los otros proveedores las recargas mínimas que me exigían
> eran
> Altiria 1000 y Mensario 4000
>
> Como veais... si es de vuestro interés... lo podeis utilizar...
> Sólo debeis poner la Url
> https://seguro.descom.es/telapp/descomM ... comxmens.p hp
> y el número de teléfono debe ir precedido de "0034"
>
> Hasta hoy lo utilizaba usando una Dll que me facilitaron Descom, pero,
> gracias a Rafa la oportunidad de no tener que necesitar un producto de un
> tercero y poder tenerlo integrado en nuestras aplicaciones, ES LO MAS!!!
>
>
>
> Un Saludo,
> Xevi.
>
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:4a30e23d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Rafa,
>>
>> Hoy disponía de un rato y me he puesto a "jugar" con tu estupendo aporte.
>> He añadido a la clase TSms el proveedor "Mensario" www.mensario.com
>> así podemos comparar y/o escoger entre mas de un proveedor de servicios
>> SMSs
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "rafa" <thefull_quita@t-gtk.org> escribió en el mensaje
>> news:4a265787$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Me encargaron de buscar una solución para el envío de SMS.
>>>
>>> En un rato encontré un sitio que me ha parecido muy bueno,
>>> www.altiria.com
>>>
>>> Entonces, agarré Xailer como dice mi buen amigo Rene Flores, y en un
>>> momentito hice esto, por si tenéis la necesidad de implementar algo
>>> similar.
>>>
>>> La clase TSMS esta codificada para trabajar directamente con Harbour,
>>> he obviado las property etc.. que nos provee Xailer, para que pueda
>>> ser usado por más gente.
>>>
>>> Para poder hacerlo servir podéis simplemente ir a la web y pedir
>>> información para implementar el sistema, el cual os darán las claves
>>> para usarlo temporalmente, entonces, solamente tenéis que rellenar 3
>>> campos.
>>>
>>> METHOD FormCreate( oSender ) CLASS TForm1
>>>
>>> WITH OBJECT ::oSms := TSms():Create()
>>> :domainId := "ejemplo"
>>> :login := "rafa"
>>> :passwd := "pass"
>>> END
>>>
>>> RETURN Nil
>>>
>>> La verdad es que es rapidísimo, es darle a enviar, y a los 2 segundos lo
>>> tienes en el móvil.
>>>
>>> El para que usarlo, solamente vuestra imaginación será vuestro límite
>>>
>>>
>>> Saludos
>>> Rafa Carmona
>>>
>>> Nota:
>>> Este es el segundo ejemplo que he tenido tiempo para hacer con Xailer,
>>> una vez más, mis más sinceras FELICITACIONES, todo en su conjunto, la
>>> ayuda, el sistema, etc... sinceramente, yo todavía estoy alucinado lo
>>> bien que va y lo rápido que uno hace las cosas.
>>> Este es otra granito de arena a esta fantástica herramienta.
>>>
>>>
>>
>>
>>
>
>


Attached files TSms.prg (9 KB)Â