Hogyan töröljünk SMS-t Delphi nyelven

A legegyszerűbb módja az SMS-ek törlésének Delphi nyelven az Ozeki SMS Gateway beépített HTTP/Rest SMS API-jának használata. Ezt az API-t használva HTTP POST kérést küldhetünk az SMS gateway-nek. A HTTP POST kérés egy JSON formátumú üzenetet tartalmaz. Az SMS gateway továbbítja ezt az SMS-t a címzett telefonszámára, és egy HTTP 200 OK választ küld vissza a kérésre.

hogyan töröljünk sms-t delphi nyelven
1. ábra - Hogyan töröljünk SMS-t Delphi nyelven

Delphi kód SMS törléséhez

Az alábbi Delphi SMS kódminta bemutatja, hogyan küldhetünk SMS-t az Ozeki SMS Gateway HTTP REST SMS API-jával, az Ozeki.Libs.Rest egység segítségével. Ez az egység ingyenesen elérhető, és bármilyen projektben felhasználható és módosítható.

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.

Hogyan használjuk a Delphi SMS példát:

Ez a Delphi SMS példa bármilyen Delphi alkalmazásban használható. Használatához hozzá kell adni az Ozeki.Libs.Rest.pas egységet a projekthez. Az egység hozzáadása után a uses Ozeki.Libs.Rest in 'Ozeki.Libs.Rest.pas'; direktívát kell elhelyezni a Delphi forráskód fejléc részébe. Ez lehetővé teszi az Ozeki.Libs.Rest egység által nyújtott osztályok használatát. A Message osztály segítségével létrehozhatjuk az SMS-t. A MessageApi osztály segítségével elküldhetjük az SMS-t az SMS gateway-nek. Az SMS gateway továbbítja az üzenetet a mobil hálózatnak vezeték nélküli kapcsolaton vagy az interneten keresztül.

DeleteSms.delphi letöltése

A cikkben ismertetett forráskód ingyenesen letölthető, felhasználható és módosítható.
Letöltés: DeleteSms.delphi.zip (11.4Kb)

Mi található a DeleteSms.delphi.zip fájlban?

A DeleteSms.delphi.zip fájl tartalmazza az Ozeki.Libs.Rest egységet, amely minden szükséges eszközt biztosít az SMS-ek küldéséhez és fogadásához. A zip-ben megtalálható a DeleteSms projekt is, amely tartalmazza a példakódot, amely bemutatja, hogyan küldjünk SMS-t. Ez a példakód az alábbiakban látható.

sms fogadása delphi könyvtár
2. ábra - Mi található a DeleteSms.delphi.zip fájlban

Hogyan küldjünk SMS-t Delphi nyelven (Egyszerű útmutató)

SMS küldése Delphi nyelven:

  1. Telepítsen egy HTTP API felhasználót
  2. Engedélyezze a Kommunikációs események naplózását a Speciális lapon
  3. Állítsa be az Embarcadero Delphi Studiót
  4. Töltse le, majd csomagolja ki a DeleteSms.delphi.zip fájlt
  5. Nyissa meg a DeleteSms.dproj fájlt a Delphi Studióban duplán kattintva rá
  6. Indítsa el az Ozeki SMS Gateway alkalmazást
  7. Futtassa a DeleteSms.dpr Delphi kódot a Delphi Studióban
  8. Ellenőrizze a naplókat, hogy az SMS elküldődött-e

Ozeki SMS Gateway telepítése és HTTP API felhasználó létrehozása

Ahhoz, hogy SMS-t tudjunk küldeni Delphi nyelven, először telepíteni kell az Ozeki SMS Gateway-t. Az SMS gateway telepíthető ugyanarra a számítógépre, ahol a Delphi kódot fejlesztjük a Visual Studio-ban. Telepítés után a következő lépés az, hogy csatlakoztassuk az Ozeki SMS Gateway-t a mobil hálózathoz. HTTP SMS API felhasználó létrehozása. Hozzon létre egy felhasználót "http_user" felhasználónévvel és "qwe123" jelszóval, hogy a példa módosítás nélkül működjön.

A környezet beállítása után futtathatja a Delphi kódot.

HTTP API URL SMS küldéséhez Delphi nyelven

Ahhoz, hogy SMS-t küldjünk Delphi nyelven, a Delphi alkalmazásnak HTTP kérést kell küldenie az SMS gateway-nek. Az API URL az alábbiakban látható. Fontos, hogy az IP cím (127.0.0.1) helyére az SMS gateway IP címét kell beírni. Ha az Ozeki SMS Gateway ugyanarra a számítógépre van telepítve, ahol a Delphi SMS alkalmazás fut, ez lehet 127.0.0.1. Ha másik számítógépre van telepítve, akkor annak az IP címét kell megadni. 

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

HTTP hitelesítés SMS küldéséhez Delphi nyelven

A Delphi SMS kliens hitelesítéséhez a felhasználónevet és a jelszót base64 kódolású karakterláncként kell elküldeni a szervernek egy HTTP kérésben. A használt formátum: base64(felhasználónév+":"+jelszó). Delphi nyelven a következő kódot használhatjuk a kódoláshoz: 

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

Például, ha a 'http_user' felhasználónevet és a 'qwe123' jelszót kódoljuk, a következő base64 kódolású karakterláncot kapjuk: aHR0cF91c2VyOnF3ZTEyMw==.

HTTP kérés fejléc SMS küldéséhez Delphi nyelven

Az SMS üzenetek küldéséhez a következő sorokat kell fejlécben tartalmaznia az HTTP kérésnek. Figyeljünk arra, hogy tartalomtípust és egy Authorization fejlécet is tartalmazunk. 

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

HTTP kérés SMS küldéséhez Delphi nyelven

Az SMS beküldéséhez a Delphi alkalmazás egy olyan HTTP kérést küld, mint az alábbi. Figyeljünk arra, hogy ez a kérés tartalmaz egy HTTP fejléc részt és egy HTTP törzs részt. A HTTP törzs egy JSON kódolású adatkarakterlánc. Tartalmazza a törölni kívánt üzenetek azonosítóit. 

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 válasz, amelyet a Delphi SMS példa kap

Amint az SMS gateway megkapja ezt a kérést, generál egy HTTP választ. A HTTP válasz tartalmaz egy állapotkódot, amely jelzi, hogy az SMS beküldési kérés sikeres volt-e vagy sem. Emellett egy JSON kódolású struktúrát is visszaad, ami hasznos részleteket nyújt az üzenet beküldéséről. 

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

Hogyan küldjünk SMS-t Delphi nyelven a Delphi SMS API-val (Videó útmutató)

Ez a videó bemutatja, hogyan töltheti le a DeleteSms.delphi.zip fájlt erről az oldalról, és hogyan töltheti le annak tartalmát a Delphi studióba. Ha megnézi a videót, észre fogja venni, hogy a DeleteSms.delphi zip tartalma a Windows asztalra kerül. Azt is látni fogja, hogy duplán kattintunk a DeleteSms.dproj projektfájlra a projekt megnyitásához.

Delphi SMS példa: DeleteSms.dproj

Ebben a megoldásban csak egy projekt található: DeleteSms.dproj, és két fájl: DeleteSms.dpr és Ozeki.Libs.Rest.pas.

3. ábra - DeleteSms.dproj

Hogyan ellenőrizzük, hogy az SMS-t elfogadta-e az HTTP felhasználó

Az SMS beküldése után érdemes ellenőrizni az SMS gateway-t, hogy mit kapott. A naplót az Ozeki SMS Gateway kezelőfelületén az HTTP felhasználó részleteinek megnyitásával ellenőrizhetjük. Az alábbi videó bemutatja, hogy mire kell figyelni.

2. videó - SMS küldése a fenti Delphi kóddal (Videó útmutató)

Összefoglalás

Ez az útmutató minden szükséges információt tartalmaz ahhoz, hogy képes legyen használni a Delphi SMS példát az SMS-ek törléséhez az Ozeki SMS Gateway HTTP SMS API felhasználójával. A Delphi SMS API használata segít az üzenetküldő rendszer szervezett tartásában és az üzleti folyamatok zökkenőmentes működésében. A teljes forráskódot tartalmazza, és korlátozás nélkül felhasználható és módosítható bármilyen projektben.

Más funkciókra is szüksége lehet, mindenképpen olvasson tovább. Folytassa a tanulást az Hogyan küldjünk SMS-t Delphi nyelven cikk elolvasásával az Ozeki weboldalán.

Töltse le az Ozeki SMS Gateway-t és alkalmazza most megtanult tudását!

More information