Kako primiti SMS u Delphi-u

Najjednostavniji način za primanje SMS-a iz Delphi-a je korištenje ugrađenog HTTP/Rest SMS API-ja Ozeki SMS Gateway-a. Kada koristite ovaj API, slati ćete SMS poruke izdavanjem HTTP Post zahtjeva prema SMS gateway-u. HTTP Post zahtjev će sadržavati poruku formatiranu u json formatu. SMS gateway će poslati ovaj SMS primatelju na telefon i vratit će HTTP 200 OK odgovor na vaš zahtjev.

kako primiti sms u delphi-u
Slika 1 - Kako primiti SMS u Delphi-u

Delphi kod za primanje SMS-a

Delphi SMS kod primjer ispod pokazuje kako možete poslati SMS koristeći http rest sms api Ozeki SMS Gateway-a koristeći Delphi Ozeki.Libs.Rest jedinicu. Ova jedinica vam je dostupna besplatno, i možete je koristiti i mijenjati u bilo kojem od vaših projekata.

ReceiveSms.delphi 
program ReceiveSms;

{$APPTYPE CONSOLE}

{$R *.res}

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

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

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

    result := api.DownloadIncoming;

    Writeln(result.ToString);

    for message in result.Messages do
    begin
      Writeln(message.ToString);
    end;

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

Kako koristiti Delphi SMS primjer:

Ovaj Delphi SMS primjer može se koristiti u bilo kojoj Delphi aplikaciji. Da biste ga koristili, morate dodati Ozeki.Libs.Rest.pas jedinicu u svoj projekt. Nakon dodavanja jedinice, morate staviti uses Ozeki.Libs.Rest in 'Ozeki.Libs.Rest.pas'; direktivu u zaglavlje vašeg Delphi izvornog koda. To će vam omogućiti korištenje klasa koje pruža Ozeki.Libs.Rest jedinica. Možete koristiti klasu Message za kreiranje SMS-a. Možete koristiti klasu MessageApi za slanje SMS-a prema SMS gateway-u. SMS gateway će proslijediti vašu poruku mobilnoj mreži bilo putem bežične veze ili putem interneta.

Preuzmi ReceiveSms.delphi

Izvorni kod objašnjen u ovom članku može se preuzeti, koristiti i mijenjati besplatno.
Preuzmi: ReceiveSms.delphi.zip (11.9Kb)

Što se nalazi u ReceiveSms.delphi.zip datoteci?

ReceiveSms.delphi.zip datoteka sadrži Ozeki.Libs.Rest jedinicu, koja vam daje sve potrebne alate za slanje i primanje SMS poruka. Također ćete pronaći ReceiveSms projekt u zip datoteci, koji sadrži primjer koda koji pokazuje kako poslati SMS. Ovaj primjer koda je naveden ispod.

direktorij za primanje sms-a u delphi-u
Slika 2 - Što se nalazi u ReceiveSms.delphi.zip

Kako poslati SMS iz Delphi-a (Jednostavne smjernice)

Za slanje SMS-a iz Delphi-a:

  1. Instalirajte HTTP API korisnika
  2. Omogućite Log komunikacijske događaje na Advanced kartici
  3. Postavite Embarcadero Delphi Studio
  4. Preuzmite i raspakirajte ReceiveSms.delphi.zip datoteku
  5. Otvorite ReceiveSms.dproj datoteku u Delphi Studio dvostrukim klikom na nju
  6. Pokrenite Ozeki SMS Gateway aplikaciju
  7. Pokrenite ReceiveSms.dpr Delphi kod u Delphi Studio
  8. Provjerite zapisnike da vidite je li SMS poslan

Instalirajte Ozeki SMS Gateway i kreirajte HTTP API korisnika

Da biste mogli slati SMS iz Delphi-a, prvo morate instalirati Ozeki SMS Gateway. SMS gateway se može instalirati na istom računalu gdje razvijate svoj Delphi kod u Visual studio-u. Nakon instalacije, sljedeći korak je povezivanje Ozeki SMS Gateway-a s mobilnom mrežom. Možete poslati testni sms iz Ozeki GUI-a kako biste potvrdili da vaša mobilna mrežna veza radi. Konačni korak za pripremu vašeg okruženja je kreiranje HTTP sms api korisničkog računa. Kreirajte korisnika s korisničkim imenom "http_user" i lozinkom "qwe123" kako bi primjer radio bez izmjena.

Nakon postavljanja okruženja, možete pokrenuti svoj Delphi kod.

HTTP API url za slanje SMS-a iz Delphi-a

Da biste poslali SMS iz Delphi-a, vaš Delphi će morati izdati HTTP zahtjev prema SMS gateway-u. API url je prikazan ispod. Imajte na umu da IP adresa (127.0.0.1) treba biti zamijenjena IP adresom vašeg SMS gateway-a. Ako je Ozeki SMS Gateway instaliran na istom računalu gdje se pokreće Delphi sms aplikacija, ovo može biti 127.0.0.1. Ako je instaliran na drugom računalu, treba biti IP adresa tog računala. 

http://127.0.0.1:9509/api?action=rest
HTTP autentifikacija za slanje SMS-a iz Delphija

Za autentifikaciju Delphi SMS klijenta, potrebno je poslati korisničko ime i lozinku u base64 kodiranom stringu na server u HTTP zahtjevu. Korišteni format je: base64(korisničko_ime+":"+lozinka). U Delphi-u možete koristiti sljedeći kod za ovu enkodiranje: 

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

Na primjer, ako enkodirate korisničko ime 'http_user' i lozinku 'qwe123', dobit ćete sljedeći base64 kodirani string: aHR0cF91c2VyOnF3ZTEyMw==. Za slanje

HTTP zaglavlje zahtjeva za slanje SMS-a iz Delphija

Za slanje SMS poruka, potrebno je uključiti sljedeće retke kao zaglavlja u HTTP zahtjev. Imajte na umu da uključujemo Content-Type i Authorization zaglavlje. 

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

HTTP zahtjev za slanje SMS-a iz Delphija

Za slanje SMS-a, vaša Delphi aplikacija će poslati HTTP zahtjev sličan donjem primjeru. Imajte na umu da ovaj zahtjev sadrži samo dio HTTP zaglavlja, koji sadrži sve potrebne informacije za preuzimanje svake pojedine poruke iz određene mape. 

GET /api?action=receivemsg&folder=inbox HTTP/1.1
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 127.0.0.1:9509
Accept: application/json
User-Agent: Mozilla/3.0 (compatible; Indy Library)

HTTP odgovor primljen od Delphi SMS primjera

Nakon što SMS gateway primi ovaj zahtjev, generirat će HTTP odgovor. HTTP odgovor će sadržavati statusni kod, kako bi naznačio je li zahtjev za slanje SMS-a uspješan ili ne. Također će vratiti JSON kodiranu strukturu koja vam pruža korisne detalje o slanju poruke. 

HTTP/1.1 200 OK
Transfer-Encoding: chunked
Content-Type: application/json; charset=utf8
Last-Modified: Tue, 27 Jul 2021 15:49:18 GMT
Server: 10/10.3.123 Microsoft-HTTPAPI/2.0
User-Agent: OZEKI 10.3.123 (myozeki.com)
Date: Tue, 27 Jul 2021 14:10:33 GMT

{
  "http_code": 200,
  "response_code": "SUCCESS",
  "response_msg": "",
  "data": {
    "folder": "inbox",
    "limit": "1000",
    "data": [
      {
        "message_id": "be5e98cf-2bcb-d8dc-94ae-aa909504afe7",
        "from_connection": "http_user@localhost",
        "from_address": "+36201111111",
        "from_station": "%",
        "to_connection": "http_user@localhost",
        "to_address": "http_user",
        "to_station": "%",
        "text": "Hello world 1",
        "create_date": "2021-07-27 16:06:02",
        "valid_until": "2021-08-03 16:06:02",
        "time_to_send": "2021-07-27 16:06:02",
        "submit_report_requested": true,
        "delivery_report_requested": true,
        "view_report_requested": true,
        "tags": [
          {
            "name": "Type",
            "value": "SMS:TEXT"
          }
        ]
      },
      {
        "message_id": "466d737f-68d5-f64d-84d8-ac0a3f950543",
        "from_connection": "http_user@localhost",
        "from_address": "+36202222222",
        "from_station": "%",
        "to_connection": "http_user@localhost",
        "to_address": "http_user",
        "to_station": "%",
        "text": "Hello world 2",
        "create_date": "2021-07-27 16:06:02",
        "valid_until": "2021-08-03 16:06:02",
        "time_to_send": "2021-07-27 16:06:02",
        "submit_report_requested": true,
        "delivery_report_requested": true,
        "view_report_requested": true,
        "tags": [
          {
            "name": "Type",
            "value": "SMS:TEXT"
          }
        ]
      },
      {
        "message_id": "36069eca-95c1-bced-8876-ece0dcd74acd",
        "from_connection": "http_user@localhost",
        "from_address": "+36203333333",
        "from_station": "%",
        "to_connection": "http_user@localhost",
        "to_address": "http_user",
        "to_station": "%",
        "text": "Hello world 3",
        "create_date": "2021-07-27 16:06:02",
        "valid_until": "2021-08-03 16:06:02",
        "time_to_send": "2021-07-27 16:06:02",
        "submit_report_requested": true,
        "delivery_report_requested": true,
        "view_report_requested": true,
        "tags": [
          {
            "name": "Type",
            "value": "SMS:TEXT"
          }
        ]
      }
    ]
  }
}

Kako poslati SMS iz Delphija koristeći Delphi SMS API (Video tutorial)

Ovaj video vam pokazuje kako preuzeti datoteku ReceiveSms.delphi.zip s ove stranice i kako preuzeti njen sadržaj u Delphi studio. Ako pogledate video, primijetit ćete da je sadržaj ReceiveSms.delphi zipa smješten na Windows radnu površinu. Također ćete vidjeti da dvoklikom na ReceiveSms.dproj datoteku otvaramo projekt.

Delphi SMS primjer: ReceiveSms.dproj

U ovom rješenju postoji samo jedan projekt: ReceiveSms.dproj i dvije datoteke: ReceiveSms.dpr i Ozeki.Libs.Rest.pas.

Slika 2 - ReceiveSms.dproj

Kako provjeriti je li SMS prihvaćen od strane HTTP korisnika

Nakon što je SMS poslan, dobro je provjeriti svoj SMS pristupnik, kako biste vidjeli što je primio. Dnevnik možete provjeriti otvaranjem detalja HTTP korisnika iz upravljačke konzole Ozeki SMS pristupnika. Sljedeći videozapis pokazuje što trebate tražiti.

Video 2 - Slanje SMS-a s gore navedenim Delphi kodom (Video vodič)

Završne misli

Prateći ovaj vodič, naučili ste kako koristiti HTTP SMS API korisnika u Ozeki SMS pristupniku za primanje SMS-a iz Delphija. Ovaj Delphi SMS primjer je jednostavan i lako ga je postaviti, bit će kompatibilan s bilo kojom vrstom Delphi aplikacije koju imate. Ova usluga može učiniti vašu organizaciju učinkovitijom jer vam omogućuje brzo i glatko dostavljanje vrijednih informacija.

Možda će vam trebati Delphi SMS API s drugim funkcionalnostima, stoga nemojte prestati čitati ovdje. Pronađite više mogućnosti u članku Kako preuzeti najnoviju Delphi SMS API jedinicu s GitHub-a.

Preuzmite Ozeki SMS pristupnik i unaprijedite svoje poslovanje odmah!

More information