Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Ошибка при отправке SMS через сервис turbosms.ua в BAS , при подключении по HTTP выдает "INVALID_REQUEST"          
MaxST Подменю пользователя
сообщение 08.09.24, 16:10
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 5
Из: Харьков
Спасибо сказали: 0 раз
Рейтинг: 0

Доброго времени суток. Помогите с отправкой СМС.
Конфигурация: Business automation software for trade management, edition 3.2 (3.2.31.4)
Платформа 1С:Предприятие 8.3 (8.3.24.1368)

Типовой механизм не работет. Если кто подскажет как поправить - отдельный РЕСПЕКТ

Пишу свой, и получаю ошибку {"response_code":300,"response_status":"INVALID_REQUEST","response_result":null}

    // Указываем URL сервиса отправки сообщений
    URLСервиса = "https://api.turbosms.ua/message/send.json";

    // Логин и пароль для авторизации
    Логин = "scho___.com.ua"; // Такой же как для входа в аккаунт
    Пароль = "123456"; // Такой же как для входа в аккаунт

    // Формируем JSON-объект с данными сообщения
    JSONДанные = Новый Структура;
    МассПолучателей = Новый Массив;
    МассПолучателей.Добавить(Телефон);
    
    JSONДанные.Вставить("recipients", МассПолучателей);
    
    СтруктураSMS = Новый Структура();
    СтруктураSMS.Вставить("sender", "MA***A"); //"TurboSMS");
    СтруктураSMS.Вставить("text", ТекстСообщения);
    
    JSONДанные.Вставить("sms", СтруктураSMS);

    // Кодируем логин и пароль в Base64
    ДанныеДляКодирования = Логин + ":" + Пароль;
    ЗаписатьBOM = Ложь;
    ДвДанные = ПолучитьДвоичныеДанныеИзСтроки(ДанныеДляКодирования, КодировкаТекста.UTF8, ЗаписатьBOM);
    ЗакодированныеДанные = Base64Строка(ДвДанные);
    // или
    AUTH_TOKEN = "7e2f2917a49cf05**********"; // взято из личного кабинета
    

    // Создаем HTTP-запрос (POST запрос)
    HTTPЗапрос = Новый HTTPЗапрос();
    HTTPЗапрос.АдресРесурса = URLСервиса;
    HTTPЗапрос.Заголовки.Вставить("Content-Type",     "application/json");
    HTTPЗапрос.Заголовки.Вставить("Accept",         "application/json");
    
    // Устанавливаем заголовок авторизации
    //HTTPЗапрос.Заголовки.Вставить("Authorization", "Basic " + ЗакодированныеДанные);
    // или
    HTTPЗапрос.Заголовки.Вставить("Authorization", "Basic " + AUTH_TOKEN);
    
    // Преобразуем JSON-объект в строку
    ЗаписьJSON = Новый ЗаписьJSON;            
    
    // все JSON данные должны быть представлены в виде одной строки
    ПараметрыДжсон = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет);
    ЗаписьJSON.УстановитьСтроку(ПараметрыДжсон);
    
    ЗаписатьJSON(ЗаписьJSON, JSONДанные);    
    JSONСтрока = ЗаписьJSON.Закрыть();

    // Устанавливаем тело запроса
    HTTPЗапрос.УстановитьТелоИзСтроки(JSONСтрока, КодировкаТекста.UTF8);

    //HTTPСоединение = Новый HTTPСоединение(URLСервиса, 443, Логин, Пароль, , ,Новый ЗащищенноеСоединениеOpenSSL, Ложь);        
    //HTTPСоединение = Новый HTTPСоединение(URLСервиса, 443, , , , ,Новый ЗащищенноеСоединениеOpenSSL, Ложь);        
    HTTPСоединение = Новый HTTPСоединение("api.turbosms.ua", 443, , , , ,Новый ЗащищенноеСоединениеOpenSSL, Ложь);
    HTTPОтвет = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос); // Тут ошибка "Ошибка работы с Интернет:  Couldn't resolve host name"
    Результат = HTTPОтвет.ПолучитьТелоКакСтроку();
    //Сообщить(Результат);
    
    // Обрабатываем ответ
    Если HTTPОтвет.КодСостояния = 200 Тогда
        Возврат "Отправка код = ."+HTTPОтвет.КодСостояния+" Результат = "+Результат;

    Иначе
        Возврат "Ошибка отправки сообщения: " + Результат;
    КонецЕсли;




Сообщение отредактировал Vofka - 09.09.24, 8:00

Vofka Подменю пользователя
сообщение 09.09.24, 8:33
Сообщение #2

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13985
Из: Киев
Спасибо сказали: 4554 раз
Рейтинг: 3684.3

А если так?
URLСервиса = "/message/send.json";

Спасибо сказали: andreykyiv@bigmir.net, MaxST,

MaxST Подменю пользователя
сообщение 09.09.24, 9:53
Сообщение #3

Молчаливый
*
Группа: Пользователи
Сообщений: 5
Из: Харьков
Спасибо сказали: 0 раз
Рейтинг: 0

Vofka @ Сегодня, 9:33 * ,
Цитата(Vofka @ 09.09.24, 9:33) *
URLСервиса = "/message/send.json";


СУПЕР!!! Заработало!!! Вы гений. С меня магарыч, если в Украине живете:)
жду № карты в Л.С.

Vofka Подменю пользователя
сообщение 09.09.24, 10:15
Сообщение #4

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13985
Из: Киев
Спасибо сказали: 4554 раз
Рейтинг: 3684.3

Цитата(MaxST @ 09.09.24, 10:53) *
жду № карты в Л.С.

Это лишнее.

MaxST Подменю пользователя
сообщение 09.09.24, 16:07
Сообщение #5

Молчаливый
*
Группа: Пользователи
Сообщений: 5
Из: Харьков
Спасибо сказали: 0 раз
Рейтинг: 0

Vofka @ Сегодня, 11:15 * ,
Спасибо еще раз!!!

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 04.10.24, 4:14
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!