Mensaje SMS
 

Hola a todos: estuve realizando varias búsquedas en el foro y por google, y no encuentro algún ActiveX o algo parecido que me permita enviar SMS desde mi sistema en delphi.
Desde ya muchas gracias

Hola diegolf

no necesitas ningún controlador ActiveX, tan solo necesitas dos componentes que te vienen con las Indy, que son TIdSMTP y TIdMessage en las pestaña Indy Clients, e incluso puedes enviar ficheros adjuntos y autenticación en servidores.

Te dejo parte de mi código por si te sirviera de algo.

Código Delphi [-]
  
//configuramos el SMTP
  with SMTP do
    begin
      Host := 'mail.tuservidorsmtp.com';
      HeloName := Copy('tucuenta@correo.com', Pos('@', 'tucuenta@correo.com')+1,
        length('tucuenta@correo.com')-Pos('@', 'tucuenta@correo.com'));
      if lCor_Autentificar then
        begin
          AuthenticationType := atLogin;
          if (cCor_Aut_Usuario <> '') then UserName := cCor_Aut_Usuario
          else UserName := 'tucuenta@correo.com';
          if (cCor_Aut_Clave <> '') then Password := cCor_Aut_Clave
          else Password := 'tucontraseña';
        end
      else AuthenticationType := atNone;

      if nCor_Pue_Smtp <> 0 then Port := nCor_Pue_Smtp
      else Port := 25;
    end;

  //configuramos el correo
  with MailMessage do
    begin
      From.Address := 'tucuenta@correo.com';
      From.Name := 'tucuenta@correo.com';      
      Recipients.EMailAddresses := 'destinatario@correo.com';
      CharSet := 'iso-8859-1';

      Subject := teAsunto.Text;
      Body.Text := meMensaje.Lines.Text;
    end;

  // fichero adjunto
  if FileExists(teFichero.Text) then
    TIdAttachment.Create(MailMessage.MessageParts, teFichero.Text);

  //enviamos el correo
  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;

  end;

Espero te sirva de referencia. ;)

Saludos.

Lo que está en duda es como mandar Mensajes de texto a celulares (SMS) y no el poder enviar correos electronicos, al menos eso es lo que creo q pregunta el compañero.
Saludos

:eek: Dios estoy a por pipas.

Siento el terrible y catastrófico error cometido, mea culpa, no lei bien el mensaje y entendí mensajes de correo electrónico.

Ejem, ejem, pido mis mas sinceras disculpas y hago mutis por el foro......

A ver si por aquí sale algo....

Mensajes SMS (Celulares)
 

Pregunto a todos los usuarios de este foro: a nadie le pidieron que el sistema (realizado en Delphi) envie mensajes SMS. Parece que hasta ahora nadie ha encontrado una solución concreta. Sería bueno que entre todos hagamos un aporte para que quede como un truco en este sitio.
Saludos.

Hola,

Es que no hay ninguna aplicación que sea capaz de hacer algo así, como no sea con una pasarela,... es decir, necesitarás de una compañía que te proporcione el medio de enviar mensajes SMS, y, a partir de ahí, ver cómo se supone que tienes que hacerlo.

Por ejemplo, en Internet puedes contratar empresas que te permiten enviar SMS vía Web. Siendo esto así, probablemente, ya podrías meterle mano desde Delphi y tratar de hacerlo desde ahí en lugar desde la Web, pero, el mensaje SMS de por sí no puede enviarlo Delphi, ni ninguna otra aplicación.

¿Se entiende lo que quiero decir? Alguien tiene que enviar el SMS (empresa que a su vez tenga contratado el servicio con una operadora de telefonía) y uno sólo puede tratar (desde Delphi o desde donde sea) con ese alguien. Delphi, ni ninguna otra herramienta, por sí sola, puede enviar mensajes SMS.

Tal vez (otra posible solución) sería conectar un teléfono móvil a un ordenador... y a partir de ahí tratar desde Delphi de comunicar con el teléfono móvil y hacer que este envíe un SMS. Claro que dependerá del teléfono... que cada cual es de su padre y de su madre.

Dec
 

Agradezco tu aporte, pero todo lo que decis es más que obvio.
Segui participando.

Hola,

Pues a mí no me lo parece. Para empezar colocaste este hilo en "Api de Win32", cuando lo que es obvio (diría yo) es que no existe ninguna función del API de Windows para enviar mensajes SMS. Eso sí es obvio, creo, por eso moví el hilo a "varios". Pero, si tu manera de agradecer lo que tratamos de hacer para ayudarte es responder que lo que decimos son obviedades... no sé. ¿A ti qué te parecería?

Además... dices que es "obvio"... pero, ¿qué propones tú? Si es tan obvio, ¿cuál es el problema?

bien hecho Dec,
 

casi 8.000 posts , no pueden competir con 39.

Bien hecho David.

Es imposible enviar sms desde delphi o cualquier otra parte, sino contratas el servicio con el operador, lo digo por experiencia propia,,,,y no me pareción tan obvio ;)

Gracias!

Que tal,
Esta es una muy buena sugerencia, de hecho yo he estado investigando en Nokia sobre la manipulacion de sus telefonos desde una aplicacion y al parecer promete la informacion que puedes hayar, de nuevo, para este tipo compañias le interesa que gente dedicada a desarrollar lo haga para ella, ya que esto amplia la gama de soluciones ligadas a esta y por consecuencia colocan mas equipos.

Todo esto porque hoy dia nosotros somos los que ofrecemos las soluciones, y si proponemos tal o cual marca de equipo raramente se oponen a el (es como que te rechazen un router linksys :confused:, linksys???, que funcione bien es lo que se necesita) , por eso mi idea es hacer la aplicacion para una serie de telefonos nokia y presentarla asi, de manera que el equipo se conecta al oredenador y voilá!, mandamos SMS a lo bestia :D ! , total que ese telefono no va a ser utilizado por nadie mas que por el odernador (cuando se ha visto que tomo el router del server y lo ando paseando por todos lados :eek: ?).

Bueno esa es la idea que tengo y en cuanto tenga la informacion de NOKIA y envíe mi primer SMS, pues uds seran los primeros en saberlo.
Saludos

Aquí preguntas por un ActiveX


Aquí se te dio una respuesta, que por cierto encontrarás tanto en el foro como en Google
http://www.arsys.es/ayuda/guias/sms.htm


y aquí todo te parece obvio....:D:D

Tal vez en tu pregunta te faltó decir que querías mandar SMS por el morro o algo así... para evitar esas obviedades.

Lo que es obvio (al menos para mi), es que con respuestas como esas a quien está intentando ayudarte, tienes poco futuro (y vas a obtener poca ayuda) en estos foros.

Un saludo.

No se ustedes pero aca en la argentina basta con enviarle un email al numero de telefono y llega como un mensaje de texto, NumeroCelular@Compañia.com

Encontré la solución
 

Señores:
Ayer encontré la solución, pero consulten con DEC que ese tipo si que sabe.

A ver DEC, eres tan amable de explicarnos. Venga no te lo calles que tu lo sabes...:eek::eek:
Así de paso, queda para la posteridad...

Hola,

Qué puedo yo decir... que no existe ninguna solución. Que existen varias, y algunas se han planteado en este hilo. Ahora bien, si el compañero lo que quiere es que "entre al trapo" pues no pienso hacerlo. ¿Por qué debería hacerlo? ¿Para qué? Así que lo dicho: quien quiera enviar mensajes SMS desde Delphi... que investige entre las distintas soluciones aportadas en este hilo por el resto de compañeros. Y punto pelota. :)

Creo que te estás pasando bastante... :mad:

Creas un hilo, encuentras una solución (o eso dices) y luego no quieres compartirla con los demás que es el objetivo del foro.

Y de paso vas por ahí haciendo comentarios que no contribuyen en nada al buen ambiente que debe haber aquí.

Neftalí lleva razón, tienes poco futuro en este foro...

Aqui lo único obvio es que este personaje es un troll, por ahí en la taberna puede encontrar el significado, pero pues creo que está por demás explicarlo, es muy OBVIO :D:D

Salud OS.

Obviamente tiene poco futuro en este Foro.:mad: