Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
14 дек 2024, 08:59

Оправить смс телефона

Автор Ульви Мамедов, 26 фев 2019, 08:54

0 Пользователей и 1 гость просматривают эту тему.

Ульви Мамедов

Здравствуйте. Я плохо знаю русский. Извините за этого. Я еще новичок в 1С программирование. Хотел узнать про отправки смс на телефону. Написал код, смотрел отладкой но не знаю почему то не отправляет смс. Можете объяснит HTTPОтвет?
Мне надо проста подсказка для решения.
Спасибо всем за ранее.
Полный код ниже. Или как я могу написать это более оптимально? без HTTPСоединение можно?
Диалог = Вопрос("Отправить сообщение клиента ?",РежимДиалогаВопрос.ДаНет,60,КодВозвратаДиалога.Нет,"Сообщить Клиенту",КодВозвратаДиалога.Нет);
    Если Диалог = КодВозвратаДиалога.Да Тогда
        Попытка
            HTTPСоединение = Новый HTTPСоединение("http://www.poctgoyercini.com/api_http/sendsms.asp");
            HTTPСоединение.Защищенное = Истина;
            HTTPСоединение.ИспользоватьАутентификациюОС = Истина;
            HTTPСоединение.ЗащищенноеСоединение = Неопределено;
            HTTPСоединение.Порт = 80;
            HTTPСоединение.Сервер = "http";
            HTTPСоединение.Таймаут = 100;
                        user = "хххх";
            password = "хххх";
            gsm = "ххх";
            text = "Test";
                        HTTPЗапрос = Новый HTTPЗапрос("http://www.poctgoyercini.com/api_http/sendsms.asp?user="+user+"&password="+password+"&gsm="+gsm+"&text="+text+<wbr>­"");
                HTTPОтвет = HTTPСоединение.Получить(HTTPЗапрос);   
            ТекстОтвета = HTTPОтвет.ПолучитьТелоКакСтроку();
            Отправлено = ?(HTTPОтвет.КодСостояния = "200", Истина, Ложь);     
        Исключение
            Отправлено = Ложь;
        КонецПопытки;
                ИначеЕсли Диалог = КодВозвратаДиалога.Нет Тогда
         КонецЕсли;

Теги:  

Похожие темы (5)

Рейтинг@Mail.ru

Поиск