Ako vymazať SMS v Delphi

Najjednoduchší spôsob, ako vymazať SMS z Delphi, je použiť vstavané HTTP/Rest SMS API Ozeki SMS Gateway. Keď použijete toto API, budete odosielať SMS správy vydaním HTTP POST požiadavky na SMS bránu. HTTP POST požiadavka bude obsahovať správu formátovanú v json formáte. SMS brána odošle túto SMS príjemcovi a vráti HTTP 200 OK odpoveď na vašu požiadavku.

Ukážka Delphi sms kódu nižšie demonštruje, ako môžete odosielať SMS pomocou http rest sms api Ozeki SMS Gateway pomocou jednotky Delphi Ozeki.Libs.Rest. Táto jednotka je vám poskytovaná bezplatne a môžete ju používať a upravovať v ktoromkoľvek z vašich 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.
	

Ako použiť príklad Delphi sms:

Tento príklad Delphi sms môže byť použitý v akejkoľvek Delphi aplikácii. Ak ho chcete použiť, musíte pridať jednotku Ozeki.Libs.Rest.pas do svojho projektu. Po pridaní jednotky musíte vložiť direktívu uses Ozeki.Libs.Rest in 'Ozeki.Libs.Rest.pas'; do hlavičkovej časti vášho Delphi zdrojového kódu. To vám umožní používať triedy poskytované jednotkou Ozeki.Libs.Rest. Môžete použiť triedu Message na vytvorenie SMS. Môžete použiť triedu MessageApi na odoslanie SMS do SMS brány. SMS brána prepošle vašu správu do mobilnej siete buď prostredníctvom bezdrôtového pripojenia alebo prostredníctvom internetu.

Zdrojový kód vysvetlený v tomto článku môže byť stiahnutý a používaný a upravovaný bezplatne.
Stiahnuť: DeleteSms.delphi.zip (11.4Kb)

Súbor DeleteSms.delphi.zip obsahuje jednotku Ozeki.Libs.Rest, ktorá vám poskytuje všetky potrebné nástroje na odosielanie a prijímanie SMS správ. Nájdete tu tiež projekt DeleteSms v zip súbore, ktorý obsahuje príklad kódu, ktorý vám ukáže, ako odoslať SMS. Tento príklad kódu je uvedený nižšie.

Na odoslanie SMS z Delphi:

1. Nainštalujte používateľa HTTP API
2. Povoľte Log komunikácie na karte Pokročilé
3. Nastavte Embarcadero Delphi Studio
4. Stiahnite si a extrahujte súbor DeleteSms.delphi.zip
5. Otvorte súbor DeleteSms.dproj v Delphi Studio dvojklikom naň
6. Spustite aplikáciu Ozeki SMS Gateway
7. Spustite Delphi kód DeleteSms.dpr v Delphi Studio
8. Skontrolujte záznamy, či bola SMS odoslaná

Ak chcete byť schopní odosielať SMS z Delphi, najprv musíte nainštalovať Ozeki SMS Gateway. SMS bránu je možné nainštalovať na rovnakom počítači, kde vyvíjate svoj Delphi kód v Visual studio. Po inštalácii je ďalším krokom pripojenie Ozeki SMS Gateway k mobilnej sieti. Môžete odoslať testovaciu sms z Ozeki GUI na overenie, že vaše mobilné pripojenie funguje. Posledným krokom na prípravu vášho prostredia je vytvorenie používateľa HTTP sms api. Vytvorte používateľa s používateľským menom "http_user" a heslom "qwe123", aby príklad fungoval bez úprav.

Po nastavení prostredia môžete spustiť svoj Delphi kód.

Na odoslanie SMS z Delphi bude vaše Delphi musieť vydať HTTP požiadavku na SMS bránu. API url je uvedené nižšie. Upozorňujeme, že IP adresa (127.0.0.1) by mala byť nahradená IP adresou vašej SMS brány. Ak je Ozeki SMS Gateway nainštalovaný na rovnakom počítači, kde beží Delphi sms aplikácia, môže to byť 127.0.0.1. Ak je nainštalovaný na inom počítači, mala by to byť IP adresa toho počítača.

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

HTTP autentifikácia na odosielanie SMS z Delphi

Na autentifikáciu Delphi SMS klienta musíte odoslať používateľské meno a heslo v base64 kódovanom reťazci na server v HTTP požiadavke. Používaný formát je: base64(používateľské meno+":"+heslo). V Delphi môžete na toto kódovanie použiť nasledujúci kód:

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

Napríklad, ak zakódujete používateľské meno 'http_user' a heslo 'qwe123', dostanete nasledujúci base64 kódovaný reťazec: aHR0cF91c2VyOnF3ZTEyMw==. Na odoslanie

Na odoslanie SMS správ musíte do HTTP požiadavky zahrnúť nasledujúce riadky ako hlavičky. Poznamenajte, že zaraďujeme typ obsahu a autorizačnú hlavičku.

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

Na odoslanie SMS bude vaša Delphi aplikácia posielať HTTP požiadavku podobnú nižšie uvedenej. Poznamenajte, že táto požiadavka obsahuje časť HTTP hlavičky a časť HTTP tela. HTTP telo je JSON kódovaný dátový reťazec. Obsahuje ID správ, ktoré chceme vymazať.

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

Keď SMS brána prijme túto požiadavku, vygeneruje HTTP odpoveď. HTTP odpoveď bude obsahovať stavový kód, ktorý indikuje, či bola požiadavka na odoslanie SMS úspešná alebo nie. Vráti tiež JSON kódovanú štruktúru, ktorá vám poskytne užitočné informácie o odoslaní správy.

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

Toto video vám ukáže, ako si stiahnuť súbor DeleteSms.delphi.zip z tejto stránky a ako si jeho obsah stiahnuť v Delphi štúdiu. Ak sledujete video, všimnete si, že obsah DeleteSms.delphi zipu je umiestnený na pracovnej ploche Windows. Uvidíte tiež, že dvakrát klikneme na súbor projektu DeleteSms.dproj, aby sme otvorili projekt.

V tomto riešení je len jeden projekt: DeleteSms.dproj a dva súbory: DeleteSms.dpr a Ozeki.Libs.Rest.pas.

Po odoslaní SMS je dobré skontrolovať vašu SMS bránu, aby ste videli, čo prijala. Môžete skontrolovať log otvorením detailov HTTP používateľa v konzole správy Ozeki SMS Gateway. Nasledujúce video vám ukáže, čo hľadať.

Tento sprievodca poskytol všetky informácie, ktoré potrebujete na to, aby ste mohli použiť Delphi SMS príklad na vymazanie SMS s HTTP SMS API používateľom v Ozeki SMS Gateway. Použitie tohto Delphi SMS API vám pomáha udržiavať váš systém správ organizovaný a vaše podnikanie plynule fungujúce. Prichádza s úplným zdrojovým kódom a môžete ho používať a upravovať bez akýchkoľvek obmedzení pre akýkoľvek z vašich projektov.

Možno budete potrebovať aj ďalšie funkcie, v každom prípade pokračujte v čítaní. Pokračujte a preštudujte si článok Ako odoslať SMS z Delphi na webovej stránke Ozeki.

Stiahnite si Ozeki SMS Gateway a použite to, čo ste sa teraz naučili!