Ejemplos de código en Delphi para la API SMS de LabsMobile

A continuación se presentan los ejemplos de código de programación en lenguaje Delphi para enviar mensajes SMS a través de la API de la plataforma LabsMobile.

Esta documentación está diseñada para que puedas conectar tus aplicaciones con la plataforma LabsMobile y automatizar el envío de mensajes SMS. El principal objetivo de la integración de estas aplicaciones es el envío de mensajes SMS y comunicaciones relacionadas.

Consejo Recomendamos utilizar nuestra API SMS http/POST en formato JSON para cualquier integración con la plataforma LabsMobile. Pero tenemos otras versiones API que puedes utilizar según tu entorno y requisitos.

Con estos ejemplos podrás realizar la integración de las siguientes funcionalidades:

Enviar mensajes SMS de forma individual o masiva.
Consultar el saldo de tu cuenta.
Recibir las notificaciones de confirmaciones de entrega y/o error que corresponden a los mensajes enviados.
Obtener notificación y datos de los mensajes recibidos en los números virtuales contratados.

A tener en cuenta

La API SMS de LabsMobile utiliza una URL base común para todas las peticiones: https://api.labsmobile.com.

Es altamente recomendable emplear una URL que incluya el protocolo HTTPS en cualquier versión de la API.

La autenticación se realiza con el nombre de usuario y un token API, myUsername:myToken. Debes crear el token API desde la sección Configuración API de tu cuenta.

Enviar SMS con http/POST

Aquí tienes un ejemplo de código en lenguaje Delphi para enviar mensajes SMS utilizando la API SMS http/POST que utiliza el formato JSON para las variables de intercambio de información.

Como puedes observar, necesitas crear una estructura en formato JSON que contenga todos los parámetros necesarios para el envío y realizar una llamada HTTP/POST con estos datos en el cuerpo de la solicitud.

uses
  IdHTTP, IdURI, SysUtils, Classes;

procedure SendSMS;
var
  http: TIdHTTP;
  url, data: string;
  requestBody: TStringStream;
begin
  http := TIdHTTP.Create(nil);
  try
    url := 'https://api.labsmobile.com/json/send';

    data := '{
      "message":"Your verification code is 123", 
      "tpoa":"Sender",
      "recipient":[
        {
          "msisdn":"12015550123"
        }
      ]
    }';

    requestBody := TStringStream.Create(data, TEncoding.UTF8);
    try
      http.Request.BasicAuthentication := True;
      http.Request.Username := 'myUsername';
      http.Request.Password := 'myToken';
      http.Request.ContentType := 'application/json';

      Memo1.Lines.Text := http.Post(url, requestBody);
    finally
      requestBody.Free;
    end;
  finally
    http.Free;
  end;
end;

uses
  IdHTTP, IdURI, SysUtils, Classes;

procedure SendSMS;
var
  http: TIdHTTP;
  url, data: string;
  requestBody: TStringStream;
begin
  http := TIdHTTP.Create(nil);
  try
    url := 'https://api.labsmobile.com/json/send';

    data := '{
      "message":"Do not miss our Sale! Use code XXXX123 for 20%off.", 
      "tpoa":"Sender",
      "recipient":[
        {
          "msisdn":"12015550123"
        },
        {
          "msisdn":"12015550124"
        },
        {
          "msisdn":"12015550125"
        }
      ]
    }';

    requestBody := TStringStream.Create(data, TEncoding.UTF8);
    try
      http.Request.BasicAuthentication := True;
      http.Request.Username := myUsername;
      http.Request.Password := myToken;
      http.Request.ContentType := 'application/json';

      Memo1.Lines.Text := http.Post(url, requestBody);
    finally
      requestBody.Free;
    end;
  finally
    http.Free;
  end;
end;

begin
  SendSMS;
end.

{
  "subid": "65f33a88ceb3d",
  "code": "0",
  "message": "Message has been successfully sent."
}

{
  "subid": "65f7f7041385d",
  "code": "35",
  "message": "The account has no enough credit for this sending"
}

Es posible consultar todos los códigos de error en Documentación API, códigos de error.

Para obtener más detalles sobre los parámetros disponibles y las opciones de configuración, consulta la documentación oficial en:

Documentación API SMS http/POST

Enviar SMS con http/GET

Este es un ejemplo de código en lenguaje Delphi para enviar mensajes SMS utilizando la API SMS http/GET.

Como podrás observar, debes pasar una serie de variables GET en la misma URL y realizar una llamada HTTP. Es importante codificar todos los valores como URL utilizando la función TIdURI.URLEncode().

Importante La API SMS http/GET transmite las credenciales (username y token API) sin cifrar y de forma no segura. Recomendamos utilizar esta API GET sólo cuando sea totalmente imprescindible y utilizar en su lugar la API SMS http/POST.

uses
  IdHTTP, IdURI;

function getContent(url: String): String;
var
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    Result := http.Get(url);
  finally
    http.Free;
  end;
end;

var
  myUsername, myToken, msisdn, sender, messageContent: string;
begin
  myUsername := 'tuUsuario';
  myToken := 'tuToken';
  msisdn := '12015550123';
  sender := 'Sender';
  messageContent := 'Your verification code is 123';

  Memo.Lines.Add(getContent(
    Format('http://api.labsmobile.com/get/send.php?username=%s&password=%s&msisdn=%s&sender=%s&message=%s',
    [TIdURI.URLEncode(myUsername), TIdURI.URLEncode(myToken), TIdURI.URLEncode(msisdn), TIdURI.URLEncode(sender), TIdURI.URLEncode(messageContent)])));
end;

uses
  IdHTTP, IdURI;

function getContent(url: String): String;
var
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    Result := http.Get(url);
  finally
    http.Free;
  end;
end;

var
  myUsername, myToken, msisdn, sender, messageContent: string;
begin
  myUsername := 'tuUsuario';
  myToken := 'tuToken';
  msisdn := msisdns := '[12015550123,12015550124,12015550125]';
  sender := 'Sender';
  messageContent := 'Do not miss our Sale! Use code XXXX123 for 20%off.';

  Memo.Lines.Add(getContent(
    Format('http://api.labsmobile.com/get/send.php?username=%s&password=%s&msisdn=%s&sender=%s&message=%s',
    [TIdURI.URLEncode(myUsername), TIdURI.URLEncode(myToken), TIdURI.URLEncode(msisdn), TIdURI.URLEncode(sender), TIdURI.URLEncode(messageContent)])));
end;

{
  "subid": "65f33a88ceb3d",
  "code": "0",
  "message": "Message has been successfully sent."
}

{
  "subid": "65f7f7041385d",
  "code": "35",
  "message": "The account has no enough credit for this sending"
}

Es posible consultar todos los códigos de error en Documentación API, códigos de error.

Para obtener más detalles sobre los parámetros disponibles y las opciones de configuración, consulta la documentación oficial en:

Documentación API SMS http/GET

Consulta de saldo de una cuenta

Con este ejemplo de código en Delphi se puede consultar el saldo de la cuenta utilizando la API SMS de LabsMobile

Mediante una llamada a este endpoint, puedes obtener información sobre la cantidad de créditos disponibles en tu cuenta de LabsMobile. La conexión se establece a través de una solicitud HTTP/GET con autenticación en el encabezado de la conexión HTTP.

uses
  IdHTTP, IdURI, SysUtils, Classes;

procedure Balance;
var
  http: TIdHTTP;
  url, data: string;
  requestBody: TStringStream;
begin
  http := TIdHTTP.Create(nil);
  try
    url := 'https://api.labsmobile.com/json/balance';

    data := '';

    requestBody := TStringStream.Create(data, TEncoding.UTF8);
    try
      http.Request.BasicAuthentication := True;
      http.Request.Username := 'myUsername';
      http.Request.Password := 'myToken';
      http.Request.ContentType := 'application/json';

      Memo1.Lines.Text := http.Get(url, requestBody);
    finally
      requestBody.Free;
    end;
  finally
    http.Free;
  end;
end;

begin
  Balance;
end.

{"code":0,"credits":"10"}

Consulta la documentación completa en:

Documentación Consulta de saldo

Recibir estado de mensajes enviados

Este script de ejemplo recibe una llamada por parte de la plataforma LabsMobile cuando un mensaje SMS enviado cambia de estado. Para implementar esta solución, es esencial configurar los parámetros adecuados, la URL de confirmación en el parámetro ackurl en la petición o la URL por defecto en la Configuración API de tu cuenta.

Por tanto, es necesario publicar un script como este en tu sistema para que nuestra plataforma llame a la URL cuando ocurra un cambio de estado en cualquiera de los mensajes enviados.

El código de ejemplo obtiene los parámetros de la URL utilizando la variable global $_GET y luego asigna estos parámetros a variables locales.

program ExampleCode;

{$APPTYPE CONSOLE}

uses
  SysUtils, SynCommons, mORMot;

const
  PORT = 3000;

var
  server: TSQLHttpServer;

procedure HandleRequest(const ctxt: TSQLRestServerURIContext);
var
  acklevel, credits, msisdn, status, subid, timestamp: RawUTF8;
begin
  ctxt.Success;
  acklevel := ctxt.Parameters['acklevel'];
  credits := ctxt.Parameters['credits'];
  msisdn := ctxt.Parameters['msisdn'];
  status := ctxt.Parameters['status'];
  subid := ctxt.Parameters['subid'];
  timestamp := ctxt.Parameters['timestamp'];

  WriteLn('Variable acklevel : ', acklevel);
  WriteLn('Variable credits : ', credits);
  WriteLn('Variable msisdn : ', msisdn);
  WriteLn('Variable status : ', status);
  WriteLn('Variable subid : ', subid);
  WriteLn('Variable timestamp : ', timestamp);
end;

begin
  server := TSQLHttpServer.Create(IntToStr(PORT), []);
  try
    server.OnCustomURI := HandleRequest;
    server.AccessControlAllowOrigin := '*';
    server.AccessControlAllowHeaders := '*';
    server.AccessControlAllowMethods := '*'; 

    WriteLn('The server running on port ', PORT);

    server.Start(PORT);
    WriteLn('Press Enter to stop the server...');
    ReadLn;
  finally
    server.Free;
  end;
end.

Consulta la documentación completa en:

Documentación Recepción estados SMS enviados

Recepción de mensajes SMS

Una vez contratado un número virtual, podrás recibir mensajes vía API en una URL específica mediante una llamada HTTP/GET a un script de tu sistema. Cada mensaje recibido invocará la URL, transmitiendo todos sus datos en variables en formato JSON

Para activar esta funcionalidad se debe informar la URL de recepción de mensajes en la Configuración de tu cuenta.

Es necesario configurar un endpoint en tu sistema para que la plataforma LabsMobile llame a este script cuando se reciba un SMS en cualquiera de los números virtuales contratados.

El código de ejemplo obtiene los parámetros de la URL utilizando la variable global $_GET y luego asigna estos parámetros a variables locales

program ExampleCode;

{$APPTYPE CONSOLE}

uses
  SysUtils, SynCommons, mORMot;

const
  PORT = 3000;

var
  server: TSQLHttpServer;

procedure HandleRequest(const ctxt: TSQLRestServerURIContext);
var
  inbound_number, service_number, msisdn, message, timestamp: RawUTF8;
begin
  ctxt.Success; // Indicar que la solicitud fue exitosa

  // Obtener los parámetros de consulta
  inbound_number := ctxt.Parameters['inbound_number'];
  service_number := ctxt.Parameters['service_number'];
  msisdn := ctxt.Parameters['msisdn'];
  message := ctxt.Parameters['message'];
  timestamp := ctxt.Parameters['timestamp'];

  // Mostrar los parámetros en la consola
  WriteLn('Variable inbound_number : ', inbound_number);
  WriteLn('Variable service_number : ', service_number);
  WriteLn('Variable msisdn : ', msisdn);
  WriteLn('Variable message : ', message);
  WriteLn('Variable timestamp : ', timestamp);
end;

begin
  server := TSQLHttpServer.Create(IntToStr(PORT), []);
  try
    // Configurar la ruta para manejar solicitudes GET a "/"
    server.OnCustomURI := HandleRequest;
    server.AccessControlAllowOrigin := '*'; // Permitir solicitudes de cualquier origen
    server.AccessControlAllowHeaders := '*'; // Permitir cualquier encabezado en la solicitud
    server.AccessControlAllowMethods := '*'; // Permitir cualquier método de solicitud (GET, POST, etc.)

    WriteLn('The server running on port ', PORT);

    // Iniciar el servidor
    server.Start(PORT);
    WriteLn('Press Enter to stop the server...');
    ReadLn;

  finally
    server.Free;
  end;
end.

Consulta la documentación completa en:

Documentación Recepción mensajes SMS

Recursos de soporte

Recomendamos consultes y tengas en cuenta los siguientes recursos de soporte en tu integración: