Рассылка смс сообщений с помощью программы на Delphi (может быть кому-то пригодится, использовалась версия delphi XE)
Не так давно понадобилось в приложение, написанное на delphi добавить функционал, позволяющий при входе пользователя в систему отправлять смс сообщение на его телефон.
Что нам понадобится:
1. Собственно сам сервис, с которым будет интегрироваться наша программа на delphi, чтобы рассылать сообщения ( выбор пал на
http://smsc.ru/?ppsmsreg) Регистрируемся в сервисе и нам дают бесплатные 15 рублей для тестирования.
2. От того какой сервис для рассылки СМС был выбран зависит и порядок взаимодейтсвия с этим сервисом. Выбранный на этапе 1 сервис позволяет отправить смс отправляя запрос на определенный адрес в интернете get или post запрос по https протоколу (ниже все будет описано более подробно)
3. Приступаем собственно к созданию программы
-кидаем на нашу форму IdHTTP и IdSSLIOHandlerSocketOpenSSL
-свойству IOHandler ставим значение IdSSLIOHandlerSocketOpenSSL1
- сохраняем проект на диске и в папку с файлом проекта переносим файлы libeas32.dll и ssleay32.dll (данные файла можно найти на сайте
https://www.openssl.org/ или взять приложенные к письму)-это нужно для работы по протоколу https
4. Кидает на форму кнопку Button
5. Делаем двойной щелчок по кнопке и пишем код
procedure TForm1.Button1Click(Sender: TObject);
var
html:WideString;
begin
html:=IdHTTP1.Get('https://smsc.ru/sys/send.php?login=ВАШЛОГИН&psw=ВАШПАРОЛЬ&phones=ВАШТЕ ЛЕФОН&mes=YOUR MESSAGE');
end;
Естественно меняете в строке отправки СМС данные ВАШЛОГИН, ВАШПАРОЛЬ,ВАШТЕЛЕФОН, YOUR MESSAGE на ВАши собственные.
ВАШЛОГИН, ВАШПАРОЛЬ- это данные которые Вам выдали при регистрации на сервисе
http://smsc.ru/?ppsmsreg как я писал ранее.
Теперь можете запустить приложение и попробовать после нажатия на кнопку получить Вашу первую СМС через программу на DELPHI.