Twilio Delphi Send a SMS Message

15. November 2021 · Funktionen

Unten findest du ein einfaches Beispiel, wie du eine Twilio-SMS-Nachricht mit der sgcWebSockets-Bibliothek versendest.

Code

Übergib der Methode einfach die Parameter: Telefonnummer, von der die Nachricht gesendet wird, Telefonnummer, an die die Nachricht zugestellt werden soll, und die Text-Nachricht.

Setze deinen eigenen Twilio Account Sid und 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;