mierlp Posted January 25, 2019 Share Posted January 25, 2019 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 5 Quote Link to comment Share on other sites More sharing options...
d.bernaert Posted January 26, 2019 Share Posted January 26, 2019 Thx Mierlp. Dominique Quote Link to comment Share on other sites More sharing options...
mhmda Posted January 26, 2019 Share Posted January 26, 2019 Thank you Quote Link to comment Share on other sites More sharing options...
albertovesx Posted January 29, 2019 Share Posted January 29, 2019 Thank you Quote Link to comment Share on other sites More sharing options...
SayeyeZohor Posted June 2, 2019 Share Posted June 2, 2019 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 Quote Link to comment Share on other sites More sharing options...
mierlp Posted June 2, 2019 Author Share Posted June 2, 2019 New upload SendSMS v.0.2.zip 6 1 3 Quote Link to comment Share on other sites More sharing options...
Abaksoft Posted June 24, 2019 Share Posted June 24, 2019 Thx mierlp, +1 The art of making things simple ! Quote Link to comment Share on other sites More sharing options...
warat mookdaanan Posted October 17, 2019 Share Posted October 17, 2019 Thank you very much 1 Quote Link to comment Share on other sites More sharing options...
asapltda Posted January 31, 2021 Share Posted January 31, 2021 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; Quote Link to comment Share on other sites More sharing options...
stf Posted September 2, 2021 Share Posted September 2, 2021 Thank you very much! Quote Link to comment Share on other sites More sharing options...
jlead Posted October 23, 2021 Share Posted October 23, 2021 On 6/2/2019 at 5:30 PM, mierlp said: thank Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.