Wie man eine SMS in Delphi löscht

Der einfachste Weg, SMS aus Delphi zu löschen, ist die Verwendung der integrierten HTTP/Rest-SMS-API des Ozeki SMS Gateways. 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 den Empfänger und gibt eine HTTP-200-OK-Antwort auf Ihre Anfrage zurück.

Delphi-Code zum Löschen einer SMS

Das folgende Delphi-SMS-Codebeispiel zeigt, wie Sie SMS mit der HTTP-Rest-SMS-API des Ozeki SMS Gateways unter Verwendung der Delphi-Ozeki.Libs.Rest-Unit senden können. Diese Unit wird Ihnen kostenlos zur Verfügung gestellt, und Sie können sie in Ihren Projekten verwenden und modifizieren.

program DeleteSms;

{$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 : Boolean;
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.ID := '55057970-614c-27b5-a5db-b4dee76fa276';

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

    result := api.DeleteMessage(Inbox, msg);

    Writeln(result);

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

Wie man das Delphi-SMS-Beispiel verwendet:

Dieses Delphi-SMS-Beispiel kann in jeder Delphi-Anwendung verwendet werden. Um es zu verwenden, 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.pas';-Direktive in den Kopfbereich Ihres Delphi-Quellcodes einfügen. Dies ermöglicht Ihnen die Verwendung der Klassen, die von der Ozeki.Libs.Rest-Unit bereitgestellt werden. Sie können die Message-Klasse verwenden, um die SMS zu erstellen. Sie können die MessageApi-Klasse verwenden, um die SMS an das SMS-Gateway zu senden. Das SMS-Gateway leitet Ihre Nachricht entweder über eine drahtlose Verbindung oder über das Internet an das Mobilfunknetz weiter.

DeleteSms.delphi herunterladen

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

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

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

Wie man SMS aus Delphi sendet (Einfache Anleitung)

Um SMS aus Delphi zu senden:

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 DeleteSms.delphi.zip-Datei herunter und entpacken Sie sie
5. Öffnen Sie die DeleteSms.dproj-Datei in Delphi Studio durch Doppelklick
6. Starten Sie die Ozeki SMS Gateway App
7. Führen Sie den DeleteSms.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 aus Delphi 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 aus der 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 zum Senden von SMS aus Delphi

Um SMS aus Delphi 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 Zeichenkette 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 Zeichenkette: 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 Datenzeichenkette. Er enthält die Nachrichten-IDs der Nachrichten, die wir löschen möchten.

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

{
	"folder": "inbox",
	"message_ids": [
		"83845306-8e42-4f5c-a397-be1ddb34ffa2"
	]
}
	

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

Sobald das SMS-Gateway diese Anfrage erhält, 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: Wed, 28 Jul 2021 07:30:00 GMT
Server: 10/10.3.123 Microsoft-HTTPAPI/2.0
User-Agent: OZEKI 10.3.123 (www.myozeki.com)
Date: Wed, 28 Jul 2021 06:17:50 GMT
Connection: close

{
  "http_code": 200,
  "response_code": "SUCCESS",
  "response_msg": "",
  "data": {
    "folder": "inbox",
    "message_ids": [
      "83845306-8e42-4f5c-a397-be1ddb34ffa2"
    ]
  }
}
	

Wie man SMS aus Delphi mit der Delphi-SMS-API sendet (Video-Tutorial)

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

Delphi-SMS-Beispiel: DeleteSms.dproj

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

Wie man überprüft, 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 Management-Konsole öffnen. Das folgende Video zeigt Ihnen, worauf Sie achten müssen.

Zusammenfassung

Diese Anleitung enthielt alle Informationen, die Sie benötigen, um das Delphi-SMS-Beispiel zum Löschen von SMS mit dem HTTP-SMS-API-Benutzer im Ozeki SMS Gateway verwenden zu können. Die Verwendung dieser Delphi-SMS-API hilft Ihnen, Ihr Nachrichtensystem organisiert zu halten und Ihr Geschäft reibungslos abzuwickeln. Sie wird mit dem vollständigen Quellcode geliefert und kann ohne Einschränkungen für Ihre Projekte verwendet und modifiziert werden.

Möglicherweise benötigen Sie auch andere Funktionen, lesen Sie in jedem Fall weiter. Lesen Sie weiter im Artikel Wie man SMS aus Delphi sendet auf der Ozeki-Website.

Laden Sie das Ozeki SMS Gateway herunter und wenden Sie das Gelernte an!