Kako izbrisati SMS u Delphi

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

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

Delphi kod za brisanje SMS-a

Delphi SMS kod primjer ispod pokazuje kako možete poslati SMS koristeći http rest SMS API Ozeki SMS Gatewaya 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.

DeleteSms.delphi 
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.

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 SMS gatewayu. SMS gateway će proslijediti vašu poruku mobilnoj mreži bilo putem bežične veze ili putem interneta.

Preuzmi DeleteSms.delphi

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

Što je u DeleteSms.delphi.zip datoteci?

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

primi sms delphi direktorij
Slika 2 - Što je unutar DeleteSms.delphi.zip

Kako poslati SMS iz Delphi (Jednostavne smjernice)

Da biste poslali SMS iz Delphi:

  1. Instalirajte HTTP API korisnika
  2. Omogućite Log komunikacijske događaje na Advanced kartici
  3. Postavite Embarcadero Delphi Studio
  4. Preuzmite zatim raspakirajte DeleteSms.delphi.zip datoteku
  5. Otvorite DeleteSms.dproj datoteku u Delphi Studiju dvostrukim klikom na nju
  6. Pokrenite Ozeki SMS Gateway aplikaciju
  7. Pokrenite DeleteSms.dpr Delphi kod u Delphi Studiju
  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, prvo morate instalirati Ozeki SMS Gateway. SMS gateway se može instalirati na istom računalu gdje razvijate svoj Delphi kod u Visual studiju. Nakon instalacije, sljedeći korak je povezivanje Ozeki SMS Gatewaya 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 što je okruženje postavljeno, možete pokrenuti svoj Delphi kod.

HTTP API URL za slanje SMS-a iz Delphi

Da biste poslali SMS iz Delphi, vaš Delphi će morati poslati HTTP zahtjev SMS gatewayu. API URL je prikazan ispod. Imajte na umu da IP adresa (127.0.0.1) treba biti zamijenjena IP adresom vašeg SMS gatewaya. 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 autentikacija za slanje SMS-a iz Delphija

Za autentikaciju 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 to kodiranje: 

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

Na primjer, ako kodirate 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. Imajte na umu da ovaj zahtjev sadrži dio HTTP zaglavlja i dio HTTP tijela. HTTP tijelo je JSON kodirani podatkovni string. Sadrži ID-ove poruka koje želimo izbrisati. 

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

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

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

Delphi SMS primjer: DeleteSms.dproj

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

Slika 3 - DeleteSms.dproj

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

Nakon što je SMS poslan, dobro je provjeriti vaš SMS gateway kako biste vidjeli što je primio. Dnevnik možete provjeriti otvaranjem detalja HTTP korisnika iz Ozeki SMS Gateway upravljačke konzole. Sljedeći video vam pokazuje što trebate tražiti.

Video 2 - Slanje SMS-a s Delphi kodom iznad (Video tutorial)

Sažetak

Ovaj vodič pruža sve informacije koje su vam potrebne kako biste mogli koristiti Delphi SMS primjer za brisanje SMS-ova s HTTP SMS API korisnikom u Ozeki SMS Gateway-u. Korištenje ovog Delphi SMS API-ja pomaže vam da održavate svoj sustav za razmjenu poruka organiziranim i da vaš posao teče glatko. Dolazi s potpunim izvornim kodom, a možete ga koristiti i mijenjati bez ikakvih ograničenja za bilo koji od vaših projekata.

Možda ćete trebati i druge funkcionalnosti, u svakom slučaju nastavite čitati. Nastavite i proučite članak Kako poslati SMS iz Delphija na Ozeki web stranici.

Preuzmite Ozeki SMS Gateway i iskoristite ono što ste sada naučili!

More information