Lazarus Pascal

Send SMS Messages via Route Mobile's SMSPlus REST API

See more HTTP Misc Examples

Demonstrates how to use the Route Mobile SMSPLUS Bulk HTTP API. Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.HttpRequest,
  Chilkat.HttpResponse;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  req: THttpRequest;
  http: THttp;
  resp: THttpResponse;

begin
  success := False;

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

  req := THttpRequest.Create;

  req.Path := '/bulksms/bulksms';
  req.AddParam('username','YOUR_USERNAME');
  req.AddParam('password','YOUR_PASSWORD');

  //  Indicate the type of message. 
  //  Values for type include: 
  //  0: Plain text (GSM 3.38 Character encoding) 
  //  1: Flash (GSM 3.38 Character encoding)  
  //  2: Unicode 
  //  3: Reserved  
  //  4: WAP Push 
  //  5: Plain text (ISO-8859-1 Character encoding)  
  //  6: Unicode Flash 
  //  7: Flash (ISO-8859-1 Character encoding) 
  req.AddParam('type','0');

  //  destination is the Mobile number to which the message is to be sent 
  //  (may or may not include a plus [+] sign). 
  //  Multiple mobile numbers can be separated by commas (,)
  //  No need to URL encode strings passed to AddParam. 
  //  Chilkat will automatically URL encode when the request is sent.
  req.AddParam('destination','+14155551234');

  //  Specify the source address that should appear in the message.
  //  Max Length of 18 if numeric.
  //  Max Length of 11 if alphanumeric. To prefix the plus sign (+) to the sender�s address 
  //  when the message is displayed on their cell phone, please prefix the plus sign 
  //  to your sender�s address while submitting the message 
  req.AddParam('source','+14155558999');

  //  Add the message itself.  (No URL encoding needed.)
  req.AddParam('message','Test Message');

  http := THttp.Create;
  req.HttpVerb := 'POST';
  req.ContentType := 'application/x-www-form-urlencoded';

  resp := THttpResponse.Create;
  success := http.HttpReq('http://api.rmlconnect.net/bulksms/bulksms',req,resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  //  Examine the response status code and the response body:
  WriteLn('response status code = ' + resp.StatusCode);
  WriteLn('response body:');
  WriteLn(resp.BodyStr);


  req.Free;
  http.Free;
  resp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.