Cum să ștergi un SMS în Delphi

Cea mai simplă metodă de a șterge SMS-uri din Delphi este utilizarea API-ului HTTP/Rest SMS încorporat al Ozeki SMS Gateway. Când folosești acest API, vei trimite mesaje SMS prin trimiterea unei cereri HTTP Post către gateway-ul SMS. Cererea HTTP Post va conține un mesaj formatat în format json. Gateway-ul SMS va trimite acest SMS către telefonul destinatar și va returna un răspuns HTTP 200 OK la cererea ta.

Exemplul de cod SMS în Delphi de mai jos demonstrează cum poți trimite SMS folosind API-ul http rest sms al Ozeki SMS Gateway utilizând unitatea Delphi Ozeki.Libs.Rest. Această unitate este oferită gratuit și o poți folosi și modifica în oricare dintre proiectele tale.

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.
	

Cum să folosești exemplul de SMS în Delphi:

Acest exemplu de SMS în Delphi poate fi folosit în orice aplicație Delphi. Pentru a-l folosi, trebuie să adaugi unitatea Ozeki.Libs.Rest.pas în proiectul tău. După ce unitatea este adăugată, trebuie să introduci directiva uses Ozeki.Libs.Rest in 'Ozeki.Libs.Rest.pas'; în secțiunea de antet a codului sursă Delphi. Acest lucru îți va permite să folosești clasele furnizate de unitatea Ozeki.Libs.Rest. Poți folosi clasa Message pentru a crea SMS-ul. Poți folosi clasa MessageApi pentru a trimite SMS-ul către gateway-ul SMS. Gateway-ul SMS va transmite mesajul tău către rețeaua mobilă fie printr-o conexiune wireless fie prin Internet.

Codul sursă explicat în acest articol poate fi descărcat, folosit și modificat gratuit.
Descarcă: DeleteSms.delphi.zip (11.4Kb)

Fișierul DeleteSms.delphi.zip conține unitatea Ozeki.Libs.Rest, care îți oferă toate instrumentele necesare pentru a trimite și primi mesaje SMS. Vei găsi de asemenea proiectul DeleteSms în arhivă, care conține codul exemplu pentru a-ți arăta cum să trimiți un SMS. Acest cod exemplu este listat mai jos.

Pentru a trimite SMS din Delphi:

1. Instalează un utilizator HTTP API
2. Activează Log communication events în fila Advanced
3. Configurează Embarcadero Delphi Studio
4. Descarcă apoi extrage fișierul DeleteSms.delphi.zip
5. Deschide fișierul DeleteSms.dproj în Delphi Studio făcând dublu clic pe el
6. Lansează aplicația Ozeki SMS Gateway
7. Rulează codul Delphi DeleteSms.dpr în Delphi Studio
8. Verifică jurnalele pentru a vedea dacă SMS-ul a fost trimis

Pentru a putea trimite SMS din Delphi, mai întâi trebuie să instalezi Ozeki SMS Gateway. Gateway-ul SMS poate fi instalat pe același computer unde dezvolți codul tău Delphi în Visual Studio. După instalare, următorul pas este să conectezi Ozeki SMS Gateway la rețeaua mobilă. Poți trimite un SMS test din interfața Ozeki pentru a verifica dacă conexiunea ta la rețeaua mobilă funcționează. Ultimul pas pentru a-ți pregăti mediul este să creezi un utilizator HTTP sms api. Creează un utilizator cu numele de utilizator "http_user" și parola "qwe123" pentru a face exemplul să funcționeze fără modificări.

După ce mediul este configurat, poți rula codul tău Delphi.

Pentru a trimite SMS din Delphi, aplicația ta Delphi va trebui să trimită o cerere HTTP către gateway-ul SMS. URL-ul API este afișat mai jos. Reține că adresa IP (127.0.0.1) ar trebui să fie înlocuită cu adresa IP a gateway-ului tău SMS. Dacă Ozeki SMS Gateway este instalat pe același computer unde rulează aplicația ta Delphi SMS, aceasta poate fi 127.0.0.1. Dacă este instalat pe un computer diferit, ar trebui să fie adresa IP a acelui computer.

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

Autentificare HTTP pentru a trimite SMS din Delphi

Pentru a autentifica clientul SMS Delphi, trebuie să trimiteți numele de utilizator și parola într-un șir codat base64 către server într-o cerere HTTP. Formatul utilizat este: base64(nume de utilizator+":"+parolă). În Delphi puteți utiliza următorul cod pentru a face această codare:

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

De exemplu, dacă codificați numele de utilizator 'http_user' și parola 'qwe123', veți obține următorul șir codat base64: aHR0cF91c2VyOnF3ZTEyMw==. Pentru a trimite

Pentru a trimite mesajele SMS, trebuie să includeți următoarele linii ca antete în cererea HTTP. Rețineți că includem un tip de conținut și un antet de autorizare.

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

Pentru a trimite SMS-ul, aplicația dvs. Delphi va trimite o cerere HTTP similară cu cea de mai jos. Rețineți că această cerere conține o parte de antet HTTP și o parte de corp HTTP. Corpul HTTP este un șir de date codat JSON. Acesta conține ID-urile mesajelor pe care dorim să le ștergem.

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

Odată ce gateway-ul SMS primește această cerere, va genera un răspuns HTTP. Răspunsul HTTP va conține un cod de stare, pentru a indica dacă cererea de trimitere a SMS-ului a fost reușită sau nu. De asemenea, va returna o structură codată JSON pentru a vă oferi detalii utile despre trimiterea mesajului.

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

Acest videoclip vă arată cum să descărcați fișierul DeleteSms.delphi.zip de pe această pagină și cum să descărcați conținutul acestuia în Delphi studio. Dacă urmăriți videoclipul, veți observa că conținutul arhivei DeleteSms.delphi este plasat pe desktop-ul Windows. De asemenea, veți vedea că dăm dublu clic pe fișierul de proiect DeleteSms.dproj pentru a deschide proiectul.

În această soluție există un singur proiect: DeleteSms.dproj și două fișiere: DeleteSms.dpr și Ozeki.Libs.Rest.pas.

După ce SMS-ul a fost trimis, este o idee bună să verificați gateway-ul SMS pentru a vedea ce a primit. Puteți verifica jurnalul deschizând detaliile utilizatorului HTTP din consola de management Ozeki SMS Gateway. Următorul videoclip vă arată ce să căutați.

Acest ghid a oferit toate informațiile necesare pentru a putea utiliza exemplul de SMS Delphi pentru ștergerea SMS-urilor cu utilizatorul HTTP SMS API din Ozeki SMS Gateway. Folosirea acestui API SMS Delphi vă ajută să vă organizați sistemul de mesagerie și să vă desfășurați afacerea fără probleme. Acesta vine cu codul sursă complet și îl puteți utiliza și modifica fără nicio limitare pentru oricare dintre proiectele dvs.

Este posibil să aveți nevoie și de alte funcționalități, continuați să citiți în orice caz. Continuați și studiați articolul Cum să trimiteți SMS din Delphi de pe site-ul Ozeki.

Descărcați Ozeki SMS Gateway și folosiți ceea ce ați învățat acum!