SMS-Versand von Delphi aus

Der einfachste Weg, SMS von Delphi aus zu versenden, ist die Verwendung der integrierten HTTP/Rest-SMS-API von Ozeki SMS Gateway. Wenn Sie diese API verwenden, senden Sie SMS-Nachrichten, indem Sie eine HTTP-Post-Anfrage an das SMS-Gateway stellen. Die HTTP-Post-Anfrage wird eine Nachricht im JSON-Format enthalten. Das SMS-Gateway sendet diese SMS an die Empfängertelefonnummer und gibt eine HTTP-200-OK-Antwort auf Ihre Anfrage zurück.

SMS-Versand von Delphi aus
Abbildung 1 - SMS-Versand von Delphi aus

Delphi-Code zum Senden von SMS an Mobiltelefone

Das folgende Delphi-SMS-Codebeispiel zeigt, wie Sie SMS mit der HTTP-Rest-SMS-API von Ozeki SMS Gateway unter Verwendung der Delphi-Ozeki.Libs.Rest-Unit senden können. Diese Unit wird Ihnen kostenlos zur Verfügung gestellt und kann in beliebigen Projekten verwendet und modifiziert werden.

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 := 'Hallo Welt!';

    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.

Verwendung des Delphi-SMS-Beispiels:

Dieses Delphi-SMS-Beispiel kann in jeder Delphi-Anwendung verwendet werden. Um es zu nutzen, müssen Sie die Ozeki.Libs.Rest.pas-Unit zu Ihrem Projekt hinzufügen. Nachdem die Unit hinzugefügt wurde, müssen Sie die uses Ozeki.Libs.Rest in '../Ozeki.Libs.Rest/Ozeki.Libs.Rest.pas';-Direktive in den Kopfbereich Ihres Delphi-Quellcodes einfügen. Dadurch können Sie die Klassen der Ozeki.Libs.Rest-Unit verwenden. Mit der Message-Klasse können Sie die SMS erstellen. Mit der MessageApi-Klasse können Sie die SMS senden an das SMS-Gateway. Das SMS-Gateway leitet Ihre Nachricht entweder über eine drahtlose Verbindung oder über das Internet an das Mobilfunknetz weiter.

SendSMS.delphi herunterladen

Der in diesem Artikel erklärte Quellcode kann kostenlos heruntergeladen, verwendet und modifiziert werden.
Download: SendSms.delphi.zip (11,8Kb)

Was befindet sich in der SendSms.delphi.zip-Datei?

Die SendSms.delphi.zip-Datei enthält die Ozeki.Libs.Rest-Unit, die Ihnen alle notwendigen Werkzeuge zum Senden und Empfangen von SMS-Nachrichten bietet. Sie finden dort auch das SendSms-Projekt, das den Beispielcode enthält, der Ihnen zeigt, wie Sie eine SMS senden können. Dieser Beispielcode ist unten aufgeführt.

SMS-Versand von Delphi aus - Verzeichnis
Abbildung 2 - Inhalt der SendSms.delphi.zip-Datei

SMS-Versand von Delphi aus (Einfache Anleitung)

So senden Sie SMS von Delphi aus:

  1. Installieren Sie einen HTTP-API-Benutzer
  2. Aktivieren Sie "Log communication events" auf der Registerkarte "Advanced"
  3. Richten Sie Embarcadero Delphi Studio ein
  4. Laden Sie die SendSms.delphi.zip-Datei herunter und entpacken Sie sie
  5. Öffnen Sie die SendSms.dproj-Datei in Delphi Studio durch Doppelklick
  6. Starten Sie die Ozeki SMS Gateway-App
  7. Führen Sie den SendSms.dpr-Delphi-Code in Delphi Studio aus
  8. Überprüfen Sie die Protokolle, um zu sehen, ob die SMS gesendet wurde

Ozeki SMS Gateway installieren und einen HTTP-API-Benutzer erstellen

Um SMS von Delphi aus senden zu können, müssen Sie zunächst Ozeki SMS Gateway installieren. Das SMS-Gateway kann auf demselben Computer installiert werden, auf dem Sie Ihren Delphi-Code in Visual Studio entwickeln. Nach der Installation ist der nächste Schritt, Ozeki SMS Gateway mit dem Mobilfunknetz zu verbinden. Sie können eine Test-SMS über die Ozeki-GUI senden, um zu überprüfen, ob Ihre Mobilfunknetzverbindung funktioniert. Der letzte Schritt zur Vorbereitung Ihrer Umgebung ist die Erstellung eines HTTP-SMS-API-Benutzerkontos. Erstellen Sie einen Benutzer mit dem Benutzernamen "http_user" und dem Passwort "qwe123", damit das Beispiel ohne Änderungen funktioniert.

Nachdem die Umgebung eingerichtet ist, können Sie Ihren Delphi-Code ausführen.

HTTP-API-URL für den SMS-Versand von Delphi aus

Um SMS von Delphi aus zu senden, muss Ihre Delphi-Anwendung eine HTTP-Anfrage an das SMS-Gateway stellen. Die API-URL wird unten angezeigt. Beachten Sie, dass die IP-Adresse (127.0.0.1) durch die IP-Adresse Ihres SMS-Gateways ersetzt werden sollte. Wenn Ozeki SMS Gateway auf demselben Computer installiert ist, auf dem die Delphi-SMS-Anwendung läuft, kann dies 127.0.0.1 sein. Wenn es auf einem anderen Computer installiert ist, sollte es die IP-Adresse dieses Computers sein. 

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

HTTP-Authentifizierung zum Senden von SMS aus Delphi

Um den Delphi-SMS-Client zu authentifizieren, müssen Sie den Benutzernamen und das Passwort in einer base64-kodierten Zeichenfolge an den Server in einer HTTP-Anfrage senden. Das verwendete Format lautet: base64(Benutzername+":"+Passwort). In Delphi können Sie den folgenden Code verwenden, um diese Kodierung durchzuführen: 

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

Wenn Sie beispielsweise den Benutzernamen 'http_user' und das Passwort 'qwe123' kodieren, erhalten Sie die folgende base64-kodierte Zeichenfolge: aHR0cF91c2VyOnF3ZTEyMw==. Zum Senden

HTTP-Anfrageheader zum Senden von SMS aus Delphi

Um die SMS-Nachrichten zu senden, müssen Sie die folgenden Zeilen als Header in die HTTP-Anfrage aufnehmen. Beachten Sie, dass wir einen Content-Type- und einen Authorization-Header einfügen. 

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

HTTP-Anfrage zum Senden von SMS aus Delphi

Um die SMS zu übermitteln, sendet Ihre Delphi-Anwendung eine HTTP-Anfrage ähnlich der untenstehenden. Beachten Sie, dass diese Anfrage einen HTTP-Header-Teil und einen HTTP-Body-Teil enthält. Der HTTP-Body ist eine JSON-kodierte Datenzeichenfolge. Sie enthält die Nummer des Empfängers und den Text der Nachricht. 

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": "Hallo Welt!",
			"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
		}
	]
}

HTTP-Antwort, die vom Delphi-SMS-Beispiel empfangen wird

Sobald das SMS-Gateway diese Anfrage empfängt, wird es eine HTTP-Antwort generieren. Die HTTP-Antwort enthält einen Statuscode, der angibt, ob die SMS-Übermittlungsanfrage erfolgreich war oder nicht. Es wird auch eine JSON-kodierte Struktur zurückgegeben, die Ihnen nützliche Details über die Übermittlung der Nachricht liefert. 

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": "ERFOLG",
  "response_msg": "Nachrichten wurden zur Zustellung in die Warteschlange gestellt.",
  "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": "Hallo Welt!",
        "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": "Typ",
            "value": "SMS:TEXT"
          }
        ],
        "status": "ERFOLG"
      }
    ]
  }
}

Verbinden Sie Ihr SMS-Gateway mit dem Mobilfunknetz und erstellen Sie ein HTTP-API-Benutzerkonto

Wir gehen davon aus, dass Sie bereits Ozeki SMS Gateway installiert haben und es mit dem Mobilfunknetz verbunden haben. Um SMS an ein Mobiltelefon aus Delphi senden zu können, müssen Sie ein HTTP-API-Benutzerkonto in Ozeki SMS Gateway einrichten.

Video 1 - Wie Sie ein HTTP-API-Benutzerkonto einrichten (Video-Tutorial)

Wie Sie SMS aus Delphi mit der Delphi-SMS-API senden (Video-Tutorial)

Dieses Video zeigt Ihnen, wie Sie die Datei SendSms.delphi.zip von dieser Seite herunterladen und wie Sie deren Inhalt in Delphi Studio öffnen. Wenn Sie das Video ansehen, werden Sie feststellen, dass der Inhalt der SendSms.delphi-Zip-Datei auf den Windows-Desktop platziert wird. Sie werden auch sehen, dass wir auf die SendSms.dproj-Projektdatei doppelklicken, um das Projekt zu öffnen.

Delphi-SMS-Beispiel: SendSms.dproj

In dieser Lösung gibt es nur ein Projekt: SendSms.dproj und zwei Dateien: SendSms.dpr und Ozeki.Libs.Rest.pas.

Abbildung 3 - SendSms.dproj

Wie Sie überprüfen, ob die SMS vom HTTP-Benutzer akzeptiert wurde

Nachdem die SMS übermittelt wurde, ist es eine gute Idee, Ihr SMS-Gateway zu überprüfen, um zu sehen, was es empfangen hat. Sie können das Protokoll überprüfen, indem Sie die Details des HTTP-Benutzers aus der Ozeki SMS Gateway-Verwaltungskonsole öffnen. Das folgende Video zeigt Ihnen, worauf Sie achten müssen.

Video 3 - SMS mit dem obigen Delphi-Code senden (Video- Tutorial)

Wie Sie überprüfen, ob die SMS an das Mobilfunknetz gesendet wurde

Der letzte Schritt zur Überprüfung des Verfahrens besteht darin, die Protokolle der Mobilfunknetzverbindung zu überprüfen. Möglicherweise müssen Sie die Protokollierung in der Konfiguration der Verbindung aktivieren, bevor Sie die Nachricht senden, um die Protokolle einzusehen. Wenn die Protokollierung aktiviert ist, sehen Sie die Telefonnummer und den Text der von Ihnen gesendeten Nachricht.

Video 4 - Wie Sie testen, ob die Anfrage vom SMPP-Client akzeptiert wurde (Video-Tutorial)

Wie das Empfangen einer SMS-Nachricht auf Android aussieht (Video-Tutorial)

In diesem Video zeigen wir Ihnen, wie das Empfangen einer SMS-Nachricht auf Android aussieht. Das Video ist nur 18 Sekunden lang, aber Sie können den gesamten Prozess darin sehen. Es beginnt mit einer gewöhnlichen Android-Startseite. Sie werden die Benachrichtigung für die SMS und die geöffnete Nachrichten-App mit der sichtbaren Nachricht sehen.

Video 5 - SMS-Nachricht auf dem Mobiltelefon empfangen (Video-Tutorial)

Zusammenfassung

Dieser Artikel hat Ihnen den einfachsten Weg gezeigt, um SMS aus Delphi zu senden. Wenn Sie dieses Tutorial gelesen haben, wissen Sie, wie Sie einen HTTP-SMS-API-Benutzer im Ozeki SMS Gateway erstellen, um SMS aus Delphi senden zu können. Einer der vielen Vorteile dieser Lösung ist, dass das gegebene Delphi-SMS-Beispiel von Ihnen in jedem Ihrer Projekte verwendet und modifiziert werden kann.

Sie können weitere Dokumente finden, die andere Delphi-Programmcodes anbieten. Nutzen Sie jede Gelegenheit und studieren Sie diese. Wenn Sie diesen Ozeki SMS Gateway-Dienst in einem größeren Rahmen nutzen möchten, lesen Sie den Artikel Wie Sie die neueste Delphi-SMS-API-Unit von Github herunterladen und erfahren Sie mehr.

Laden Sie das Ozeki SMS Gateway jetzt herunter und richten Sie das System ein!

More information