Как отправить sms с помощью Delphi

В интернете я нашёл совсем немного способов  отправки смс реализованных на Delphi. Здесь я расскажу об очень интересном сервисе SMS-рассылок.

Заходим на сайт сервиса регистрируемся. В личном кабинете выбираем раздел API, далее -> Библиотеки и примеры, выбираем для Делфи,

В открывшемся окне мы видим пример библиотеки  для отправки смс и пример её использования.

Теперь нам нужно скачать свою личную библиотеку с нашими настройками, скачиваем сам модуль  — с логином и хешем пароля:

smsc api.pas 

 

Далее кидаем библиотеку в папку с наши приложением, в Uses прописываем название библиотеки и спокойно пользуемся ею.

Возможно вам понадобится прописать в разделе Uses ещё один модуль —  Types.

Вот пример отправки простого смс:

uses smsc_api, Types;

procedure TForm1.Button1Click(Sender: TObject);
var
sms: SMSC;
ret: TStringDynArray;
balance: String;

begin

sms := SMSC.Create;

ret := sms.send_sms(‘79851234567’, ‘http://smsc.ru’#13#10 + ‘Привет мир!’, 0, », 0, 0, », ‘maxsms=3’);

sms.Destroy;

end;

end.

Конечно сервис платный, но я хотел бы отметить, что цены довольно-таки очень низкие и я постоянно пользуюсь его услугами.





Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*