Here an example for sending SMS

[mierlp]

Hi

In the attachment a simple example how to send a sms text message.
In this example is use www.bulksms.com for sending my sms messages
but you can have you're own one if you want.

Every sms provider has his own url for sending messages, in this case
you see the url from bulksms. So in you're own case you have to
see the documentation of the sms provider.

Most sms providers have also mail-to-sms, but for me this is a
simple low-cost solution to create you're own 2FA. 

Regards Peter

 

SendSMS.zip

[d.bernaert]

Thx Mierlp.

Dominique

[mhmda]

Thank you 

[AlbertoVesx]

Thank you

[SayeyeZohor]

On 1/25/2019 at 11:43 PM, mierlp said:

Hi

In the attachment a simple example how to send a sms text message.
In this example is use www.bulksms.com for sending my sms messages
but you can have you're own one if you want.

Every sms provider has his own url for sending messages, in this case
you see the url from bulksms. So in you're own case you have to
see the documentation of the sms provider.

Most sms providers have also mail-to-sms, but for me this is a
simple low-cost solution to create you're own 2FA. 

Regards Peter

 

SendSMS.zip

tnx serverModule.pas  not found

[mierlp]

New upload

SendSMS v.0.2.zip

[Abaksoft]

Thx mierlp,

+1

The art of making things simple  !

[warat mookdaanan]

Thank you very much

[asapltda]

Thanks you very much 

 //   SEND TEXT MESSAGE VIA SEND TEXT MESSAGE VIA OPERATOR hablame.co
function enviarmensaje(p_telefono, P_mensaje:string; var P_MsgError:string) :boolean;
const
  // URL PROVEEDOR
  URL           = 'https://api101.hablame.co/api/sms/v2.1/send/';
  URLBackup     = 'https://api102.hablame.co/api/sms/v2.1/query/smsId/';
var
  Data: TStringlist;
//  returnCode: string;
  w_mensaje : string;
  IdHTTP1:TidHTTP;         // <---- USES IdHTTP
  W_STR:string;
  w_int:Integer ;
begin
  IdHTTP1   := TIdHTTP.Create(nil);
  w_mensaje := TimeToStr(now) + '->' +  P_mensaje;
  Data      := TStringList.Create;

  Data.Add('account='  + '10010651');
  Data.Add('apiKey='   + 'YtAL0wS1lk0KvDJckxsv9sDodFpyYkc');
  Data.Add('token='    + 'ae3b827512325de9dd0d461b268cbe8f');
  Data.Add('toNumber=' +  p_telefono);
  Data.Add('sms='      +  w_mensaje);
  Data.Add('sc='       +  '899991');

  // Show return code
  P_MsgError := IdHTTP1.Post(URL, Data);    //  <----- answer
  w_int :=Pos('1x000', P_MsgError);         //  <---  message sent successfully

  if w_int > 0 then
    Result:=True
  else
    Result:=False;

  Data.Free;
  IdHTTP1.Free ;

end;
 

[stf]

Thank you very much!

[jlead]

On 6/2/2019 at 5:30 PM, mierlp said:

thank

 

[Thiago Moraes]

I’ve built a few simple SMS notification tools before, and choosing a provider really comes down to the features you need and how easy it is to integrate with your system. One time, I needed to send bulk notifications for appointment reminders and found some SMS APIs weren’t flexible with personalization or reporting. That’s why I like platforms that offer a bit more, like two-way texting or automations, so you can do more than just blast messages and actually interact with people.
 If you want to mix in voicemails without ringing the phone or run more campaigns from the same dashboard, there are services out there that combine SMS with ringless voicemail and automation tools. I came across Drop Cowboy when I was looking for a way to add ringless voicemails to my own projects, and the multi-channel outreach part really stood out.