SMS desde FWH

Post Reply
User avatar
compubrion
Posts: 130
Joined: Thu Mar 08, 2007 6:12 pm
Location: Miranda - Venezuela
Contact:

SMS desde FWH

Post by compubrion »

Saludos !

Estimados compañeros, podrian compartir sus experiencias con el envio de SMS a celulares con aplicacions desarrolladas con FWH, si existe alguna clase diseñada, un ejemplo de uso etc..

Muchisimas gracias de antemano

Cruz Alfredo Oses
Harbour / Bcc / MinGW / Fwh 13.9
horacio
Posts: 1270
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: SMS desde FWH

Post by horacio »

Si no me equivoco es lo mismo que mandar un e-mail. No necesitas ninguna clase especial.

Saludos
Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 pm
Location: Maracaibo, Venezuela.

Re: SMS desde FWH

Post by Simon »

Hola compubrion, veo que estas en venezuela, yo uso http://www.041x.com y hasta ahora nos ha funcionado bien y el precio es aceptable, tengo una aplicacion hecha con harbour + fivewin.

aca un ejemplo.

Code: Select all

 
  cUrl := "http://041x.com/secure/insert.php?uname=usuario&pass=f398b69086c184f2be3d07afcfcfc7fe&num=04140000000&msg=Hola esto es una prueba"
  oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
   oActiveX:hide()
   oActiveX:Do( "Navigate2", cUrl )
   //sysrefresh()
   
   while oActiveX:Document == nil
      SysRefresh()
   end

   //aca el resultado
   memoedit( oActiveX:Document:body:innerHTML )

 
te debes dar de alta y ellos te dan unos 15 mensajes de cortesia para probar.

Saludos.
FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: SMS desde FWH

Post by FiveWiDi »

Hola Cruz,

Yo estoy probando eso mismo.
Por un lado uso un EXE (en C++ de 469 Kb sin DLL externas) que se hizo un amigo que envía comandos AT a puertos COM (si quieres te la envío).
Por otro lado en el portátil tengo un modem USB con un SIM en él. He estado mirando comprar envíos SMS pero por el número de SMS que espero enviar el ahorro es muy poco y por tanto pagaré la tarifa de mi SIM (0,1098 euros/mensaje con impuestos incluídos a fecha 01/09/2012 en España).

De momento tengo 3 funciones que estoy probando, no son definitivas pero para ver como va el tema me estan sirviendo.

3 cosillas:
a) si el SIM precisa PIN si no lo desbloqueas no podrás usarlo.
b) si envío el PIN al SIM desde mi aplicación, el programa própio de connexión a internet desde el modem no pide el PIN pero no conecta a internet; si por contra uso primero el programa de conexción a internet no hay problema.
c) si realizas envío de mensajes 1 x 1, deberás dejar un DELAY entre ellos, sinó el envío se acepta como correcto pero parece ser que mi proveedor telefónico no detecta todos los que le envío y algun destinatario no lo recibe; si le pongo una espera de 2 segundos entre nensajes no tengo problema.

No sé si se puede enviar un SMS a un grupo de teléfonos a la vez. No se como hacerlo.

Aquí les funciones

Code: Select all

#include "fivewin.ch"

/* Función para usar la utilidad InfoCOM para gestionar puertos COM


   --------------------------------------------------------------------------------- */

STATIC nPORTCOMSIM := 0

//------------------------------------------------------------------
//------------------------------------------------------------------
FUNCTION nGetCOMofSIM()

Local nContador  := 0
Local nRespuesta := 0

For nContador := 0 To 20

    //nRespuesta := ShellExecute( 0, "open", "c:\temp\infocom.exe", "COM" + AllTrim(Str(nContador, 3, 0 )) + " ICC", "", 1)

    nRespuesta := Waitrun( "c:\temp\infocom.exe COM" + AllTrim(Str(nContador, 3, 0 )) + " ICC", 2 )

    //Traza( 1, "nContador/nRespuesta:", nContador, "/", nRespuesta )

    If nRespuesta = 0
        nPORTCOMSIM := nContador
        Exit
    EndIf

EndFor


Return nContador
//------------------------------------------------------------------
//------------------------------------------------------------------
FUNCTION uSetPINSIM( nCom )
Local nPIN       := 0
Local nRespuesta := 0

If nCom = 0
    nCom := If( nPORTCOMSIM = 0, nGetCOMofSIM(), nPORTCOMSIM )
EndIf

MsgGet( "Atenció!", "Indiqui el COM del SIM:", @ncOM )
MsgGet( "Atenció!", "Indiqui el PIN del SIM:", @nPIN )

If nPIN <> 0

    nRespuesta := Waitrun( "c:\temp\infocom.exe COM" + AllTrim(Str(nCOM, 3, 0 )) + " AT+CPIN=" + Right( Str( 10000 + nPIN, 10, 0), 4), 2 )

EndIf

//Traza( 1, "nRespuesta:", nRespuesta )

Return nRespuesta
//------------------------------------------------------------------
//------------------------------------------------------------------
FUNCTION lEnviaSMS( nCom, cTelefono, cMensaje )

Local nRespuesta := 0

If nCom = 0
    nCom := If( nPORTCOMSIM = 0, nGetCOMofSIM(), nPORTCOMSIM )
EndIf

cMensaje := cMensaje := Strtran( cMensaje, '"', "'", nil, Nil )

nRespuesta := Waitrun( "c:\temp\infocom.exe COM" + AllTrim(Str(nCOM, 3, 0 )) + " SMS " + cTelefono + ' "' + cMensaje + '"', 2 )

//Traza( 1, "nRespuesta:", nRespuesta )

Inkey( 2 )

Return nRespuesta
//------------------------------------------------------------------
//------------------------------------------------------------------
 
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
mag071
Posts: 139
Joined: Thu Feb 02, 2006 12:09 pm
Location: Venezuela
Contact:

Re: SMS desde FWH

Post by mag071 »

Epale Hermanazo !!! :-)

Saludos,

yo uso unos modem enforas que tu le metes un simcard , y con una aplicacion parecida a terminal.prg abre el puerto y comienzo a enviarle comandos para el envio de SMS. tengo una pequeña aplicacion que lee el mensaje y busca en la base de datos y envia la repuesta via SMS.

con este comando AT reviso si tengo SMS
WriteComm( nCom, [AT+CMGL="ALL"] + Chr( 13 ) )

Aqui envio la repuesta
WriteComm( nCom, [AT+CMGS="+58]+cTlf+["]+ Chr( 13 ) )
MsgWait("Enviando Respuestas ","SMS",1.7)
WriteComm( nCom, cMensa + Chr( 26 )+CHR( 13 ) )
para borrar mensaje ,
WriteComm( nCom, [AT+CMGD=]+Alltrim(Str(nI)) + Chr( 13 ) )

Esto esta basado en el programa samples\terminal.prg

cualquier cosa estamos a la orden por aqui por Guatire.
Mario Antonio González Osal
Venezuela
m a g 0 7 1 @ g m a i l. c o m
User avatar
compubrion
Posts: 130
Joined: Thu Mar 08, 2007 6:12 pm
Location: Miranda - Venezuela
Contact:

Re: SMS desde FWH

Post by compubrion »

Saludos !

Gracias a todos, por sus aportes y comentarios

Cruz Alfredo Oses
Harbour / Bcc / MinGW / Fwh 13.9
KRCNET
Posts: 25
Joined: Wed Mar 14, 2007 1:58 pm
Location: Belo Horizonte/MG/Brasil

Re: SMS desde FWH

Post by KRCNET »

Mario,

Estoy buscando una rutina para enviar SMS utilizando el FWH y un módem 3G

Vi un mensaje en su foro que está utilizando.

1) Usted está utilizando un módem 3G?
2) ¿Puede enviar SMS a varios números al mismo tiempo?
3) Puede recibir mensajes SMS?

Si usted me puede mostrar cómo se hace

¡gracias

Ate más

Cleber Ribeiro Conde
Cleber Ribeiro Conde
Krc Sistemas
FWH 7.1 / xHarbour 0.99.71 / xMate/ SqlLib
Post Reply