SMS desde FWH

[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

[horacio]

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

Saludos

[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]

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

[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.

[compubrion]

Saludos !

Gracias a todos, por sus aportes y comentarios

Cruz Alfredo Oses

[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