|
|
Регистрация | << Правила форума >> | 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. |