Enviar SMS

rolandoj · #8 02-10-2007

Cita:

Empezado por xio

A ver no se si voy en el camino correcto, pero voy encontrando cositas, solo necesito un poco de ayuda. Os comento he encontrado una aplicacion que supuestamente (aun no he conseguido que funcione) sirve para enviar sms a través de delphi, http://www.torry.net/vcl/comms/cellular/d2gsms.zip. Esa es la aplicacion, hay que instalar el componente D2Gsms.pas y al instalarlo nos da un error diciendo que no tenemos el componente WSocket, por lo que tenemos que pinchar en el siguente enlace, http://users.pandora.be/dirk.claesse...ads/ontime.zip, y descargarlo, una vez instalados los dos, NO TENGO NI IDEA de como utilizarlo.

Cuestiones, tenemos que tener un servidor para poder enviar sms, y como no un usuario y contraseña....

Por hoy ya es suficiente para mi, lo dejo en vuestras manos.

Hasta mañana.

PD: No olvideis que utilizo Delphi 4.

Hola xio,

No estoy en casa, así que no puedo probarlos; pero revisando el código, se están usando los servicios del sitio web www.genie.co.uk. Entrando a esa página con tú navegador Web verás a mano izquierda, en la sección "See what you can do", un enlace a "Send a free text message"; es ese servicio el que el componente invoca desde Delphi 4. Si entras por ese enlace te pedira que te registres y es ese usuario y password el que debes suministrar al componente. En ese orden de ideas, parece muy simple. Asumiendo que en form1 colocaste un componente TD2Gsms llamado ElMensaje, el código sería algo como:

Código Delphi [-]Procedure TForm1.Enviar(ATelephone,ASubject,AMessage:String);
Begin
     ElMensaje.Username     := 'miusuario';
     ElMensaje.Password     := 'miclave';
     ElMensaje.MobileNumber := ATelephone;
     ElMensaje.Subject      := ASubject;
     ElMensaje.MessageText  := AMessage;
     ElMensaje.Send;
End;

Ahora bien, la página dice que aplica para cualquier movil en cualquier red. No sé mucho del tema; pero de ser así, pienso que la clave estará en la forma de indicar el teléfono en cuestión.

Suerte