SMS desde FW

Post Reply
manuramos
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

SMS desde FW

Post by manuramos »

¿Sabe alguien si se puede mandar un SMS desde un porgrama echo con FW?

Si alguien supiera que es imposible, también me gustaría saberlo.

Muchas gracias. Saludos.
Nos Gusta Programar
horacio
Posts: 1270
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Post by horacio »

Manu
En el foro de fw español en yahoo hay algunas respuestas sobre sms y parecen muy fáciles
saludos
Rochinha
Posts: 309
Joined: Sun Jan 08, 2006 10:09 pm
Location: Brasil - Sao Paulo
Contact:

Post by Rochinha »

The SMS es lo mismo que un email

Consiste:

numero_del_telefono@operadora.com

Ejemplo:

8765-3488@claro.com
User avatar
creswinman
Posts: 33
Joined: Thu Aug 24, 2006 3:14 am
Location: mexico
Contact:

Programa para enviar con sockets por jikama.com

Post by creswinman »

* ivizcaino 2007
* smsSock('000001','PASSWD','5532324028','Hola AMigos')
* Poner en System\smsSock.bwp
FUNCTION SMSSock()
PARAM cCliente,cPassword,cTelefono,cMensaje
cDominio:='www.jikama.com'
oSMS := TWebClient():New(6207)
Cargo := .f.
cTexto:=''
oSMS:bOnConnect := {|oWClient| Cargo := .t.}
oSMS:bOnRead := {|cData| if(valtype(cData) == "C", cTexto := cTexto+cData, )}
oSMSSock:=oSMS:oSocket
oSMS:Connect('www.jikama.com')
while ! Cargo
syswait(.1)
SysRefresh()
endw
oSMSSock:SendData( [:BACK cw:Jsms("]+ccliente+[","]+cPassword+[","]+cTelefono+[","]+cMensaje+[")])
While Empty(cTexto)
syswait(.1)
m6(time())
Endw
oSMSSock:end()
Mensaje(1,cTexto)
return (cTexto)


Este ejemplo es con Sockets!

smsSock('000001','eureka','5532324028','Hola Amigos por sockets 6207 !'+Time())
User avatar
reinaldocrespo
Posts: 918
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Post by reinaldocrespo »

CresWinMan;

¿Parece que tu ejemplo usa un servicio prepagado?

¿Se necesita un username y un password?


Reinaldo.
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

Si revisan mi blog, encontrarán un articulo sobre el envio de SMS con xHarbour, cualquier plataforma, desde aplicaciones en modo consola hasta aplicaciones GUI con interfaz gráfica como FiveWin.

Código fuente incluido.
Saludos
R.F.
User avatar
reinaldocrespo
Posts: 918
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Post by reinaldocrespo »

René;

Gracias por la información. Miré el blog. Muy útil.

Parece que el servicio que usas para el ejemplo que brindas solo funciona en Méjico. Me pregunto que otras alternativas existen que funcionen aca.

Tienes que decirme cuando vuelves por Miami y que tengas un rato corto para verte y conversar. Y si no, pues voy a tener que viajar a Méjico o España y asistir a uno de tus cursos.


Reinaldo.
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

Reinado.

El servicio www.jikama.com funciona en todo el mundo, es como Skype, compras crédito y listo, envias desde cualquier parte del mundo hasta cualquier parte del mundo.
Saludos
R.F.
User avatar
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Post by JmGarcia »

Y no seria posible mandar SMSs con un movil conectado al PC.
Con comandos HAYES de modem se podria ¿ no ?
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Post Reply