Kako izbrisati SMS v Delphi

Najenostavnejši način za brisanje SMS-ov iz Delphi je uporaba vgrajenega HTTP/Rest SMS API-ja Ozeki SMS Gateway. Ko uporabljate ta API, boste SMS sporočila poslali z izdajo HTTP Post zahteve na SMS gateway. HTTP Post zahteva bo vsebovala sporočilo v json formatu. SMS gateway bo poslal ta SMS prejemniku in vrnil HTTP 200 OK odgovor na vašo zahtevo.

Spodnji Delphi SMS koda primer prikazuje, kako lahko pošiljate SMS z uporabo http rest sms api Ozeki SMS Gateway z uporabo enote Delphi Ozeki.Libs.Rest. Ta enota vam je na voljo brezplačno in jo lahko uporabljate in spreminjate v katerem koli od vaših projektov.

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 uporabiti Delphi SMS primer:

Ta Delphi SMS primer se lahko uporablja v kateri koli Delphi aplikaciji. Za uporabo morate dodati enoto Ozeki.Libs.Rest.pas v vaš projekt. Po dodajanju enote morate v glavni del vaše Delphi izvorne kode dodati direktivo uses Ozeki.Libs.Rest v 'Ozeki.Libs.Rest.pas';. To vam bo omogočilo uporabo razredov, ki jih ponuja enota Ozeki.Libs.Rest. Razred Message lahko uporabite za ustvarjanje SMS-ja. Razred MessageApi lahko uporabite za pošiljanje SMS-ja na SMS gateway. SMS gateway bo vaše sporočilo posredoval v mobilno omrežje prek brežične povezave ali prek interneta.

Izvorna koda, razložena v tem članku, je na voljo za brezplačen prenos, uporabo in spreminjanje.
Prenos: DeleteSms.delphi.zip (11.4Kb)

Datoteka DeleteSms.delphi.zip vsebuje enoto Ozeki.Libs.Rest, ki vam ponuja vsa orodja, potrebna za pošiljanje in prejemanje SMS sporočil. V zip datoteki boste našli tudi projekt DeleteSms, ki vsebuje primer kode, ki vam pokaže kako poslati SMS. Ta primer kode je naveden spodaj.

Za pošiljanje SMS-ov iz Delphi:

1. Namestite uporabnika HTTP API
2. Omogočite beleženje komunikacijskih dogodkov na zavihku Napredno
3. Nastavite Embarcadero Delphi Studio
4. Prenesite in razširite datoteko DeleteSms.delphi.zip
5. Odprite datoteko DeleteSms.dproj v Delphi Studio z dvojnim klikom nanjo
6. Zaženite aplikacijo Ozeki SMS Gateway
7. Zaženite Delphi kodo DeleteSms.dpr v Delphi Studio
8. Preverite dnevnike, da vidite, ali je bil SMS poslan

Da lahko pošiljate SMS iz Delphi, morate najprej namestiti Ozeki SMS Gateway. SMS gateway lahko namestite na isti računalnik, kjer razvijate svojo Delphi kodo v Visual studiu. Po namestitvi je naslednji korak povezovanje Ozeki SMS Gateway z mobilnim omrežjem. Lahko pošljete testni sms iz Ozeki GUI, da preverite, ali vaša mobilna omrežna povezava deluje. Končni korak za pripravo vašega okolja je ustvarjanje uporabnika HTTP sms api. Ustvarite uporabnika z uporabniškim imenom "http_user" in geslom "qwe123", da primer deluje brez sprememb.

Ko je okolje nastavljeno, lahko zaženete svojo Delphi kodo.

Za pošiljanje SMS-ov iz Delphi bo vaš Delphi moral izdati HTTP zahtevo na SMS gateway. API url je prikazan spodaj. Upoštevajte, da je treba IP naslov (127.0.0.1) zamenjati z IP naslovom vašega SMS gatewaya. Če je Ozeki SMS Gateway nameščen na istem računalniku, kjer teče Delphi SMS aplikacija, je to lahko 127.0.0.1. Če je nameščen na drugem računalniku, mora biti to IP naslov tega računalnika.

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

HTTP avtentikacija za pošiljanje SMS-ov iz Delphija

Za avtentikacijo odjemalca SMS v Delphi morate uporabniško ime in geslo poslati v nizu, kodiranem z base64, na strežnik v zahtevi HTTP. Uporabljena oblika je: base64(uporabniško_ime+":"+geslo). V Delphi lahko za to kodiranje uporabite naslednjo kodo:

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

Na primer, če kodirate uporabniško ime 'http_user' in geslo 'qwe123', boste dobili naslednji niz, kodiran z base64: aHR0cF91c2VyOnF3ZTEyMw==. Za pošiljanje

Za pošiljanje SMS sporočil morate vključiti naslednje vrstice kot glave v zahtevo HTTP. Upoštevajte, da vključujemo vrsto vsebine in glavo za avtorizacijo.

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

Za oddajo SMS-a bo vaša aplikacija Delphi poslala HTTP zahtevo, podobno spodnji. Upoštevajte, da ta zahteva vsebuje del z glavo HTTP in del s telesom HTTP. Telo HTTP je niz podatkov, kodiran v JSON. Vsebuje ID-je sporočil, ki jih ž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"
	]
}
	

Ko SMS prehod prejme to zahtevo, bo ustvaril HTTP odziv. HTTP odziv bo vseboval statusno kodo, ki označuje, ali je bila zahteva za oddajo SMS-a uspešna ali ne. Prav tako bo vrnil strukturo, kodirano v JSON, ki vam bo zagotovila koristne podrobnosti o oddaji sporočila.

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

Ta video vam pokaže, kako prenesti datoteko DeleteSms.delphi.zip s te strani in kako prenesti njene vsebine v Delphi studio. Če gledate video, boste opazili, da so vsebine datoteke DeleteSms.delphi zip postavljene na namizje Windows. Videli boste tudi, da dvokliknemo na projektno datoteko DeleteSms.dproj, da odpremo projekt.

V tej rešitvi je samo en projekt: DeleteSms.dproj in dve datoteki: DeleteSms.dpr in Ozeki.Libs.Rest.pas.

Po oddaji SMS-a je dobro preveriti vaš SMS prehod, da vidite, kaj je prejel. Dnevnik lahko preverite tako, da odprete podrobnosti HTTP uporabnika v konzoli za upravljanje Ozeki SMS Gateway. Naslednji video vam pokaže, kaj morate iskati.

Ta vodič vsebuje vse informacije, ki jih potrebujete, da lahko uporabite primer SMS v Delphi za brisanje SMS-ov z uporabnikom HTTP SMS API v Ozeki SMS Gateway. Uporaba tega Delphi SMS API vam pomaga ohranjati organiziran sistem sporočanja in vaše poslovanje teče gladko. Priložena je celotna izvorna koda, ki jo lahko uporabite in spreminjate brez kakršnih koli omejitev za vse vaše projekte.

Morda potrebujete tudi druge funkcionalnosti, v vsakem primeru nadaljujte z branjem. Nadaljujte s preučevanjem članka Kako poslati SMS iz Delphija na spletnem mestu Ozeki.

Prenesite Ozeki SMS Gateway in uporabite, kar ste se zdaj naučili!