Delphi DLL

SMSAPI - Send SMS with Multiple Lines of Text

See more SMSAPI Examples

Send an SMS message containing multiple lines of text. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
messageContent: PWideChar;
sbMessage: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;

begin
success := False;

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

http := CkHttp_Create();

// Implements the following CURL command:

// curl -H "Authorization: Bearer token_api_oauth" \
// "https://api.smsapi.com/sms.do?from=sender_name&to=44123456789&message=message_content&format=json"

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

// Adds the "Authorization: Bearer token_api_oauth" header.
CkHttp_putAuthToken(http,'token_api_oauth');

messageContent := 'Hello' + #13#10 + 'This is a test' + #13#10 + 'with multiple lines of text.';

// Given that our message contentn has newlines, we obviously cannot put newlines in a URL without them being URL encoded..
// Therefore.. URL encode..
sbMessage := CkStringBuilder_Create();
CkStringBuilder_Append(sbMessage,messageContent);
CkStringBuilder_Encode(sbMessage,'url','utf-8');

CkHttp_SetUrlVar(http,'msgContent',CkStringBuilder__getAsString(sbMessage));

sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://api.smsapi.com/sms.do?from=sender_name&to=44123456789&message={$msgContent}&format=json',sbResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('Response body:');
Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponseBody));

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbMessage);
CkStringBuilder_Dispose(sbResponseBody);

end;