Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.05.2017, 17:43
alekso alekso вне форума
Прохожий
 
Регистрация: 17.08.2015
Сообщения: 11
Версия Delphi: DELPHI XE
Репутация: 10
По умолчанию Рассылка смс из программы на 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.
Вложения
Тип файла: zip ssl.zip (770.4 Кбайт, 19 просмотров)

Последний раз редактировалось alekso, 03.05.2017 в 17:48.
Ответить с цитированием
  #2  
Старый 03.05.2017, 18:18
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

В API сервиса сказано что работает с HTTP/HTTPS и другими протоколами. Да и для работы с HTTPS можно использовать WinHTTP. И не нужно для такой простой задачи 2 библиотеки таскать.

Цитата:
Для отправки SMS необходимо вызвать методом GET или POST адрес:
http://smsc.ru/sys/send.php?login=<login>&psw=<password>&phones=<phon es>&mes=<message>

Для получения стоимости SMS необходимо вызвать методом GET или POST адрес:
http://smsc.ru/sys/send.php?login=<login>&psw=<password>&phones=<phon es>&mes=<message>&cost=1

Там же есть описание всех параметров сервера.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
alekso (03.05.2017)
  #3  
Старый 03.05.2017, 20:46
alekso alekso вне форума
Прохожий
 
Регистрация: 17.08.2015
Сообщения: 11
Версия Delphi: DELPHI XE
Репутация: 10
По умолчанию

Цитата:
Сообщение от NumLock
В API сервиса сказано что работает с HTTP/HTTPS и другими протоколами. Да и для работы с HTTPS можно использовать WinHTTP. И не нужно для такой простой задачи 2 библиотеки таскать.



Там же есть описание всех параметров сервера.


Использование https решил использовать чтобы не передавать пароль в открытом виде, в принципе согласен можно и через http
Ответить с цитированием
  #4  
Старый 04.05.2017, 18:56
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Вот интересный сервис. Даже бесплатный, если не надо отсылать массово: https://textbelt.com/
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:10.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter