SMS desde FW

SMS desde FW

Postby manuramos » Sun Jan 21, 2007 10:57 am

¿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
manuramos
 
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

Postby horacio » Mon Jan 22, 2007 9:59 pm

Manu
En el foro de fw español en yahoo hay algunas respuestas sobre sms y parecen muy fáciles
saludos
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Postby Rochinha » Mon Jan 22, 2007 11:09 pm

The SMS es lo mismo que un email

Consiste:

numero_del_telefono@operadora.com

Ejemplo:

8765-3488@claro.com
Rochinha
 
Posts: 310
Joined: Sun Jan 08, 2006 10:09 pm
Location: Brasil - Sao Paulo

Programa para enviar con sockets por jikama.com

Postby creswinman » Tue Jun 12, 2007 11:45 am

* 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
creswinman
 
Posts: 33
Joined: Thu Aug 24, 2006 3:14 am
Location: mexico

Postby reinaldocrespo » Fri Aug 31, 2007 10:03 pm

CresWinMan;

¿Parece que tu ejemplo usa un servicio prepagado?

¿Se necesita un username y un password?


Reinaldo.
User avatar
reinaldocrespo
 
Posts: 979
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Postby R.F. » Sat Sep 01, 2007 1:20 am

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.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby reinaldocrespo » Sat Sep 01, 2007 3:17 pm

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.
User avatar
reinaldocrespo
 
Posts: 979
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Postby R.F. » Sat Sep 01, 2007 3:46 pm

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.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby JmGarcia » Sun Dec 09, 2007 2:37 pm

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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 24 guests