1С 8.3 Шаблон http-сервиса

ПРИМЕРЫ КОДА 1С

Перейти в раздел примеры кода 1С 8.3:

1С 8.3 HTTP
ПрочитатьДатуJSON()

Шаблон HTTP-сервиса — это абстрактный образец, который описывает структуру и функциональность веб-приложения или сервиса, работающего по протоколу HTTP.

Шаблон включает в себя следующие компоненты:

Клиент — приложение или пользователь, которое отправляет запросы к серверу.
Сервер — программа, которая обрабатывает запросы от клиентов и возвращает им ответы.
Запрос — сообщение, отправленное клиентом на сервер с указанием метода (GET, POST, PUT, DELETE и т. д.), URL-адреса и дополнительных параметров.
Ответ — сообщение от сервера клиенту, содержащее код состояния (например, 200 OK), заголовки и тело ответа.

В зависимости от метода запроса сервер может выполнять различные действия:

GET — получение данных с сервера.
POST — отправка данных на сервер для создания нового ресурса.
PUT — обновление существующего ресурса на сервере.
DELETE — удаление ресурса с сервера.

Copy-paste c fastcode.im:

#Область ОбработчикиСобытий
Функция ЛицензииДоступны(Запрос)

  Ответ = Новый HTTPСервисОтвет(200);
   ДобавитьЗаголовкиДанных(Ответ);
   Результат = Результат();
   Ответ.КодСостояния = Результат.КодСостояния;
   Ответ.УстановитьТелоИзСтроки(Результат.ТекстСостояния);

Возврат Ответ;

КонецФункции
#КонецОбласти

#Область СлужебныеПроцедурыИФункции
Процедура ДобавитьЗаголовкиДанных(Ответ) Экспорт

  Заголовки = Ответ.Заголовки;
  Заголовки.Вставить("Accept", "application/json");
   Заголовки.Вставить("Accept-Charset", "utf-8");
   Заголовки.Вставить("Content-Type", "application/json; charset=utf-8");
   Заголовки.Вставить("Cache-Control", "no-cache");

КонецПроцедуры

Функция Результат()

  Попытка
       ТекстСостояния = НаличиеЛицензийТекст();
       КодСостояния = 200;
   Исключение
       ТекстСостояния = "";
       КодСостояния = 500;
   КонецПопытки;

Возврат Новый Структура("ТекстСостояния, КодСостояния", ТекстСостояния, КодСостояния);

КонецФункции

Функция НаличиеЛицензийТекст()

  УстановитьПривилегированныйРежим(Истина);
   ЗакрытьПрограмму = Ложь;
   ПроверитьЛицензииПередНачаломРаботыСистемы(ЗакрытьПрограмму);

  Структура = Новый Структура;
   Структура.Вставить("LicenseAvailable ", Формат(НЕ ЗакрытьПрограмму, "БЛ=false; БИ=true"));

   ЗаписьJSON = Новый ЗаписьJSON;
   ЗаписьJSON.УстановитьСтроку();
   ЗаписатьJSON(ЗаписьJSON, Структура);
   Текст = ЗаписьJSON.Закрыть();

Возврат Текст;

КонецФункции
#КонецОбласти

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник