Comment envoyer un SMS depuis Delphi

La manière la plus simple d'envoyer un 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 SMS en envoyant une requête HTTP Post à 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 renverra une réponse HTTP 200 OK à votre requête.

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

Code Delphi pour envoyer un SMS vers un mobile

L'exemple de code SMS Delphi ci-dessous montre comment envoyer un SMS en utilisant l'API SMS 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.

SendSms.delphi 
program SendSms;

{$APPTYPE CONSOLE}

{$R *.res}

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

var configuration : Ozeki.Libs.Rest.Configuration;
var msg : Ozeki.Libs.Rest.Message;
var api : Ozeki.Libs.Rest.MessageApi;
var result : MessageSendResult;
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';

    msg := Ozeki.Libs.Rest.Message.Create;
    msg.ToAddress := '+36201111111';
    msg.Text := 'Bonjour le monde !';

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

    result := api.SendMessage(msg);

    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/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 SendSMS.delphi

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

Que contient le fichier SendSms.delphi.zip ?

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

contenu du dossier send sms delphi
Figure 2 - Que contient SendSms.delphi.zip

Comment envoyer un SMS depuis Delphi (Instructions simples)

Pour envoyer un SMS depuis Delphi :

  1. Installez un utilisateur HTTP API
  2. Activez "Log communication events" dans l'onglet Advanced
  3. Configurez Embarcadero Delphi Studio
  4. Téléchargez puis extrayez le fichier SendSms.delphi.zip
  5. Ouvrez le fichier SendSms.dproj dans Delphi Studio en double-cliquant dessus
  6. Lancez l'application Ozeki SMS Gateway
  7. Exécutez le code Delphi SendSms.dpr dans Delphi Studio
  8. Vérifiez les logs pour voir si le SMS a été envoyé

Installez Ozeki SMS Gateway et créez 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 API SMS HTTP. 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 un SMS depuis Delphi

Pour envoyer un SMS depuis Delphi, votre application Delphi devra envoyer une requête HTTP à 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 un 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_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 un 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 un 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 le numéro du destinataire et le texte du message. 

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

{
	"messages": [
		{
			"message_id": "ae0d1fe5-7e93-4241-b31c-5b3ebf867c5b",
			"from_connection": "",
			"from_address": "",
			"from_station": "",
			"to_connection": "",
			"to_address": "+36201111111",
			"to_station": "",
			"text": "Bonjour le monde !",
			"create_date": "2021-07-27T14:22:12",
			"valid_until": "2021-08-03T14:22:12",
			"time_to_send": "2021-07-27T14:22:12",
			"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 du message. 

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

{
  "http_code": 200,
  "response_code": "SUCCESS",
  "response_msg": "Messages en attente de livraison.",
  "data": {
    "total_count": 1,
    "success_count": 1,
    "failed_count": 0,
    "messages": [
      {
        "message_id": "ae0d1fe5-7e93-4241-b31c-5b3ebf867c5b",
        "from_station": "%",
        "to_address": "+36201111111",
        "to_station": "%",
        "text": "Bonjour le monde !",
        "create_date": "2021-07-27 14:22:12",
        "valid_until": "2021-08-03 14:22:12",
        "time_to_send": "2021-07-27 14:22:12",
        "submit_report_requested": true,
        "delivery_report_requested": true,
        "view_report_requested": false,
        "tags": [
          {
            "name": "Type",
            "value": "SMS:TEXT"
          }
        ],
        "status": "SUCCESS"
      }
    ]
  }
}

Connectez votre passerelle SMS au réseau mobile et créez un compte utilisateur HTTP API

Nous supposons que vous avez déjà installé Ozeki SMS Gateway, et que vous avez connecté la passerelle au réseau mobile. Pour pouvoir envoyer un SMS vers un téléphone mobile depuis Delphi, vous devez configurer un compte utilisateur API HTTP dans Ozeki SMS Gateway.

Vidéo 1 - Comment configurer un compte utilisateur API HTTP (Tutoriel vidéo)

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

Cette vidéo vous montre comment télécharger le fichier SendSms.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 SendSms.delphi est placé sur le bureau Windows. Vous verrez également que nous double-cliquons sur le fichier de projet SendSms.dproj pour ouvrir le projet.

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

Exemple de SMS Delphi : SendSms.dproj

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

Figure 3 - SendSms.dproj

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

Après la soumission du SMS, il est conseillé de vérifier votre passerelle SMS, pour voir ce qu'elle a reçu. Vous pouvez vérifier le journal 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 3 - Envoi de SMS avec le code Delphi ci-dessus (Tutoriel vidéo)

Comment vérifier que le SMS a été envoyé vers le réseau mobile

La dernière étape pour vérifier la procédure consiste à consulter les journaux de la connexion au réseau mobile. Vous devrez peut-être activer la journalisation dans la configuration de la connexion avant d'envoyer le message pour voir les journaux. Si la journalisation est activée, vous verrez le numéro de téléphone et le texte du message que vous avez envoyé.

Vidéo 4 - Comment tester si la requête a été acceptée par le client SMPP (Tutoriel vidéo)

À quoi ressemble la réception d'un SMS sur Android (Tutoriel vidéo)

Dans cette vidéo, nous allons vous montrer à quoi ressemble la réception d'un SMS sur Android. La vidéo ne dure que 18 secondes, mais vous pouvez y voir tout le processus. Elle commence par une page d'accueil Android ordinaire. Vous verrez la notification pour le SMS et l'application Messages ouverte avec le message visible.

Vidéo 5 - SMS reçu sur le téléphone mobile (Tutoriel vidéo)

Résumé

Cet article vous a montré la manière la plus simple d'envoyer un SMS depuis Delphi. Si vous avez lu ce tutoriel, vous savez comment créer un utilisateur API SMS HTTP dans Ozeki SMS Gateway pour pouvoir envoyer des SMS depuis Delphi. L'un des nombreux avantages de cette solution est que l'exemple de SMS Delphi donné peut être utilisé et modifié par vous dans n'importe lequel de vos projets.

Vous pouvez trouver d'autres documents qui proposent d'autres codes de programme Delphi, profitez de chaque opportunité et étudiez-les. Si vous souhaitez utiliser ce service Ozeki SMS Gateway dans un cadre plus large, consultez l'article Comment télécharger la dernière unité API SMS Delphi depuis Github et apprenez-en plus.

Téléchargez Ozeki SMS Gateway maintenant et configurez le système !

More information