|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Рассылка смс из программы на DELPHI
Рассылка смс сообщений с помощью программы на 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. Последний раз редактировалось alekso, 03.05.2017 в 17:48. |
#2
|
||||
|
||||
В API сервиса сказано что работает с HTTP/HTTPS и другими протоколами. Да и для работы с HTTPS можно использовать WinHTTP. И не нужно для такой простой задачи 2 библиотеки таскать.
Цитата:
Там же есть описание всех параметров сервера. Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
alekso (03.05.2017)
|
#3
|
|||
|
|||
Цитата:
Использование https решил использовать чтобы не передавать пароль в открытом виде, в принципе согласен можно и через http |
#4
|
|||
|
|||
Вот интересный сервис. Даже бесплатный, если не надо отсылать массово: https://textbelt.com/
|