Jak zaplanować wysłanie SMS w Delphi

Najprostszym sposobem wysyłania SMS z Delphi jest użycie wbudowanego interfejsu HTTP/Rest SMS API Ozeki SMS Gateway. Korzystając z tego API, wysyłasz wiadomości SMS poprzez wysłanie żądania HTTP Post do bramki SMS. Żądanie HTTP Post będzie zawierać wiadomość 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 wysyłania SMS na telefon

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

program SendScheduledSms;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Ozeki.Libs.Rest in '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 := 'Hello world!';
    msg.TimeToSend := StrToDateTime('7/27/21 4:00:00 PM');

    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.

	

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 swojego kodu źródłowego Delphi. To pozwoli Ci na korzystanie z klas dostarczonych przez jednostkę Ozeki.Libs.Rest. Możesz użyć klasy Message do tworzenia SMS. Możesz użyć klasy MessageApi do wysłania SMS do bramki SMS. Bramka SMS przekaże Twoją wiadomość do sieci komórkowej poprzez połączenie bezprzewodowe lub przez Internet.

Pobierz SendScheduledSms.delphi

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

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

Plik SendScheduledSms.delphi.zip zawiera jednostkę Ozeki.Libs.Rest, która daje Ci wszystkie narzędzia niezbędne do wysyłania i odbierania wiadomości SMS. Znajdziesz tam również projekt SendScheduledSms, 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 SendScheduledSms.delphi.zip
5. Otwórz plik SendScheduledSms.dproj w Delphi Studio, klikając na niego dwukrotnie
6. Uruchom aplikację Ozeki SMS Gateway
7. Uruchom kod Delphi SendScheduledSms.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 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 Delphi w Visual Studio. Po instalacji następnym krokiem jest podłączenie Ozeki SMS Gateway do sieci komórkowej. Możesz wysłać testowego SMS z interfejsu Ozeki, aby sprawdzić, czy Twoje połączenie z siecią komórkową działa. Ostatnim krokiem przygotowania środowiska jest 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, Twoje Delphi będzie musiało 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