Envío de sms en Borland Delphi

Publicado en Enviar sms | Etiquetas: , ,

El siguiente método permite realizar el envío de sms en Borland Delphi.

Una vez más, insistimos que para hacer real el envío, es necesario un proveedor de sms gateway que sirve de intermediario entre nuestro código y los operadores de telefonía móvil. El ejemplo utiliza la pasarela de envío de sms masivo de Altiria.

El protocolo http es el utilizado para las comunicaciones con el proveedor.

Para que funcione el código de envío de SMS en Borland Delphi, es necesario seguir los siguientes pasos:

  • Incluir el componente TIdHTTP ubicado en la paleta de componentes Indy Clients.
  • Configurar las cabeceras asignando a la propiedad “Request->ContentType” el valor “application/x-www-form-urlencoded; charset=UTF-8”
procedure TFormEnviar.btnEnviarClick(Sender: TObject);
	var
		DResultado,SUrl : String;
		Parametros : TStrings;
	begin
		//Se fija la URL sobre la que enviar la petición POST
		//Como ejemplo la petición se envía a www.altiria.net/sustituirPOSTsms
		//Se debe reemplazar la cadena ’/sustituirPOSTsms’ por la parte correspondiente
		//de la URL suministrada por Altiria al dar de alta el servicio
		SUrl:=’http://www.altiria.net/sustituirPOSTsms’;
 
		//Compone el mensaje a enviar
		//XX, YY y ZZ se corresponden con los valores de identificación del usuario en el sistema
		Parametros := TStringList.Create;
		Parametros.Add(’cmd=sendsms’);
		Parametros.Add(’domainId=XX’);
		Parametros.Add(’login=YY’);
		Parametros.Add(’passwd=ZZ’);
		Parametros.Add(’dest=34600111222);
		Parametros.Add(’msg=+UTF8Encode(’Texto de prueba’));
 
		Especificaciones de la Interfaz HTTP
		// Enviamos un mensaje, recibiendo en "DResultado" la respuesta del servidor
		DResultado:=IdHTTP1.Post(SUrl,Parametros);
		Parametros.free;
end;

Dejar un comentario