Функция получение содержимого адреса url (веб-страницы) методом GET // Возвращает содержимое ответа HTTP-сервера, полученного методом GET, в виде строки или двоичных данныхhttp://www.w3.org/Protocols/rfc2616/rfc2616-sec10.... //Если сервер вернул один из статусов переадресацииhttp://ru.wikipedia.org/wiki/HTTP_cookie, http://www.faqs.org/rfcs/rfc6265.html?#41;, //вставим их в заголовки для передачи на страницу переходаhttp://ru.wikipedia.org/wiki/Список_MIME-типов Если Найти(ТипСодержимого, "text/") = 1 ИЛИ Найти(ТипСодержимого, "/javascript")json ") 0 Тогдаhttp://www.http11.ru/post.php?post=2) Если ОтветHTTP.Заголовки["Content-Disposition"] Неопределено Тогдаhttp://forum.aeroion.ru/topic749.html [/pre]Примеры использования:
// Получение содержимого в виде строки// Категория: Нет
Как декодировать (преобразовать) Unicode в 1С При разработке очередного обмена с интернет магазином через API столкнулисть что сайт возвращает ответ в виде:
Код VBS {"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"} из кода ясно что это JSON и используя код ПрочитатьJSON
Код 1C v 8.3 Чтение = Новый ЧтениеJSON ;JSON (Чтение);В переменной ДанныеЛога будет структура в виде
В результате получилась функция с 2-мя вариантами возрата, в зависимости от того как нужно
Код 1C v 8.3 //Функция читает полученный JSON декадируя текст юникодJSON (стрВходящая) JSON ;JSON (Чтение);JSON JSON ; JSON (ПереносСтрокJSON .Нет));JSON (Запись, ДанныеЛога,);JSON {"ok":"true","description":"Статус заказа изменен"}На просторах интернета была найдена еще одна функция:
Код 1C v 8.3 //Параметры: Строка в Юникод (обязательный) Тип: Строка. Исходная строка. Категория:
WEB-сервисы, WS-ссылки, XDTO-пакеты Отправка SMS через SMS.ru Один из самый простых сервисов для работы с смс.
Регистрируемся на сайта sms.ru Добавляем отправителя, проходим все проверки и разрешения (очень просто и быстро) Получаем API ключ и начинаем кодить в 1С. Сама отправка смс, через http, выглядит вот так
https://sms.ru/sms/send?api_id=ВАШ_АПИ_КЛЮЧ&to=Номер1,Номер2&msg=hello+world&json =1 [/pre]
Для примера , у меня будет цикл по запросу, который отправляет заранее заданный текст из справочника, клиентам.
В нем у нас есть 2 объекта.
1) HTTP соединения
2) HTTP Запрос
В запрос кидаем сформированную строку, в которой есть
1) API ключ - записан в константы
2) Текст, из справочника (с заменой)
3) номер телефона из заказа (у кого откуда )
4) конец строки JSON = 1 , означает получение ответа от сайта , о успешной или не успешной отправке смс с кодами авторизации/отправки в формате JSON (Разбор JSON отдельная тема)
В запросе, указываем адрес который идет после sms.ru, начиная со слэша!
В соединении, если httpS , не указываем изначально , какой это протокол, указать порт и создать объект защищенного соединения.
В остальном, все как в коде, в любом виде =)
Код 1C v 8.х json =1"; Категория:
COM-объекты, WMI, WSH Полезные возможности редактора кода 1С Мне частенько приходится взаимодействовать с 1С-разработчиками, и во время совместной работы над проектами замечаю, что далеко не все из них хорошо знают свой главный инструмент – «Конфигуратор». Причем это не относится к степени крутости девелопера. Как оказалось, даже синьоры пользуются далеко не всеми возможностями «Конфигуратора», а ведь они могут сэкономить кучу времени, а тем самым повысить продуктивность разработчика.
Под катом я решил собрать несколько полезных фишек стандартного конфигуратора, которыми пользуюсь регулярно. Многие из них появились в платформе «1С:Предприятие 8.3.х», поэтому перед тестированием обязательно проверьте номер версии установленной у вас платформы.
Закладки Функция установки в коде закладок появилось еще с первых релизов 8-й версии платформы «1С:Предприятие». Штука чрезвычайно полезная и помогает разработчику быстрей передвигаться по коду. Например, у нас есть большой модуль, в который мы решили добавить ряд функций. Естественно, потом нам предстоит их отлаживать, а соответственно постоянно между ними переключаться.
Хорошо, если новые функции добавлены в самый конец модуля, а если потребовалось расположить в разных частях? Вот тут начинается самое интересное. Одни программисты начинают скролить текст (как правило, этим страдают новички). Более продвинутые применяют поиск по тексту (Ctrl + F ).
Оба способа рабочие, но пользоваться ими долго. Куда правильней использовать функцию «закладки». Например, переходим к какой-нибудь строке. Нажимаем ALT + F2 и получаем закладку (слева от строки отобразиться квадратик).
Убирается закладка тем же сочетанием клавиш. Так вот, закладок может быть в модуле расставлено много. По ним легко передвигаться нажатием клавиши F2. Фича крутая, но она была изначально не доделана и не позволяла, например, передвигаться по закладкам в разных модулях. Это досадное ограничение создавало лишние тормоза для программистов, привыкших к хорошим IDE (например, Visual Studio, PHP Storm).
В версии 8.3 недочет исправили и сделали классную вещь – «Список закладок ». Нажимаем клавиши «Ctrl + Shift + F2 », и перед нами откроется окно с полным списком установленных закладок:
В нем перечислены все закладки в разрезе модулей. Для каждой закладки указан номер строк и доступен перечень действий: перейти к коду, удалить закладку, удалить все закладки.
Таким образом, работать с закладками стало на порядок проще. Еще бы добавили возможность установки горячих клавиш на закладки, и стало бы совсем хорошо. Помню еще со времен «Delphi 6» привык к установке закладок по горячим клавишам Alt + <Цифра> . Наставил закладок и быстро перемещайся по ним.
Группировка строк В «1С:Предприятие» с самого начала была одна большая проблема – отсутствие возможности создавать дополнительные модули для определенных объектов. Например, есть у меня справочник «Контрагенты» и мне хочется разделить его функционал на модули. Допустим, функционала очеееень много. Так вот, в моем распоряжении все равно стандартный набор: Модуль объекта, Модуль менеджера и модуль формы. Понятное дело, что у каждого модуля своя роль, но что делать мне с моими 100500 функциями, которые относятся непосредственно к справочнику «Контрагенты»?
По мнению 1С я должен оформить их в виде общего модуля. С одной стороны, идея классная. Делаем модуль, его сразу видно и т.д., и т.п. Правда всегда есть один нюанс. Если следователь этой методике, то при наличии кучу объектов в конфигурации число общих модулей будет зашкаливать.
Вот взять хотя бы библиотеку БСП. Стоит ее внедрить и в количестве модулей начинает теряться. Я уже молчу про конфигурации, которые построены на базе БСП. Там и сто пятьсот модулей от БСП, и еще столько же специально для конфигурации.
В общем, неудобство налицо (особенно после опыта разработки в языках, где нет подобных ограничений). Увы, спастись от этой проблемы в настоящее время не получится. Зато, мы можем использовать возможности группировки функций/процедур в модулях.+
Например, есть у нас общий модуль «РаботаСКонтрагентами». В нем часть функций отвечают за поиск контрагента, другая часть за загрузку контрагентов из внешних источников и т.д. Чтобы не потеряться во всем этом многообразии возможностей, можно логически сгруппировать все функции/процедуру. Для этого в платформе 8.3 появилась функция под названием «Области». Рассмотрим пример:
Код 1C v 8.3 #Область ПОИСК_КОНТРАГЕНТОВJSON ()После добавление областей (язык препроцессора) наш код будет сгруппирован. Если их свернуть (области), то в итоге мы увидим симпатичный комментарий (см. рисунок ниже):
Клик мышкой по плюсику развернет область, и мы увидим свернутые функции. Если хочется сразу развернуть все имеющиеся функции (в пределах области), то кликаем по плюсику удерживая Ctrl.
Вот такая мега удобная вещь и в модулях с большим количеством функций спасает очень даже. В предыдущих версиях платформы было модно использовать для подобных целей блоки комментариев, но управлять/добавлять областями явно удобней.
Форматирование кода Собственно говоря, тут и рассказывать особо нечего – выделяем код, нажимаем «Alt + Shift + F » и редактор попытается привести его в божеский вид в соответствии с вшитым code-style. Функция работает вполне сносно и ей обязательно надо пользоваться. Пишу это потому, что неоднократно видел, как разработчики пытаются отбивать отступы самостоятельно. Это конечно круто, но зачем тратить время, если большую часть работы можно выполнить одной горячей клавишей?
Комментирование Опять же, никаких секретных действий – выделили код, нажали “Ctrl + num /” (слеш на дополнительной области клавиатуры) и получили закомментированный участок. Захотели вернуть обратно? Не беда! Выделяем закомментированный участок кода, нажимаем «Ctrl + Shift + num /» и мгновенно приводим его в боевой режим. Фишка попсовая, но опять же, новички про нее не знают, и тратят кучу времени на расстановку слешей. Да еще и матерят компанию «1С», за отсутствие возможности многострочного комментирования, как в продвинутых язык программирования.
Быстрая вставка специальных символов
Иногда возникает необходимость быстро вставить в редактор специальный символ (которого нет на клавиатуре). В большинстве случаев разработчики используют для этого функции встроенного языка (например, символ). А ведь есть способ проще. Если удерживать клавишу Alt и набрать на доп. клавиатуре код нужного символа (из таблицы ASKII), то он тут же будет вставлен. Например, держим ALT и набираем 65. На выходе получаем букву «А». Или вводим 4 и получаем бубновую масть.
Вставка специальных символов Хорошо, с этим понятно, но какой от этого еще можно получить профит? Лично я, таким образом вставляю символ амперсанда (&). Все знают, что этот символ используется для определения параметров в языке запросов. Неудобство состоит в том, что текст запроса мы пишем на русском языке, а для добавления этого символа перед параметром приходится переключить на английский, затем нажать Shift + 7, а потом вернуться обратно на русский.
Чтобы избавить себя от этой рутиной последовательности действий, я использую выше озвученную функцию. С ее помощью для установки амперсанда требуется лишь набрать с удержанной клавишей «alt» последовательность цифр 38. При этом надобность в двойном переключении языка отпадает.
Многие могут подумать, что я искусственно раздул проблему из ничего, но тут просто дело привычки. Кода приходится писать много и вот такие мелочи немного повышают производительность и избавляют от лишних нажатий клавиши backspace (для удаления случайно набранных символов). Не убедил? Тогда просто выделите время и попробуйте себя переучить
Автор: Игорь Антонов
Категория:
Полезные, Универсальные Функции Синтаксический анализ JSON - выражения средствами 1С 7.7 Код 1C v 7.x JSON _Error;JSON ");JSON - выражения", "!");JSON _Error(Стр = "")JSON -ОШИБКА: " + Стр, "!");JSON _Error;JSON _Type(Парам)JSON _Error();JSON _Error();JSON _Error();JSON _GetValue(Парам, Keys)JSON _Type(Парам);JSON _Error ТогдаJSON _Error("Параметра");JSON _Error();JSON _Error("№ 1");JSON _Error("Длина скаляра");JSON _Error("Индексация: <" + До + ">");JSON _Error("Строковый индекс <" + ИндСтр + "> только для Объекта");JSON _GetValue(Парам.ПолучитьЗначение(НС, 2), После);JSON _Error("Нет индекса <" + ИндСтр + ">");JSON _Error("Ошибка 1 числового индекса <" + Инд + ">");JSON _Error("Ошибка 2 числового индекса <" + Инд + "> (нецелый)");JSON _Error("Ошибка 3 числового индекса <" + Инд + "> (отрицательный)");JSON _Error("Ошибка 4 числового индекса <" + Инд + "> (" + ИндЧис + ">" + (КвоСтрок - 2) + ")");JSON _GetValue(Парам.ПолучитьЗначение(ИндЧис + 1, 2), После);JSON _Error("Ошибка 5 <" + До + ">");json "));JSON _Type(Рез1);JSON _GetValue(Рез1, ".length"); Сообщить("1) Размер: " + Зн1);JSON _GetValue(Рез1, "['1']"); Сообщить("3) ['1']: <" + Зн3 + ">");JSON _GetValue(Рез1, "[1]"); Сообщить("4) [1]: <" + Зн4 + ">");JSON _GetValue(Рез1, "['Массив'][6]"); Сообщить("5) [*]: <" + Зн5 + ">");JSON _GetValue(Рез1, "['Соответствие']['ДопустимоеИмяСвойства']"); Сообщить("6) [*]: <" + Зн6 + ">");JSON _Error = "ERROR";В качестве примера взят файл j1.json :
{
"999": 88,
"Null": null,
"Сэкраном": "\"",
"Ложь": false,
"ОдинСимв": "1",
"1": "11111",
"Пустышка": "",
"Истина": true,
"Число (плавающая точка)": 1.001e-2,
"Число (плавающая)": -1.001e-2,
"Число (фиксированная точка)": -1000.001,
"Дата": "2011-01-01T12:00:00Z",
"Строка (двойная кавычка)": "Двойная кавычка",
"Строка (одинарная кавычка)": "Одинарная кавычка",
"Маскируемые символы": " \\ \/ \b \t \n \f \r \" ",
"Заковыристая строка": "\\n\\",
"Проблемные символы": "Спец. символы: \u0000, \u0001, \u0002, ... , \u001e, \u001f; Юникод символы: \u0421\u0430\u0448\u0430\u0020\u003a\u0029",
"Кириллические символы": "’АБВГҐДЂЃЕ?ЁЄЖЗЅИ?ІЇЙЈКЛЉМНЊОПРСТЋЌУЎФХЦЧЏШЩЪЫЬЭЮЯ",
"Идентификатор": "a763cfbb-f94f-4c67-8e13-0e96a3a7f353",
"Пустой массив": [],
"Пустой объект": {},
"Массив": [
null,
false,
true,
1.001e-2,
-1000.001,
"2011-01-01T12:00:00Z",
"Двойная кавычка",
"Одинарная кавычка",
"a763cfbb-f94f-4c67-8e13-0e96a3a7f353",
[
"Первый элемент",
"Второй элемент"
],
{
"Имя": "Александр",
"Отчество": "Владимирович",
"Фамилия": "Переверзев"
},
{
"ДопустимоеИмяСвойства": true,
"Недопустимое Имя Свойства": false
}
],
"Структура":
{
"Имя": "Александр",
"Отчество": "Владимирович",
"Фамилия": "Переверзев"
},
"Соответствие":
{
"ДопустимоеИмяСвойства": true,
"Недопустимое Имя Свойства": false
},
"Ссылка":
{
"Ссылка": "00000000-0000-0000-0000-000000000000",
"Представление": "Неизвестная ссылка"
},
"COMSafeArray": [
0,
1,
2,
3,
4,
5
]
}
Категория:
HTML, JS, VML Обмен данными с сайтом используя формат JSON в 1С Формат JSON в 1С до версии 8.3.6 не реализован, но нижет я приведу примеры функций которые можно использовать для полноценной работы JSON в 1С
JSON (JavaScript Object Notation) это текстовый формат обмена данными, широко используемый в веб-приложениях. По сравнению с XML он является более лаконичным и занимает меньше места. Кроме этого все браузеры имеют встроенные средства для работы с JSON .
JSON активно используется в HTTP интерфейсах. А в 1С:Предприятии как раз есть такие механизмы, в которых хочется использовать этот формат. Это REST интерфейс приложения, автоматически генерируемый платформой, и HTTP-сервисы, которые вы можете создавать самостоятельно.
В платформе с версии 8.3.6: Потоковое чтение и запись JSON :
Объекты потоковой работы - это общие объекты ЧтениеJSON и ЗаписьJSON . Они последовательно читают JSON из файла или строки, или последовательно записывают JSON в файл или строку. Таким образом, чтение и запись JSON происходят без формирования всего документа в памяти.
В качестве иллюстрации потокового чтения JSON можно привести следующий пример:
Код 1C v 8.3 // Пример чтения JSON . JSON = Новый ЧтениеJSON ;JSON .ОткрытьФайл("ИмяФайла");JSON .УстановитьСтроку("СтрокаJSON ");JSON .Прочитать() ЦиклJSON = ЧтениеJSON .ТипТекущегоЗначения;JSON = ТипЗначенияJSON .Число ИЛИ TипJSON = ТипЗначенияJSON .Строка ИЛИ TипJSON = ТипЗначенияJSON .Булево ИЛИ TипJSON = ТипЗначенияJSON .Null ТогдаJSON .ТекущееЗначение;JSON = ТипЗначенияJSON .Комментарий ТогдаJSON .ТекущееЗначение;JSON = ТипЗначенияJSON .ИмяСвойства ТогдаJSON .ТекущееЗначение;JSON = ТипЗначенияJSON .НачалоМассива ИЛИ TипJSON = ТипЗначенияJSON .КонецМассива ИЛИ TипJSON = ТипЗначенияJSON .НачалоОбъекта ИЛИ TипJSON = ТипЗначенияJSON .КонецОбъекта ИЛИ TипJSON = ТипЗначенияJSON .Ничего ТогдаJSON .Закрыть();JSON вы самостоятельно формируете его структуру. Чтобы «подстраховать» вас от ошибок, объект ЗаписьJSON автоматически проверяет правильность записываемой структуры. JSON .ПроверятьСтруктуру = Ложь;JSON = Новый ПараметрыЗаписиJSON ( , Символы.Таб) ; JSON .ОткрытьФайл("ИмяФайла", , , ПараметрыЗаписиJSON );JSON может выглядеть следующим образом. Записывается массив из четырёх элементов. Три из них примитивного типа, а четвёртый элемент - это объект с двумя свойствами:JSON . ЗаписьJSON = Новый ЗаписьJSON ;JSON . ЗаписьиЗСЖ.ПроверятьСтруктуру = Ложь;JSON = Новый ПараметрыЗаписиJSON ( , Символы.Таб);JSON .ОткрытьФайл("ИмяФайла", , , ПараметрыЗаписиJSON );JSON .УстановитьСтроку(ПараметрыЗаписиJSON );JSON .ЗаписатьНачалоОбъекта();JSON .ЗаписатьИмяСвойства("СвойствоТипаМассив");JSON .ЗаписатьНачалоМассива();JSON .ЗаписатьЗначение("Значение строка");JSON .ЗаписатьЗначение(12.345, Истина);JSON -ЗаписатьЗначение(Истина);JSON .ЗаписатьНачалоОбъекта();JSON .ЗаписатьИмяСвойства("СвойствоТипаСтрока");JSON .ЗаписатьЗначение("Значение строка");JSON .ЗаписатьИмяСвойства("СвойствоТипаНеопределено");JSON .ЗаписатьЗначение(Неопределено);JSON .ЗаписатьКонецОбъекта();JSON . ЗаписатьКонецМассива () ;JSON .ЗаписатьКонецОбъекта();JSON .Закрыть();JSON = ЗаписьJSON .Закрыть(); Результат такой записи:
Код 1C v 8.х Сериализация примитивных типов и коллекций в JSON
Вторая группа средств работы с JSON хороша тем, что избавляет вас от рутинной работы по чтению/записи каждого отдельного значения или свойства. При чтении документы JSON отображаются в фиксированный набор типов платформы: Строка, Число, Булево, Неопределено, Массив, ФиксированныйМассив, Структура, ФиксированнаяСтруктура, Соответствие, Дата. Соответственно, в обратную сторону, композиция объектов этих типов позволяет сформировать в памяти и быстро записать в файл структуру JSON . Таким образом, чтение и запись небольшого объема JSON заранее известной структуры можно производить немногими строчками кода.
Основное назначение этих средств мы видим в обмене информацией с внешними системами, чтении конфигурационных файлов в формате JSON .
Сериализацию вы можете выполнять с помощью методов глобального контекста ПрочитатьJSON () и ЗаписатьJSON (). Они работают в связке с объектами ЧтениеJSON и ЗаписьJSON .
В качестве примера десериализации JSON можно рассмотреть чтение массива из двух объектов:
Код 1C v 8.3 // В качестве примера десериализации JSON можно рассмотреть чтение массива из двух объектов:JSON . JSON = Новый ЧтениеJSON (); JSON .ОткрытьФайл("ИмяФайла"); JSON (ЧтениеJSON ); JSON .Закрыть();JSON может выглядеть так:JSON JSON = Новый ЗаписьJSON ; JSON .ОткрытьФайл("ИмяФайла", , , Новый ПapaмeтpыЗaпиcиJS0N( , Символы.Таб) ) ;JSON (ЗаписьJSON , Структура); JSON .Закрыть();Подробнее вы можете посмотреть здесь
В платформе с версии 8.3.7: Полностью автоматизировали работу с JSON и реализовали в платформе третью группу средств. Они позволяют сериализовать в JSON прикладные типы 1С:Предприятия: ссылки, объекты, наборы записей и вообще любые типы, для которых поддерживается XDTO сериализация. Конечно же, мы обеспечили и обратную операцию - десериализацию. Зачем это нужно!?
Прежде всего, и в основном, XDTO сериализацию в JSON мы рекомендуем использовать при обмене данными между двумя прикладными решениями 1С:Предприятия. По сравнению с XML формат JSON более компактный, сериализация/десериализация в/из JSON выполняется быстрее. Кроме этого мы предприняли дополнительные меры для того, чтобы сократить объём передаваемых данных.
Кроме обмена между приложениями 1С:Предприятия этот механизм можно использовать и для обмена с внешними системами, готовыми принимать типы данных 1С:Предприятия. Например, XDTO сериализацию в JSON можно использовать для организации собственного HTTP интерфейса прикладного решения. Сервис на платформе 1С:Предприятия будет формировать ответ в памяти в виде строки JSON . А затем передавать её при помощи объекта HTTPСервисОтвет. Реализованный нами механизм сериализации полностью соответствует стандарту JSON . Поэтому внешняя система не должна испытывать каких-либо трудностей с десериализацией.
Использование XDTO сериализации в JSON для других задач видится нам маловероятным. Потому что если внешняя система не готова работать с прикладными типами 1С:Предприятия, то зачем их ей передавать? А если предполагается обмениваться только примитивными типами и коллекциями, то для этой задачи хорошо подходят методы ПрочитатьJSON () и ЗаписатьJSON (). Подробнее здесь
ДО платформы версии 8.3.6, т.е. 8.3.5 и ниже: На HelpF уже есть статья где описан пример: Работа с форматом JSON в 1С но не приведены функции, вот они:
Код 1C v 8.х Функция ПреобразоватьвСистему(Число10,система) ЭкспортJSON ИзМассива(Объект)JSON = "[";JSON = СтрокаJSON + """" + Элемент + """";JSON = СтрокаJSON + СтрЗаменить(Строка(Элемент), Символы.НПП, "");JSON = СтрокаJSON + Формат(Элемент, "БЛ=false; БИ=true");JSON = СтрокаJSON + Формат(Элемент - Дата(1970,1,1,1,0,0), "ЧГ=0");JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент);JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент);JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент);JSON = СтрокаJSON + """" + URLEncode(Строка(Элемент)) + """";JSON = СтрокаJSON + ",";JSON , 1) = "," ТогдаJSON = Лев(СтрокаJSON , СтрДлина(СтрокаJSON )-1);JSON + "]";JSON ИзСтруктуры(Объект)JSON = "{";JSON = СтрокаJSON + """" + Элемент.Ключ + """" + ":";JSON = СтрокаJSON + """" + Элемент.Значение + """";JSON = СтрокаJSON + СтрЗаменить(Строка(Элемент.Значение), Символы.НПП, "");JSON = СтрокаJSON + Формат(Элемент.Значение, "БЛ=false; БИ=true");JSON = СтрокаJSON + Формат(Элемент.Значение - Дата(1970,1,1,1,0,0), "ЧГ=0");JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент.Значение);JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент.Значение);JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент.Значение);JSON = СтрокаJSON + """" + URLEncode(Строка(Элемент.Значение)) + """";JSON = СтрокаJSON + ",";JSON , 1) = "," ТогдаJSON = Лев(СтрокаJSON , СтрДлина(СтрокаJSON )-1);JSON + "}";JSON (Объект) ЭкспортJSON = "";JSON = СформироватьСтрокуJSON ИзМассива(Объект);JSON = СформироватьСтрокуJSON ИзСтруктуры(Объект);JSON = СформироватьСтрокуJSON ИзМассива(МассивСтрок);JSON ;JSON (Результат, ТекстJSON , ТипДанных)JSON = СокрЛП(Сред(ТекстJSON , 2)); JSON <> "" ЦиклJSON , 1);JSON (Значение, ТекстJSON , "Структура");JSON (Значение, ТекстJSON , "Массив");JSON = СокрЛП(Сред(ТекстJSON , 2));JSON , 1) = "," ТогдаJSON = СокрЛП(Сред(ТекстJSON , 2));JSON = СокрЛП(Сред(ТекстJSON , 2));JSON , 1) = "," ТогдаJSON = СокрЛП(Сред(ТекстJSON , 2));JSON , ":");JSON , Поз-1));JSON = СокрЛП(Сред(ТекстJSON , Поз+1));JSON , 1) = "{" ТогдаJSON (Значение, ТекстJSON , "Структура");JSON , 1) = "[" ТогдаJSON (Значение, ТекстJSON , "Массив");JSON ) ЦиклJSON , Сч, 1);JSON ;JSON = "";JSON , Поз-1);JSON = СокрЛП(Сред(ТекстJSON , Поз + ?(Сред(ТекстJSON , Поз, 1) = ",", 1, 0)));JSON ) ЦиклJSON , Сч, 1);JSON ;JSON = "";JSON , Поз-1);JSON = СокрЛП(Сред(ТекстJSON , Поз + ?(Сред(ТекстJSON , Поз, 1) = ",", 1, 0)));JSON (Знач ТекстJSON ) ЭкспортJSON = СтрЗаменить(ТекстJSON , "\""", """");JSON = СтрЗаменить(ТекстJSON , """", ""); JSON , 1) = "{" ТогдаJSON (Результат, ТекстJSON , "Структура");JSON , 1) = "[" ТогдаJSON (МассивДанных, ТекстJSON , "Массив");Примеры их использования:
Код 1C v 8.х ////////////////////////////////////////////////////////JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);Пишите комменты
Категория:
Работа с Интернет, Почтой (Mail), FTP Яндекс, Google, Рамблер Карты и 1С Обработка демонстрирует возможности интеграции 1С с картографическими сервисами, в ней поддерживается работа трех поставщиков услуг / карт — Яндекс, Google. Рамблер.
Автор: Діма Головаченко - http://smaylukk.com.ua
но так вот сама обработка + еще 2 :
Скачивать файлы может только зарегистрированный пользователь!
Код Модуля Обработки:
Код 1C v 8.х Перем СтруктураПоставщиковКарт Экспорт;JSON //////////////////////////////////////////JSON ИзМассива(Объект)JSON = "[";JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент) + ",";JSON , 1) = "," ТогдаJSON = Лев(СтрокаJSON , СтрДлина(СтрокаJSON )-1);JSON + "]";JSON ИзСтруктуры(Объект)JSON = "{";JSON = СтрокаJSON + """" + Элемент.Ключ + """" + ":";JSON = СтрокаJSON + """" + URLEncode(Элемент.Значение) + """";JSON = СтрокаJSON + СтрЗаменить(Строка(Элемент.Значение), Символы.НПП, "");JSON = СтрокаJSON + Формат(Элемент.Значение, "БЛ=false; БИ=true");JSON = СтрокаJSON + Формат(ТекущаяДата() - Дата(1970,1,1,1,0,0), "ЧГ=0");JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент.Значение);JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент.Значение);JSON = СтрокаJSON + СформироватьСтрокуJSON (Элемент.Значение);JSON = СтрокаJSON + """" + URLEncode(Строка(Элемент.Значение)) + """";JSON = СтрокаJSON + ",";JSON , 1) = "," ТогдаJSON = Лев(СтрокаJSON , СтрДлина(СтрокаJSON )-1);JSON + "}";JSON (Объект) ЭкспортJSON = "";JSON = СформироватьСтрокуJSON ИзМассива(Объект);JSON = СформироватьСтрокуJSON ИзСтруктуры(Объект);JSON = СформироватьСтрокуJSON ИзМассива(МассивСтрок);JSON ;JSON (Результат, ТекстJSON , ТипДанных)JSON = СокрЛП(Сред(ТекстJSON , 2)); // удалим открывающий символ структуры(массива)JSON <> "" ЦиклJSON , 1);JSON (Значение, ТекстJSON , "Структура");JSON (Значение, ТекстJSON , "Массив");JSON = СокрЛП(Сред(ТекстJSON , 2));JSON , 1) = "," ТогдаJSON = СокрЛП(Сред(ТекстJSON , 2));JSON = СокрЛП(Сред(ТекстJSON , 2));JSON , 1) = "," ТогдаJSON = СокрЛП(Сред(ТекстJSON , 2));JSON , 1) = """" ТогдаJSON , ":");JSON , Поз - 1, 1) = """" ТогдаJSON , Поз - 1));JSON = СокрЛП(Сред(ТекстJSON , Поз+1));JSON , 1) = "{" ТогдаJSON (Значение, ТекстJSON , "Структура");JSON , 1) = "[" ТогдаJSON (Значение, ТекстJSON , "Массив");JSON ) ЦиклJSON , Сч, 1);JSON , Поз - 1, 1) = """" ТогдаJSON ;JSON = "";JSON , Поз - 1);JSON = СокрЛП(Сред(ТекстJSON , Поз + ?(Сред(ТекстJSON , Поз, 1) = ",", 1, 0))); JSON ) ЦиклJSON , Сч, 1);JSON , Поз - 1, 1) = """" ТогдаJSON ;JSON = "";JSON , Поз - 1);JSON = СокрЛП(Сред(ТекстJSON , Поз + ?(Сред(ТекстJSON , Поз, 1) = ",", 1, 0)));JSON (Знач ТекстJSON ) ЭкспортJSON = СтрЗаменить(ТекстJSON , "\""", """"); // заменим последовательность \" на "JSON = СтрЗаменить(ТекстJSON , """", ""); // а теперь удалим все кавычкиJSON , 1) = "{" ТогдаJSON (Результат, ТекстJSON , "Структура");JSON , 1) = "[" ТогдаJSON (МассивДанных, ТекстJSON , "Массив");JSON //////////////////////////////////////////
Код Формы Управляемой:
Код 1C v 8.2 УП JSON = РеквизитФормыВЗначение("Объект").ЗаполнитьСтруктуруИзОтветаJSON (СтрокаОтвет);JSON .res; Категория:
COM-объекты, WMI, WSH Работа с форматом JSON в 1С При обмене данными с веб-сайтами зачастую используется формат JSON . К сожалению, в 1С нет стандартных процедур для работы с данным форматом. В процессе реализации одного из проектов мной был разработан ряд процедур и функций облегчающих жизнь программисту 1С при работе с данными в формате JSON .JSON требуется две операции: сформировать строку JSON (например, для передачи параметров на веб-сервер в формате JSON из 1С) и прочитать данные из строки JSON (например, когда мы получаем ответ от веб-сервера в формат JSON ). Так как формат JSON в упрощенном виде представляет собой набор параметров в виде <ИмяПараметра>:<ЗначениеПараметра> то для работы с JSON в 1С мной был использован тип "Структура". Т.е. процедура чтения данных из формата JSON преобразует строку JSON в тип 1С "Структура". Так же и строка JSON в 1С формируется из структуры. Т.о. чтобы сформировать строку JSON сначала необходимо заполнить структуру необходимыми значениями, а потом вызвать функцию, преобразующую структуру в JSON . Позднее функционал функции формирования строки JSON был расширен - теперь в JSON может быть преобразован массив и таблица значений. При желании можно доработать функцию так, чтобы она "понимала" и другие типы. Такие как "Cоответствие", "ДеревоЗначений" и др. На практике это редко может пригодиться, поэтому сам я этого делать не стал.JSON .
Преобразование строки JSON в структуру 1С.
Для преобразования строки
JSON в структуру 1С служит функция ЗаполнитьСтруктуруИз
JSON ().
Код 1C v 8.х Функция ЗаполнитьСтруктуруИзJSON (<ТекстJON>)
<Текст
JSON > (обязательный) - строка в формате
JSON ,
которую необходимо преобразовать в структуру.
Возвращаемое значение.
Тип Структура.
Имя значения задается в структуре как Ключ, а само значение, соответственно, как значение. Поддерживаются также вложенные значение ("{}" в "{}") и массивы. В таких случаях тип значения будет Структура и Массив соответственно. Если у в
JSON задан только массив, то сформируется структура с одним элементом с ключом "Значение" и типом "Массив". Ниже приведены поясняющие примеры:
Код 1C v 8.х СтрокаJSON = "{""server"":""10234"",""user"":""3745"",""hash"":""8263ad83ce""}";JSON (СтрокаJSON );JSON = "{""server"":""10234"",""users"":[""3745"",""7462"",""2374""],""hash"":""8263ad83ce""}";JSON (СтрокаJSON );JSON = "{""server"":""10234"",""users"":[{""id"":""3745"",""name"":""Jack""},{""id"":""7462"",""name"":""Nick""}>";JSON (СтрокаJSON );JSON = "[""Nissan"",""Ford"",""Audi""]";JSON (СтрокаJSON );
Следует заметить, что все значения заполняются как строковые (тип "Строка"). Последующее преобразование (например, к числу) лежит на самом разработчике.
Формирование строки JSON в 1С.
Для формирования строки в формате
JSON в 1С предназначена функция СформироватьСтроку
JSON ().
Код 1C v 8.х Функция СформироватьСтрокуJSON (<Объект>)
<Объект> (обязательный) - объект, который необходимо
преобразовать в формат
JSON . Может иметь тип "Структура",
"Массив" или "ТаблицаЗначений".
Если Объект имеет тип "ТаблицаЗначений", то она рассматривается как массив из структур, соответствующих колонкам ТЗ. Все значения приводятся к строковому типу, дата приводится в формат unixtime, значение типа булево "Истина" преобразуется в строку "true", а "Ложь" - в "false, прочие объекты просто преобразуются как "Строка(Объект)".
Ниже приведены поясняющие примеры.
Код 1C v 8.х ////////////////////////////////////////////////////////JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);JSON = СформироватьСтрокуJSON ИзСтруктуры(Данные);
Автор:
Павел Толкачев Категория:
Работа с Интернет, Почтой (Mail), FTP Передача файлов и данных на веб-сервер из 1С методами GET и POST При интеграции 1С с веб-сайтами всегда встает вопрос о передачи некоторых данных на веб-сервер. Будь то это передача параметров запроса для получения данных от веб-сервера в 1С или же передача данных из 1С, которые должны быть сохранены или каким-то образом обработаны на веб-сервере. Передаваться могут как простые данные в виде строк, чисел, так и целые файлы (изображения, XML-файлы и прочее). Для передачи и получения файлов и данных на веб-сервер в 1С используется объект HTTPСоединение .
Создание и инициализация HTTP соединения в 1С
Для инициализации HTTP соединения в 1С необходимо создать объект HTTPСоединение и в конструкторе указать параметры HTTP соединения.
Код 1C v 8.х Новый HTTPСоединение(<Сервер>, <Порт>, <ИмяПользователя>, <Пароль>, <Прокси>, <ЗащищенноеСоединение>)
<Сервер> (обязательный) - адрес сервера, с которым необходимо установить соединение.
<Порт> (необязательный) - порт сервера, с которым устанавливается соединение.
Значение по умолчанию зависит от защищенности соединения (80 для незащищенного и 443 для SSL-соединения).
<ИмяПользователя> (необязательный) - имя пользователя на указанном сервере.
<Пароль> (необязательный) - пароль пользователя на указанном сервере.
<Прокси> (необязательный). Тип - ИнтернетПрокси. Прокси, используемый для соединения с сервером.
<ЗащищенноеСоединение> (необязательный). Тип - Булево. Определяет используемый протокол -
http или https. По умолчанию Ложь.
Ниже приведен примеры создания HTTPСоединения с сайтом http://www.mysite.ru/.
Код 1C v 8.х // соединение с параметрами по умолчанию Передача данных на веб-сервер из 1С методом GET.
Для передачи данных на веб-сервер из 1С методом GET используется процедура Получить() объекта HTTPСоединение.
Код 1C v 8.х Получить(<Источник>, <ИмяВыходногоФайла>, <Заголовки>)
<Источник> (обязательный). Тип - Строка. Адрес ресурса на сервере.
<ИмяВыходногоФайла> (обязательный). Тип - Строка. Имя файла на диске, в который
помещаются данные, полученные от сервера (ответ сервера).
<Заголовки> (необязательный). Тип - Строка. Заголовки, добавляемые к запросу на сервер.
Текстовые пары вида <Заголовок>:<Значение>, разделенные комбинацией ВК + ПС.
(подробнее о заголовках будет сказано ниже).
Рассмотрим параметры процедуры Получить() более подробно:
В качестве источника указывается строка с адресом запроса, идущая после названия домена и символа "/". Так, если необходимо отправить данные на адрес https://www.mysite.com/getusers.php, то при создании HTTP соединения в конструкторе HTTPСоединение в поле "Сервер" указывается "www.mysite.com", признак защищенного соединения устанавливается в Истина, а в процедуре Получить() в параметре Источник указывается "getUsers.php".
В поле ИмяВыходногоФайла указывает имя файла на диске, в который будут сохранены данные, полученные от сервере в результате запроса. Так, например, если сервер возвращает список пользователей в формате XML, то на диск в указанный файл будет сохранен XML файл со списком пользователей.
О заголовках более подробно будет сказано ниже.
Так же, при запросе к веб-серверу зачастую передаются дополнительные данные (параметры) для этого запроса. Параметры от адреса источника отделяются символом "?". Каждый параметр задается в формате <Имя_Параметры>=<Значение_Параметры>. Параметры от адреса источника отделяются символом "?". Сами же параметры отделяются друг от друга символом "&". В результате строка адреса источника может выглядеть следующим образом: getUsers.php?owner_id=263544&count=100.
Ниже приведен пример, поясняющий все выше сказанное.
Код 1C v 8.х // необходимо выполнить запрос по адресуЗаголовки HTTP
Заголовки HTTP (англ. HTTP Headers) — это строки в HTTP-сообщении, содержащие разделённую двоеточием пару имя-значение. Формат заголовков соответствует общему формату заголовков текстовых сетевых сообщений ARPA. Заголовки должны отделяться от тела сообщения хотя бы одной пустой строкой.
Все заголовки разделяются на четыре основных группы:
General Headers (рус. Основные заголовки) — должны включаться в любое сообщение клиента и сервера.
Request Headers (рус. Заголовки запроса) — используются только в запросах клиента.
Response Headers (рус. Заголовки ответа) — только для ответов от сервера.
Entity Headers (рус. Заголовки сущности) — сопровождают каждую сущность сообщения.
Именно в таком порядке рекомендуется посылать заголовки получателю.
Более подробно о заголовках HTTP можно прочитать здесь. Так же можно ознакомится со списком заголовков HTTP.
От себя лишь добавлю, что, если это явно не указано в требованиях к отправке данных веб-серверу заголовки HTTP для метода GET можно не указывать. Для метода POST обычно нужно указать заголовки Content-Type (тип передаваемых данных, например: "Content-Type: text/html;charset=utf-8") и Content-Length (размер передаваемых данных в байтах, например: "Content-Length: 1348").
Напомню, что HTTP заголовки в 1С указываются строкой в виде текстовых пар "<Заголовок>:<Значение>", разделенных комбинацией символов ВК+ПС.
Также заголовки можно задать типом Соответствие, где в качестве ключа указывается заголовок, а в качестве значения - значение заголовка.
Ниже приведены поясняющие примеры:
Код 1C v 8.х источник = "owner=263544&count=100"; Передача данных на веб-сервер из 1С методом POST.
Общие сведения.
Для передачи данных на веб-сервер из 1С методом POST используется процедура ОтправитьДляОбработки() объекта HTTPСоединение.
Код 1C v 8.х ОтправитьДляОбработки(<Источник>, <АдресРесурса>, <ИмяВыходногоФайла>, <Заголовки>)
<Источник> (обязательный) - Имя файла-источника, который будет отправлен
на сервер для обработки.
<АдресРесурса> (обязательный). Тип - строка. Адрес ресурса на сервере,
в который посылаются данные из источника.
<ИмяВыходногФайла> (обязательный) - Имя файла на диске, в который записываются
полученные с сервера данные.
<Заголовки> (необязательный). Тип - строка. Заголовки, добавляемые к запросу на сервер.
Текстовые пары вида <Заголовок>:<Значение>, разделенные комбинацией ВК + ПС.
(подробнее о заголовках будет сказано ниже).
Рассмотрим параметры процедуры ОтправитьДляОбработки() подробнее:
В качестве источника указывается файл, содержимое которого необходимо отправить на сервер для обработки. Подробнее о формировании содержимого файла-источника будет сказано ниже.
Поле АдресРесурса аналогично полю Источник процедуры Получить(), т.е. указывается строка с адресом запроса, идущая после имени домена и символа "/".
Поле ИмяВыходногоФайла также аналогично одноименному полю процедуры Получить(), т.е. содержит имя файла, в котором будут сохранены данные, полученные от сервера в результате обработки исходных данных.
О заголовках было упомянуто выше. Напомню лишь, что для метода POST обычно указываются заголовки Content-Type и Content-Length. В качестве параметра заголовка Content-Length указывается размер файла-источника, преобразованный с помощью функции XMLСтрока().
Ниже приведен пример, поясняющий все выше сказанное.
Код 1C v 8.х имяФайлаОтправки = "d:\data\request.txt"; // файл с отсылаемыми для обработки даннымиПередача параметров методом POST.
Для передачи параметров, аналогично методу GET, можно сформировать строку параметров, записать их в текстовый файл и отправить этот файл на сервер для обработки. Ниже приведен пример аналогичный примеру отправки методом GET, но теперь те же данные отправляются методом POST.
Код 1C v 8.х // сформируем файл для отправки на сервер Передача файлов методом POST.
Зачастую данные для обработки задаются не виде строки параметров разделенных "&", как в рассматриваемых выше примерах, а виде файла определенного формата, например XML или
JSON . Рассмотрим пример отправки данных на веб-сервер для обработки методом POST, которые задаются в формате XML. Например, сервер может добавить ваш комментарий к материалу. В описании процедуры добавлении сказано, что данные необходимо отправлять по адресу www.mysite.com/addComment.php. Сами данные должны быть переданы в следующем виде:
Код <?xml version="1.0" encoding="UTF-8"?>
<request>
<user_id>ID_Пользователя</user_id>
<post_id>ID_Материала</post_id>
<message>Текст_Комментария</message>
</request>
где:
<ID_Пользователя> - id пользователя на сайте, от имени которого добавляется комментарий;
<ID_Материала> - id материала на сайте, к которому добавляется комментарий;
<Текст_Комментария> - текст комментария.
Предположим, что нам уже известны id пользователя и материала и они хранятся в переменных user_id и post_id. Ниже приведен пример, решающий нашу задачу.
Код 1C v 8.х // подготовим файл с данными для отправкиЗагрузка файлов (изображений, документов и т.п.) на веб-сервер методом POST.
Зачастую возникает необходимость загрузки файлов на веб-сервер. Это может быть, например, изображение к статье на сайте, или фотография для альбома, или архив для файлообменника. Ранее мы рассматривали передачу методом POST параметров или просто файлов. Таким же образом можно и передавать двоичные файлы. Но как быть, если файлы необходимо отправлять вместе с параметрами? Для возможности отправки файлов в этом случае используется HTTP заголовок ContentType:multipart/form-data. Следует заметить, что обычно таким способом передаются файлы через веб-браузеры. Т.е. когда на сайте вы выбираете файл и нажимаете кнопку "Загрузить", то файл передается способом описанным ниже. При таком способе сам файл также задается как переменная, т.е., например, файл передается через параметр file или image. Однако, мы не можем просто передать file=<Двоичные_Данные>. А вот как все таки передать файл мы и рассмотрим ниже.
Для возможности вместе с параметрами передавать и двоичные данные (файлы) необходимо сформировать HTTP заголовок Content-Type следующим образом:
Content-Type: multipart/form-data, boundary=<уникальные_данные>
где <уникальные_данные> - это любой набор цифр и/или символов, который будет служить для отделения значений друг от друга. Значение boundary должно быть уникальным в пределах пересылаемой информации, т.е. таких символов не должно встречаться в пересылаемых файлах и переменных.
Bounday можно сформировать, например, таким образом
Код 1C v 8.х boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");
Все данные отделяются друг от друга разделителем boundary. Начинать разделитель нужно с "--":
Код --<boundary>
В конце данных нужно закрыть разделитель, добавили в конце разделителя "--", т.е. вид будет "--<boundary>--".
Итак, например, нам нужно передать на веб-сервер текстовый файл через параметр "text", его описание через параметр "desc" и id пользователя через параметр "uid", для которого будет загружен наш файл.
Предположим, что файл содержит следующий текст:
Мороз и солнце; день чудесный!
Описание должно содержать "Стих А.С. Пушкина", а id пользователя равно "0123456". Тогда файл должен быть сформирован следующим образом (для упрощения предположим, что bounday мы уже сформировали и он равен "ccf8111910")
Код --ccf8111910
А теперь перейдем непосредственно к 1С. Пусть у нас будет форма с реквизитами "Пользователь", "Описание" и "ИмяФайла". Реализуем отправку данных, описанным выше способом
Код 1C v 8.х // подготовим файл с данными для отправки
Передача текстовых файлов таким способом проблем не вызывает. Сложнее дело обстоит с файлами, содержащими двоичные данные (изображения, архивы и т.п.). Все дело в том, что в 1С просто нет методов для чтение двоичных файлов в строку. Если мы делаем обмен со своим сайтом, которые сами и разрабатывали, то можно просто преобразовать файл в строку Base64 при помощи процедуры Base64Строка(), а на стороне сервера преобразовать строку Base64 обратно.
Код 1C v 8.х // подготовим файл с данными для отправки
А как же быть если мы загружаем файл на сторонний сервер, который принимает файл как есть без преобразование его в строку Base64(). В это случае можно пойти на хитрость. В 1С есть процедура ОбъединитьФайлы(), которая объединяет несколько файлов на диске в один результирующий файл
Код 1C v 8.х ОбъединитьФайлы(<ИменаЧастей>, <ИмяРезультирующегоФайла>)
<ИменаЧастей> (обязательный). Тип - Массив. Массив имен частей файлов, которые
требуется объединить. Объединение будет происходить в порядке, в котором заданы
имена файлов в массиве.
<ИмяРезультирующегоФайла> (обязательный). Тип - Строка. Имя файла, который будет
создан в результате объединения файлов.
Т.е. мы можем сформировать текстовый файл с запросом, объединить его с файлом(-ами), которые необходимо передать на веб-сервер и передать уже файл, получившийся в результате объединения исходных файлов. Ниже демонстрируется процесс передачи двух zip архивов на сервер с дополнительными параметрами user_id и post_id.
Код 1C v 8.х // подготовим файлы с данными для отправки
Ну вот, вроде бы, и все, что я хотел рассказать о способах передачи файлов и данных на веб-сервер из 1С. Если что-то не понятно, что-то хотите уточнить или нашли ошибки - пишите в комментариях.
Автор:
Павел Категория:
Работа с Интернет, Почтой (Mail), FTP Отправка sms из 1C через avisosms.ru. Столкнулся с задачей отправки sms из 1С. Спасибо Якову за напутствие в решении данной задачи и указание сервиса avisosms.ru.
На сайте сервиса предоставлена документация по работе с ним. В частности сервис предлагает следующие варианты работы:
*
JSON протокол
* email2SMS протокол
* HTTP GET протокол
* Удаленный доступ к телефонной книге
* XML протокол
После проб и ошибок с протоколом email2sms (ну не любит мой провайдер через smtp слать письма на не очень красивые адреса относя их к спаму и блокируя) был выбран вариант решения с
JSON протоколом. Для краткой демонстрации работы сервера приведена небольшая конфигурация. Конфигурация написана на 1С Предприятие 8.2 с поддержкой работы веб-клиента. Для работы конфигурации необходимо заполнить константы:
* ПользовательСМС – Ваш логин в систему;
* ПарольСМС – Ваш пароль в систему;
* ПодписьСМС – Ваш адрес отправителя, который был создан в личном кабинете.
Конфигурация позволяет:
* Отправлять смс контрагенту, номер которого записан в соответствующем реквизите (номер пишем в формате 380ХХХХХХХХХХ);
* Получать статусы отправленных смс.
Ниже приведу код формирования запроса на отправку смс
Код 1C v 8.2 УП &НаСервереJSON = "{'username': '" + Константы.ПользовательСМС.Получить() + "'";JSON = ПараметрJSON + ",'password': '" + Константы.ПарольСМС.Получить() + "'";JSON = ПараметрJSON + ",'request_type': 'send_message'";JSON = ПараметрJSON + ",'destination_address': '" + Объект.Контрагент.НомерТелефона+ "'";JSON = ПараметрJSON + ",'message': '" + Объект.ТекстСМС+ "'";JSON = ПараметрJSON + ",'source_address': '" + Константы.ПодписьСМС.Получить() + "'";JSON = ПараметрJSON + ",flash:'0'}";json /",0);JSON );Источник Категория:
COM-объекты, WMI, WSH 
Функция получение содержимого адреса url (веб-страницы) методом GET 
Необходимость работы с этим форматом на уровне платформы обусловлена не только тем, что это «модный современный» формат, который прикладные решения 1С:Предприятия сами по себе могут использовать для интеграции со сторонними приложениями. Другая причина заключается ещё и в том, что .gif)
