Jak usunąć SMS w Delphi

Najprostszym sposobem na usunięcie SMS-a w Delphi jest użycie wbudowanego interfejsu HTTP/Rest SMS API Ozeki SMS Gateway. Kiedy używasz tego API, wysyłasz wiadomości SMS poprzez wysłanie żądania HTTP Post do bramki SMS. Żądanie HTTP Post będzie zawierać wiadomość sformatowaną w formacie JSON. Bramka SMS wyśle tę wiadomość na telefon odbiorcy i zwróci odpowiedź HTTP 200 OK na Twoje żądanie.

Kod Delphi do usuwania SMS

Poniższy przykładowy kod SMS w Delphi demonstruje, jak możesz wysłać SMS za pomocą interfejsu HTTP REST SMS API Ozeki SMS Gateway, używając jednostki Ozeki.Libs.Rest w Delphi. Ta jednostka jest dostarczana bezpłatnie i możesz jej używać oraz modyfikować w dowolnym z Twoich projektów.

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.
	

Jak używać przykładu SMS w Delphi:

Ten przykład SMS w Delphi może być używany w dowolnej aplikacji Delphi. Aby go użyć, musisz dodać jednostkę Ozeki.Libs.Rest.pas do swojego projektu. Po dodaniu jednostki musisz umieścić dyrektywę uses Ozeki.Libs.Rest in 'Ozeki.Libs.Rest.pas'; w sekcji nagłówkowej Twojego kodu źródłowego Delphi. To pozwoli Ci używać klas dostarczonych przez jednostkę Ozeki.Libs.Rest. Możesz użyć klasy Message do tworzenia SMS-a. Możesz użyć klasy MessageApi, aby wysłać SMS do bramki SMS. Bramka SMS przekieruje Twoją wiadomość do sieci komórkowej poprzez połączenie bezprzewodowe lub Internet.

Pobierz DeleteSms.delphi

Kod źródłowy omówiony w tym artykule można pobrać, używać i modyfikować bezpłatnie.
Pobierz: DeleteSms.delphi.zip (11.4Kb)

Co znajduje się w pliku DeleteSms.delphi.zip?

Plik DeleteSms.delphi.zip zawiera jednostkę Ozeki.Libs.Rest, która dostarcza wszystkich narzędzi niezbędnych do wysyłania i odbierania wiadomości SMS. Znajdziesz tam również projekt DeleteSms, który zawiera przykładowy kod pokazujący, jak wysłać SMS. Ten przykładowy kod jest wymieniony poniżej.

Jak wysłać SMS z Delphi (Proste wskazówki)

Aby wysłać SMS z Delphi:

1. Zainstaluj użytkownika HTTP API
2. Włącz Logowanie zdarzeń komunikacyjnych na karcie Zaawansowane
3. Skonfiguruj Embarcadero Delphi Studio
4. Pobierz, a następnie rozpakuj plik DeleteSms.delphi.zip
5. Otwórz plik DeleteSms.dproj w Delphi Studio, klikając na niego dwukrotnie
6. Uruchom aplikację Ozeki SMS Gateway
7. Uruchom kod Delphi DeleteSms.dpr w Delphi Studio
8. Sprawdź logi, aby zobaczyć, czy SMS został wysłany

Zainstaluj Ozeki SMS Gateway i utwórz użytkownika HTTP API

Aby móc wysyłać SMS-y z Delphi, najpierw musisz zainstalować Ozeki SMS Gateway. Bramka SMS może być zainstalowana na tym samym komputerze, na którym tworzysz swój kod w Delphi. Po instalacji następnym krokiem jest podłączenie Ozeki SMS Gateway do sieci komórkowej. Możesz utworzenie użytkownika HTTP SMS API. Utwórz użytkownika z nazwą "http_user" i hasłem "qwe123", aby przykład działał bez modyfikacji.

Po skonfigurowaniu środowiska możesz uruchomić swój kod Delphi.

URL API HTTP do wysyłania SMS z Delphi

Aby wysłać SMS z Delphi, Twoja aplikacja Delphi będzie musiała wysłać żądanie HTTP do bramki SMS. URL API jest pokazany poniżej. Pamiętaj, że adres IP (127.0.0.1) powinien zostać zastąpiony adresem IP Twojej bramki SMS. Jeśli Ozeki SMS Gateway jest zainstalowany na tym samym komputerze, na którym działa aplikacja Delphi SMS, może to być 127.0.0.1. Jeśli jest zainstalowany na innym komputerze, powinien to być adres IP tego komputera.

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

Uwierzytelnianie HTTP do wysyłania SMS z Delphi

Aby uwierzytelnić klienta SMS w Delphi, należy wysłać nazwę użytkownika i hasło w postaci zakodowanej w base64 do serwera w żądaniu HTTP. Używany format to: base64(nazwa_użytkownika+":"+hasło). W Delphi możesz użyć następującego kodu do wykonania tego kodowania:

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

Na przykład, jeśli zakodujesz nazwę użytkownika 'http_user' i hasło 'qwe123', otrzymasz następujący zakodowany ciąg base64: aHR0cF91c2VyOnF3ZTEyMw==. Aby wysłać

Nagłówek żądania HTTP do wysyłania SMS z Delphi

Aby wysłać wiadomości SMS, należy dołączyć następujące linie jako nagłówki w żądaniu HTTP. Zwróć uwagę, że zawieramy typ zawartości i nagłówek Authorization.

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

Żądanie HTTP do wysyłania SMS z Delphi

Aby przesłać SMS, Twoja aplikacja Delphi wyśle żądanie HTTP podobne do poniższego. Zwróć uwagę, że to żądanie zawiera część nagłówka HTTP i część ciała HTTP. Ciało HTTP to ciąg danych zakodowany w formacie JSON. Zawiera identyfikatory wiadomości, które chcemy usunąć.

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"
	]
}
	

Odpowiedź HTTP otrzymana przez przykład SMS w Delphi

Gdy brama SMS otrzyma to żądanie, wygeneruje odpowiedź HTTP. Odpowiedź HTTP będzie zawierać kod statusu, wskazujący, czy żądanie wysłania SMS zakończyło się sukcesem, czy nie. Zwróci również strukturę zakodowaną w formacie JSON, aby dostarczyć przydatne informacje o przesłaniu wiadomości.

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"
    ]
  }
}
	

Jak wysyłać SMS z Delphi za pomocą API SMS Delphi (Samouczek wideo)

Ten film pokazuje, jak pobrać plik DeleteSms.delphi.zip z tej strony i jak pobrać jego zawartość w Delphi studio. Jeśli obejrzysz film, zauważysz, że zawartość pliku zip DeleteSms.delphi jest umieszczana na pulpicie systemu Windows. Zobaczysz również, że klikamy dwukrotnie plik projektu DeleteSms.dproj, aby otworzyć projekt.

Przykład SMS w Delphi: DeleteSms.dproj

W tym rozwiązaniu jest tylko jeden projekt: DeleteSms.dproj oraz dwa pliki: DeleteSms.dpr i Ozeki.Libs.Rest.pas.

Jak sprawdzić, czy SMS został zaakceptowany przez użytkownika HTTP

Po przesłaniu SMS-a warto sprawdzić w bramie SMS, co zostało odebrane. Możesz sprawdzić dziennik, otwierając szczegóły użytkownika HTTP z konsoli zarządzania Ozeki SMS Gateway. Poniższy film pokazuje, na co zwrócić uwagę.

Podsumowanie

Ten przewodnik zawierał wszystkie informacje potrzebne do korzystania z przykładu SMS w Delphi do usuwania SMS za pomocą użytkownika HTTP SMS API w Ozeki SMS Gateway. Korzystanie z tego API SMS Delphi pomaga utrzymać system wiadomości w organizacji i zapewnia płynne działanie biznesu. Zawiera pełny kod źródłowy, który możesz używać i modyfikować bez żadnych ograniczeń dla swoich projektów.

Możesz potrzebować również innych funkcjonalności, w każdym przypadku kontynuuj czytanie. Przejdź do artykułu Jak wysyłać SMS z Delphi na stronie Ozeki.

Pobierz Ozeki SMS Gateway i wykorzystaj to, czego się teraz nauczyłeś!