Twilio Delphi로 SMS 메시지 전송하기

2021년 11월 15일 · 기능

sgcWebSockets 라이브러리를 사용해 Twilio SMS 메시지를 보내는 간단한 예제를 확인해 보세요.

코드

메서드에 다음 매개변수를 전달하면 돼요: 메시지를 보내는 전화번호, 메시지를 받을 전화번호, 메시지 텍스트.

본인의 Twilio Account Sid와 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;