Twilio Delphi: enviar un mensaje SMS

A continuación encontrarás un ejemplo sencillo de cómo enviar un mensaje SMS de Twilio utilizando la biblioteca sgcWebSockets.

Twilio

Código 

Solo tienes que pasar al método los parámetros: el teléfono desde el que se envía el mensaje, el teléfono al que se debe entregar y el mensaje de texto.

Establece tu propio Twilio Account Sid y Twilio Auth Token.

uses
  sgcHTTP;
procedure SendTwilioSMS(const aFrom, aTo, aMessage: string);
var
  oHTTP: TsgcHTTP1Client;
  oParams: TStringList;
  vTwilio_Account_Sid, vTwilio_Auth_Token: string;
begin
  oHTTP := TsgcHTTP1Client.Create(nil);
  Try
    oParams := TStringList.Create;
    Try
      vTwilio_Account_Sid := 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';
      vTwilio_Auth_Token := 'YYYYYYYYYYYYYYYYYYYYYYYYYYY';
      oParams.Add(Format('Body=%s', [aMessage]));
      oParams.Add(Format('From=%s', [aFrom]));
      oParams.Add(Format('To=%s', [aTo]));
      oHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
      oHTTP.Request.BasicAuthentication := True;
      oHTTP.Request.Username := vTwilio_Account_Sid;
      oHTTP.Request.Password := vTwilio_Auth_Token;
      Try
        ShowMessage(oHTTP.Post('https://api.twilio.com/2010-04-01/Accounts/' + vTwilio_Account_Sid + '/Messages.json', oParams));
      Except
        On E: Exception do
          ShowMessage(E.Message);
      End;
    Finally
      FreeAndNil(oParams);
    End;
  Finally
    FreeAndNil(oHTTP);
  End;
end;