Собрать пакет с версией, количеством и UTF-8 названием

Учебные задачи

Пакет имеет согласованную структуру: 1 байт версии, 2 байта количества, 4 байта длины названия, затем UTF-8. Проверяем поля до чтения тела.

Где и как запускать

Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.

Подготовка

  1. Серверный контекст, только память. Это учебный протокол, не формат какого-либо реального API.

  2. Название кодируется в UTF-8 без BOM; целые записываются в LittleEndian.

  3. В конструктор записи и чтения передаётся уже созданный поток: его закрываем отдельно после закрытия обоих объектов.

Название = ПолучитьБуферДвоичныхДанныхИзСтроки("Книга", КодировкаТекста.UTF8, Ложь);
Поток = Новый ПотокВПамяти;
Попытка
    Запись = Новый ЗаписьДанных(Поток, КодировкаТекста.UTF8, ПорядокБайтов.LittleEndian);
    Попытка
        Запись.ЗаписатьБайт(1);
        Запись.ЗаписатьЦелое16(3);
        Запись.ЗаписатьЦелое32(Название.Размер);
        Запись.ЗаписатьБуферДвоичныхДанных(Название);
    Исключение
        Запись.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Запись.Закрыть();
    Сообщить(Поток.Размер());
    Поток.Перейти(0, ПозицияВПотоке.Начало);
    Чтение = Новый ЧтениеДанных(Поток, КодировкаТекста.UTF8, ПорядокБайтов.LittleEndian);
    Попытка
        Версия = Чтение.ПрочитатьБайт();
        Если Версия <> 1 Тогда
            ВызватьИсключение "Неподдерживаемая версия пакета";
        КонецЕсли;
        Количество = Чтение.ПрочитатьЦелое16();
        Длина = Чтение.ПрочитатьЦелое32();
        Если Количество = Неопределено Или Длина = Неопределено Тогда
            ВызватьИсключение "Заголовок пакета оборван";
        КонецЕсли;
        Если Длина < 0 Или Длина > 1024 Тогда
            ВызватьИсключение "Недопустимая длина названия";
        КонецЕсли;
        Результат = Чтение.Прочитать(Длина);
        Если Результат.Размер <> Длина Тогда
            ВызватьИсключение "Название получено не полностью";
        КонецЕсли;
        БуферНазвания = Результат.ПолучитьБуферДвоичныхДанных();
        Сообщить(ПолучитьСтрокуИзБуфераДвоичныхДанных(БуферНазвания, КодировкаТекста.UTF8));
        Сообщить(Количество);
        Сообщить(Результат.ПолучитьДвоичныеДанные().Размер());
    Исключение
        Чтение.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Чтение.Закрыть();
Исключение
    Поток.Закрыть();
    ВызватьИсключение;
КонецПопытки;
Поток.Закрыть();

Разбор по шагам

  1. Записываем поля заголовка в фиксированном порядке и длину тела в байтах.

  2. Закрыть объекта записи сбрасывает её буферы, не закрывая переданный извне поток.

  3. Возвращаем позицию в начало и читаем поля в том же порядке и с тем же порядком байтов.

  4. Ограничиваем длину, проверяем фактический размер прочитанного тела и лишь затем декодируем название.

Как проверить результат

  1. Размер пакета 17 байтов: 1 + 2 + 4 + 10; результат Книга и количество 3.

  2. Замените записанную версию 1 на 2: чтение должно завершиться текстом Неподдерживаемая версия пакета.

  3. Укажите при записи длину 100 вместо фактических 10: должна сработать проверка неполного названия.

Ожидаемый результат

Пакет прочитан с проверкой версии, ограничением размера и контролем неполного тела.

На что обратить внимание

  1. Для сетевого потока частичное чтение может быть нормальным: в реальном сетевом протоколе собирайте тело циклом до нужного размера или завершения потока.

  2. Нельзя доверять длине из внешнего пакета без верхнего ограничения: иначе можно выделить чрезмерную память.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.