Cómo enviar múltiples SMS desde Delphi

La forma más sencilla de enviar SMS desde Delphi es utilizar la API HTTP/REST de SMS integrada de Ozeki SMS Gateway. Cuando uses esta API, enviarás mensajes SMS mediante una solicitud HTTP Post al gateway de SMS. La solicitud HTTP Post contendrá un mensaje formateado en formato JSON. El gateway de SMS enviará este SMS al teléfono del destinatario y devolverá una respuesta HTTP 200 OK a tu solicitud.

cómo enviar múltiples sms desde delphi
Figura 1 - Cómo enviar múltiples SMS desde Delphi

Código Delphi para enviar SMS a móviles

El ejemplo de código SMS en Delphi a continuación demuestra cómo puedes enviar SMS usando la API REST HTTP de Ozeki SMS Gateway con la unidad Ozeki.Libs.Rest de Delphi. Esta unidad se proporciona gratuitamente y puedes usarla y modificarla en cualquiera de tus proyectos.

SendMultipleSms.delphi 
program SendMultipleSms;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Ozeki.Libs.Rest in 'Ozeki.Libs.Rest.pas';

var configuration : Ozeki.Libs.Rest.Configuration;
var msg1, msg2, msg3 : Ozeki.Libs.Rest.Message;
var api : Ozeki.Libs.Rest.MessageApi;
var result : MessageSendResults;
var read : string;

begin
  try
    configuration := Ozeki.Libs.Rest.Configuration.Create;
    configuration.Username := 'http_user';
    configuration.Password := 'qwe123';
    configuration.ApiUrl := 'http://127.0.0.1:9509/api';

    msg1 := Ozeki.Libs.Rest.Message.Create;
    msg1.ToAddress := '+36201111111';
    msg1.Text := 'Hola mundo 1';

    msg2 := Ozeki.Libs.Rest.Message.Create;
    msg2.ToAddress := '+36202222222';
    msg2.Text := 'Hola mundo 2';

    msg3 := Ozeki.Libs.Rest.Message.Create;
    msg3.ToAddress := '+36203333333';
    msg3.Text := 'Hola mundo 3';

    api := Ozeki.Libs.Rest.MessageApi.Create(configuration);

    result := api.SendMessages([ msg1, msg2, msg3 ]);

    Writeln(result.ToString());

    Readln(read);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Cómo usar el ejemplo de SMS en Delphi:

Este ejemplo de SMS en Delphi puede usarse en cualquier aplicación Delphi. Para usarlo, debes agregar la unidad Ozeki.Libs.Rest.pas a tu proyecto. Después de agregar la unidad, debes incluir la directiva uses Ozeki.Libs.Rest in 'Ozeki.Libs.Rest.pas'; en la sección de encabezado de tu código fuente Delphi. Esto te permitirá usar las clases proporcionadas por la unidad Ozeki.Libs.Rest. Puedes usar la clase Message para crear el SMS. Puedes usar la clase MessageApi para enviar el SMS al gateway de SMS. El gateway de SMS reenviará tu mensaje a la red móvil ya sea a través de una conexión inalámbrica o a través de Internet.

Descargar SendMultipleSms.delphi

El código fuente explicado en este artículo puede descargarse, usarse y modificarse gratuitamente.
Descargar: SendMultipleSms.delphi.zip (11.8Kb)

¿Qué contiene el archivo SendMultipleSms.delphi.zip?

El archivo SendMultipleSms.delphi.zip contiene la unidad Ozeki.Libs.Rest, que te proporciona todas las herramientas necesarias para enviar y recibir mensajes SMS. También encontrarás el proyecto SendMultipleSms en el zip, que contiene el código de ejemplo para mostrarte cómo enviar un SMS. Este código de ejemplo se muestra a continuación.

directorio de envío múltiple de sms en delphi
Figura 2 - Qué hay dentro de SendMultipleSms.delphi.zip

Cómo enviar SMS desde Delphi (Guía simple)

Para enviar SMS desde Delphi:

  1. Instala un usuario de API HTTP
  2. Habilita "Registrar eventos de comunicación" en la pestaña Avanzado
  3. Configura Embarcadero Delphi Studio
  4. Descarga y extrae el archivo SendMultipleSms.delphi.zip
  5. Abre el archivo SendMultipleSms.dproj en Delphi Studio haciendo doble clic en él
  6. Inicia la aplicación Ozeki SMS Gateway
  7. Ejecuta el código Delphi SendMultipleSms.dpr en Delphi Studio
  8. Verifica los registros para ver si el SMS se envió

Instalar Ozeki SMS Gateway y crear un usuario de API HTTP

Para poder enviar SMS desde Delphi, primero necesitas instalar Ozeki SMS Gateway. El gateway de SMS puede instalarse en la misma computadora donde desarrollas tu código Delphi en Visual Studio. Después de la instalación, el siguiente paso es conectar Ozeki SMS Gateway a la red móvil. Puedes enviar un SMS de prueba desde la GUI de Ozeki para verificar que tu conexión a la red móvil funcione. El paso final para preparar tu entorno es crear un usuario de API HTTP de SMS. Crea un usuario con el nombre de usuario "http_user" y la contraseña "qwe123" para que el ejemplo funcione sin modificaciones.

Una vez configurado el entorno, puedes ejecutar tu código Delphi.

URL de la API HTTP para enviar SMS desde Delphi

Para enviar SMS desde Delphi, tu aplicación Delphi tendrá que realizar una solicitud HTTP al gateway de SMS. La URL de la API se muestra a continuación. Ten en cuenta que la dirección IP (127.0.0.1) debe ser reemplazada por la dirección IP de tu gateway de SMS. Si Ozeki SMS Gateway está instalado en la misma computadora donde se ejecuta la aplicación de SMS en Delphi, puede ser 127.0.0.1. Si está instalado en una computadora diferente, debe ser la dirección IP de esa computadora. 

http://127.0.0.1:9509/api?action=rest

Autenticación HTTP para enviar SMS desde Delphi

Para autenticar el cliente de SMS en Delphi, necesitas enviar el nombre de usuario y la contraseña en una cadena codificada en base64 al servidor en una solicitud HTTP. El formato utilizado es: base64(nombre de usuario+":"+contraseña). En Delphi puedes usar el siguiente código para hacer esta codificación: 

var usernamePassword := username + ':' + password;
var Encoder := TBase64Encoding.Create();
var usernamePasswordEncoded := Encoder.Encode(usernamePassword);
result := Format('Basic %s', [usernamePasswordEncoded]);

Por ejemplo, si codificas el nombre de usuario 'http_user' y la contraseña 'qwe123', obtendrás la siguiente cadena codificada en base64: aHR0cF91c2VyOnF3ZTEyMw==. Para enviar

Encabezado de la solicitud HTTP para enviar SMS desde Delphi

Para enviar los mensajes SMS, necesitas incluir las siguientes líneas como encabezados en la solicitud HTTP. Ten en cuenta que incluimos un tipo de contenido y un encabezado de Autorización. 

Content-Type: application/json
Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==

Solicitud HTTP para enviar SMS desde Delphi

Para enviar el SMS, tu aplicación Delphi enviará una solicitud HTTP similar a la que se muestra a continuación. Ten en cuenta que esta solicitud contiene una parte de encabezado HTTP y una parte de cuerpo HTTP. El cuerpo HTTP es una cadena de datos codificada en JSON. Contiene los números de los destinatarios y los textos de los mensajes que queremos enviar. 

POST /api?action=sendmsg HTTP/1.0
Connection: keep-alive
Content-Type: application/json
Content-Length: 1211
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 127.0.0.1:9509
Accept: application/json
User-Agent: Mozilla/3.0 (compatible; Indy Library)

{
	"messages": [
		{
			"message_id": "b984812c-6af0-47ac-83e6-c162b1743272",
			"from_connection": "",
			"from_address": "",
			"from_station": "",
			"to_connection": "",
			"to_address": "+36201111111",
			"to_station":"",
			"text":" Hola mundo 1",
			"create_date": "2021-07-27T14:59:43",
			"valid_until": "2021-08-03T14:59:43",
			"time_to_send": "2021-07-27T14:59:43",
			"submit_report_requested": true,
			"delivery_report_requested": true,
			"view_report_requested": true
		},
		{
			"message_id":"cccb9fc0-820c-47e0-9f8d-8a29f2f8dce8",
			"from_connection": "",
			"from_address": "",
			"from_station": "",
			"to_connection": "",
			"to_address": "+36202222222",
			"to_station": "",
			"text": "Hola mundo 2",
			"create_date": "2021-07-27T14:59:43",
			"valid_until": "2021-08-03T14:59:43",
			"time_to_send": "2021-07-27T14:59:43",
			"submit_report_requested": true,
			"delivery_report_requested": true,
			"view_report_requested": true
		},
		{
			"message_id": "395197a7-14bf-484b-97bc-ef25056b1669",
			"from_connection": "",
			"from_address": "",
			"from_station": "",
			"to_connection": "",
			"to_address": "+36203333333",
			"to_station": "",
			"text": "Hola mundo 3",
			"create_date": "2021-07-27T14:59:43",
			"valid_until": "2021-08-03T14:59:43",
			"time_to_send": "2021-07-27T14:59:43",
			"submit_report_requested": true,
			"delivery_report_requested": true,
			"view_report_requested": true
		}
	]
}

Respuesta HTTP recibida por el ejemplo de SMS en Delphi

Una vez que el gateway de SMS recibe esta solicitud, generará una respuesta HTTP. La respuesta HTTP contendrá un código de estado para indicar si la solicitud de envío de SMS fue exitosa o no. También devolverá una estructura codificada en JSON para proporcionarte detalles útiles sobre el envío de los mensajes. 

HTTP/1.1 200 OK
Content-Type: application/json; charset=utf8
Last-Modified: Tue, 27 Jul 2021 14:31:15 GMT
Server: 10/10.3.123 Microsoft-HTTPAPI/2.0
User-Agent: OZEKI 10.3.123 (myozeki.com)
Date: Tue, 27 Jul 2021 12:59:42 GMT
Connection: close

{
  "http_code": 200,
  "response_code": "SUCCESS",
  "response_msg": "Mensajes en cola para entrega.",
  "data": {
    "total_count": 3,
    "success_count": 3,
    "failed_count": 0,
    "messages": [
      {
        "message_id": "b984812c-6af0-47ac-83e6-c162b1743272",
        "from_station": "%",
        "to_address": "+36201111111",
        "to_station": "%",
        "text": "Hola mundo 1",
        "create_date": "2021-07-27 14:59:43",
        "valid_until": "2021-08-03 14:59:43",
        "time_to_send": "2021-07-27 14:59:43",
        "submit_report_requested": true,
        "delivery_report_requested": true,
        "view_report_requested": false,
        "tags": [
          {
            "name": "Type",
            "value": "SMS:TEXT"
          }
        ],
        "status": "SUCCESS"
      },
      {
        "message_id": "cccb9fc0-820c-47e0-9f8d-8a29f2f8dce8",
        "from_station": "%",
        "to_address": "+36202222222",
        "to_station": "%",
        "text": "Hola mundo 2",
        "create_date": "2021-07-27 14:59:43",
        "valid_until": "2021-08-03 14:59:43",
        "time_to_send": "2021-07-27 14:59:43",
        "submit_report_requested": true,
        "delivery_report_requested": true,
        "view_report_requested": false,
        "tags": [
          {
            "name": "Type",
            "value": "SMS:TEXT"
          }
        ],
        "status": "SUCCESS"
      },
      {
        "message_id": "395197a7-14bf-484b-97bc-ef25056b1669",
        "from_station": "%",
        "to_address": "+36203333333",
        "to_station": "%",
        "text": "Hola mundo 3",
        "create_date": "2021-07-27 14:59:43",
        "valid_until": "2021-08-03 14:59:43",
        "time_to_send": "2021-07-27 14:59:43",
        "submit_report_requested": true,
        "delivery_report_requested": true,
        "view_report_requested": false,
        "tags": [
          {
            "name": "Type",
            "value": "SMS:TEXT"
          }
        ],
        "status": "SUCCESS"
      }
    ]
  }
}

Cómo enviar SMS desde Delphi usando la API de SMS en Delphi (Tutorial en video)

Este video te muestra cómo descargar el archivo SendMultipleSms.delphi.zip desde esta página y cómo descargar su contenido en Delphi Studio. Si ves el video, notarás que el contenido del zip SendMultipleSms.delphi se coloca en el escritorio de Windows. También verás que hacemos doble clic en el archivo de proyecto SendMultipleSms.dproj para abrir el proyecto.

Video 1 - Cómo descargar y ejecutar el proyecto de ejemplo (Tutorial en video)

Ejemplo de SMS en Delphi: SendMultipleSms.dproj

En esta solución solo hay un proyecto: SendMultipleSms.dproj, y dos archivos: SendMultipleSms.dpr y Ozeki.Libs.Rest.pas.

Figura 3 - SendMultipleSms.dproj

Cómo verificar que el SMS ha sido aceptado por el usuario HTTP

Después de enviar el SMS, es una buena idea verificar tu gateway de SMS, para ver qué ha recibido. Puedes verificar el registro abriendo los detalles del usuario HTTP desde la consola de administración de Ozeki SMS Gateway. El siguiente video te muestra qué buscar.

Video 2 - Enviando SMS con el código Delphi anterior (Tutorial en video)

Resumen

Después de leer esta descripción sobre cómo enviar múltiples SMS desde Delphi, sabrás cómo preparar un usuario de API HTTP en Ozeki SMS Gateway para esta solución. Usar este sistema te ayuda a controlar costos y mantener un seguimiento de los mensajes. Los mensajes SMS entrantes y los eventos de entrega se presentarán en forma de eventos, y los errores se manejarán correctamente.

No te detengas aquí, hay muchos artículos en la página web de Ozeki de los que puedes aprender. Pasa al siguiente tutorial de Delphi sobre Cómo programar un SMS.

¡Descarga Ozeki SMS Gateway ahora y úsalo para probar lo que has aprendido!

More information