Delphi ActiveX

Clickatell Send SMS Text Message

See more Clickatell Examples

Demonstrate how to send a Clickatell SMS text message. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
json: TChilkatJsonObject;
resp: TChilkatHttpResponse;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
errorCode: WideString;
error: WideString;
errorDescription: WideString;
i: Integer;
count_i: Integer;
apiMessageId: WideString;
accepted: Integer;
v_to: WideString;

begin
success := 0;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := TChilkatHttp.Create(Self);

// Implements the following CURL command:

// curl -i \
// -X POST \
// -H "Content-Type: application/json" \
// -H "Accept: application/json" \
// -H "Authorization: API_KEY" \
// -d '{"content": "Test Message Text", "to": ["PHONE_NUMBER"], "from": "FROM_PHONE_NUMBER" }' \
// -s https://platform.clickatell.com/messages

// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON

// The following JSON is sent in the request body.

// {
//   "content": "Test Message Text",
//   "to": [
//     "PHONE_NUMBER"
//   ]
// }

json := TChilkatJsonObject.Create(Self);
json.UpdateString('content','Test Message Text');
json.UpdateString('to[0]','PHONE_NUMBER');
json.UpdateString('from','FROM_PHONE_NUMBER');

http.SetRequestHeader('Authorization','API_KEY');
http.SetRequestHeader('Accept','application/json');
http.SetRequestHeader('Content-Type','application/json');

// If the following URL does not work, then try "https://platform.clickatell.com/v1/message"
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpJson('POST','https://platform.clickatell.com/messages',json.ControlInterface,'application/json',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

sbResponseBody := TChilkatStringBuilder.Create(Self);
resp.GetBodySb(sbResponseBody.ControlInterface);
jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := resp.StatusCode;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "messages": [
//     {
//       "apiMessageId": "66c06ac68e5c4afb953ea9328babfde6",
//       "accepted": true,
//       "to": "16302581871",
//       "errorCode": null,
//       "error": null,
//       "errorDescription": null
//     }
//   ],
//   "errorCode": null,
//   "error": null,
//   "errorDescription": null
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

errorCode := jResp.StringOf('errorCode');
error := jResp.StringOf('error');
errorDescription := jResp.StringOf('errorDescription');
i := 0;
count_i := jResp.SizeOfArray('messages');
while i < count_i do
  begin
    jResp.I := i;
    apiMessageId := jResp.StringOf('messages[i].apiMessageId');
    accepted := jResp.BoolOf('messages[i].accepted');
    v_to := jResp.StringOf('messages[i].to');
    errorCode := jResp.StringOf('messages[i].errorCode');
    error := jResp.StringOf('messages[i].error');
    errorDescription := jResp.StringOf('messages[i].errorDescription');
    i := i + 1;
  end;
end;