Mensaje SMS

[diegolf]

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

[jjoliveras]

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.

[juanelo]

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.

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

[jjoliveras]

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

[[ArdiIIa]]

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

[diegolf]

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.