Comment envoyer plusieurs SMS depuis Delphi

La manière la plus simple d'envoyer des SMS depuis Delphi est d'utiliser l'API SMS HTTP/Rest intégrée d'Ozeki SMS Gateway. Lorsque vous utilisez cette API, vous enverrez des messages SMS en effectuant une requête HTTP Post vers la passerelle SMS. La requête HTTP Post contiendra un message formaté en JSON. La passerelle SMS enverra ce SMS au téléphone du destinataire, et elle renverra une réponse HTTP 200 OK à votre requête.

comment envoyer plusieurs sms depuis delphi
Figure 1 - Comment envoyer plusieurs SMS depuis Delphi

Code Delphi pour envoyer un SMS vers un mobile

L'exemple de code SMS Delphi ci-dessous montre comment envoyer des SMS en utilisant l'API REST HTTP d'Ozeki SMS Gateway avec l'unité Delphi Ozeki.Libs.Rest. Cette unité vous est fournie gratuitement, et vous pouvez l'utiliser et la modifier dans n'importe lequel de vos projets.

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 := 'Bonjour monde 1';

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

    msg3 := Ozeki.Libs.Rest.Message.Create;
    msg3.ToAddress := '+36203333333';
    msg3.Text := 'Bonjour monde 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.

Comment utiliser l'exemple de SMS Delphi :

Cet exemple de SMS Delphi peut être utilisé dans n'importe quelle application Delphi. Pour l'utiliser, vous devez ajouter l'unité Ozeki.Libs.Rest.pas à votre projet. Après avoir ajouté l'unité, vous devez placer la directive uses Ozeki.Libs.Rest in 'Ozeki.Libs.Rest.pas'; dans la section d'en-tête de votre code source Delphi. Cela vous permettra d'utiliser les classes fournies par l'unité Ozeki.Libs.Rest. Vous pouvez utiliser la classe Message pour créer le SMS. Vous pouvez utiliser la classe MessageApi pour envoyer le SMS à la passerelle SMS. La passerelle SMS transmettra votre message au réseau mobile soit via une connexion sans fil, soit via Internet.

Télécharger SendMultipleSms.delphi

Le code source expliqué dans cet article peut être téléchargé, utilisé et modifié gratuitement.
Téléchargement : SendMultipleSms.delphi.zip (11,8 Ko)

Que contient le fichier SendMultipleSms.delphi.zip ?

Le fichier SendMultipleSms.delphi.zip contient l'unité Ozeki.Libs.Rest, qui vous donne tous les outils nécessaires pour envoyer et recevoir des messages SMS. Vous trouverez également le projet SendMultipleSms dans le zip, qui contient le code exemple pour vous montrer comment envoyer un SMS. Ce code exemple est listé ci-dessous.

répertoire d'envoi de plusieurs sms delphi
Figure 2 - Que contient SendMultipleSms.delphi.zip

Comment envoyer un SMS depuis Delphi (Instructions simples)

Pour envoyer un SMS depuis Delphi :

  1. Installer un utilisateur HTTP API
  2. Activer "Log communication events" dans l'onglet Advanced
  3. Configurer Embarcadero Delphi Studio
  4. Télécharger puis extraire le fichier SendMultipleSms.delphi.zip
  5. Ouvrir le fichier SendMultipleSms.dproj dans Delphi Studio en double-cliquant dessus
  6. Lancer l'application Ozeki SMS Gateway
  7. Exécuter le code Delphi SendMultipleSms.dpr dans Delphi Studio
  8. Vérifier les logs pour voir si le SMS a été envoyé

Installer Ozeki SMS Gateway et créer un utilisateur HTTP API

Pour pouvoir envoyer des SMS depuis Delphi, vous devez d'abord installer Ozeki SMS Gateway. La passerelle SMS peut être installée sur le même ordinateur où vous développez votre code Delphi dans Visual Studio. Après l'installation, l'étape suivante consiste à connecter Ozeki SMS Gateway au réseau mobile. Vous pouvez envoyer un SMS test depuis l'interface Ozeki pour vérifier que votre connexion au réseau mobile fonctionne. La dernière étape pour préparer votre environnement est de créer un utilisateur HTTP SMS API. Créez un utilisateur avec le nom d'utilisateur "http_user" et le mot de passe "qwe123" pour que l'exemple fonctionne sans modification.

Une fois l'environnement configuré, vous pouvez exécuter votre code Delphi.

URL de l'API HTTP pour envoyer des SMS depuis Delphi

Pour envoyer des SMS depuis Delphi, votre application Delphi devra effectuer une requête HTTP vers la passerelle SMS. L'URL de l'API est indiquée ci-dessous. Notez que l'adresse IP (127.0.0.1) doit être remplacée par l'adresse IP de votre passerelle SMS. Si Ozeki SMS Gateway est installé sur le même ordinateur que celui où l'application Delphi SMS est exécutée, cela peut être 127.0.0.1. S'il est installé sur un autre ordinateur, cela doit être l'adresse IP de cet ordinateur. 

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

Authentification HTTP pour envoyer des SMS depuis Delphi

Pour authentifier le client SMS Delphi, vous devez envoyer le nom d'utilisateur et le mot de passe dans une chaîne encodée en base64 au serveur dans une requête HTTP. Le format utilisé est : base64(nom d'utilisateur+":"+mot de passe). Dans Delphi, vous pouvez utiliser le code suivant pour effectuer cet encodage : 

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

Par exemple, si vous encodez le nom d'utilisateur 'http_user' et le mot de passe 'qwe123', vous obtiendrez la chaîne encodée en base64 suivante : aHR0cF91c2VyOnF3ZTEyMw==. Pour envoyer

En-tête de requête HTTP pour envoyer des SMS depuis Delphi

Pour envoyer les messages SMS, vous devez inclure les lignes suivantes comme en-têtes dans la requête HTTP. Notez que nous incluons un en-tête Content-Type et un en-tête Authorization. 

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

Requête HTTP pour envoyer des SMS depuis Delphi

Pour soumettre le SMS, votre application Delphi enverra une requête HTTP similaire à celle ci-dessous. Notez que cette requête contient une partie en-tête HTTP et une partie corps HTTP. Le corps HTTP est une chaîne de données encodée en JSON. Il contient les numéros des destinataires et les textes des messages que nous souhaitons envoyer. 

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":" Bonjour monde 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": "Bonjour monde 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": "Bonjour monde 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
		}
	]
}

Réponse HTTP reçue par l'exemple de SMS Delphi

Une fois que la passerelle SMS reçoit cette requête, elle générera une réponse HTTP. La réponse HTTP contiendra un code de statut pour indiquer si la soumission du SMS a réussi ou non. Elle renverra également une structure encodée en JSON pour vous fournir des détails utiles sur la soumission des messages. 

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": "Messages en attente de livraison.",
  "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": "Bonjour monde 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": "Bonjour monde 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": "Bonjour monde 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"
      }
    ]
  }
}

Comment envoyer des SMS depuis Delphi en utilisant l'API SMS Delphi (Tutoriel vidéo)

Cette vidéo vous montre comment télécharger le fichier SendMultipleSms.delphi.zip depuis cette page, et comment télécharger son contenu dans Delphi Studio. Si vous regardez la vidéo, vous remarquerez que le contenu du zip SendMultipleSms.delphi est placé sur le bureau Windows. Vous verrez également que nous double-cliquons sur le fichier de projet SendMultipleSms.dproj pour ouvrir le projet.

Vidéo 1 - Comment télécharger et exécuter le projet exemple (Tutoriel vidéo)

Exemple de SMS Delphi : SendMultipleSms.dproj

Dans cette solution, il n'y a qu'un seul projet : SendMultipleSms.dproj, et deux fichiers : SendMultipleSms.dpr et Ozeki.Libs.Rest.pas.

Figure 3 - SendMultipleSms.dproj

Comment vérifier que le SMS a été accepté par l'utilisateur HTTP

Après que le SMS a été soumis, il est bon de vérifier votre passerelle SMS, pour voir ce qu'elle a reçu. Vous pouvez vérifier le log en ouvrant les détails de l'utilisateur HTTP depuis la console de gestion d'Ozeki SMS Gateway. La vidéo suivante vous montre ce qu'il faut rechercher.

Vidéo 2 - Envoyer des SMS avec le code Delphi ci-dessus (Tutoriel vidéo)

Résumé

Après avoir lu cette description sur l'envoi de plusieurs SMS depuis Delphi, vous saurez comment préparer un utilisateur HTTP API dans Ozeki SMS Gateway pour cette solution. Utiliser ce système vous aide à contrôler les coûts et à suivre les messages. Les SMS entrants, les événements de livraison seront présentés sous forme d'événements, et les erreurs seront gérées correctement.

Ne vous arrêtez pas là, il y a beaucoup d'articles sur le site web d'Ozeki que vous pouvez consulter. Passez au tutoriel Delphi suivant sur Comment programmer un SMS.

Téléchargez Ozeki SMS Gateway maintenant et utilisez-le pour essayer ce que vous avez appris !

More information