ЗаписьДанных.НачатьЗапись

Собрать своё текстовое сообщение из буфера, двоичных данных и строк

Учебное сообщение HDR|Книга заканчивается ПС. Его части записываем разными callback-методами, не смешивая текстовые и двоичные результаты.

Подготовка

1. Создайте учебную внешнюю обработку с пустой управляемой основной формой. Создайте команду УчебныйПример и кнопку этой команды.

2. В свойстве команды Действие выберите процедуру УчебныйПример. Вставьте полный приведённый модуль формы.

3. Откройте EPF в тонком или толстом клиенте Windows и нажмите кнопку. Не переносите Ждать и Асинх в серверный общий модуль.

4. Пример работает только со своими данными в памяти; записи в базу, файлы и сеть нет.

Перем Выполняется;

&НаКлиенте
Процедура УчебныйПример(Команда)
    Если Выполняется = Истина Тогда
        Сообщить("Дождитесь завершения предыдущей учебной цепочки");
        Возврат;
    КонецЕсли;
    Поток = Новый ПотокВПамяти;
    Запись = Новый ЗаписьДанных(Поток, КодировкаТекста.UTF8, , Символы.ПС);
    Буфер = ПолучитьБуферДвоичныхДанныхИзСтроки("xHDRy", КодировкаТекста.UTF8, Ложь);
    Граница = ПолучитьДвоичныеДанныеИзСтроки("|", КодировкаТекста.UTF8, Ложь);
    Состояние = Новый Структура("Поток,Запись,ЗаписьЗакрыта,ПотокЗакрыт,Буфер,Граница", Поток, Запись, Ложь, Ложь, Буфер, Граница);
    Выполняется = Истина;
    Попытка
        Состояние.Запись.НачатьЗаписьБуфераДвоичныхДанных(ОповещениеДля("ПослеЗаголовка", Состояние), Состояние.Буфер, 1, 3);
    Исключение
        ОсвободитьУчебныеРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Функция ОповещениеДля(ИмяОбработчика, Состояние)
    Возврат Новый ОписаниеОповещения(ИмяОбработчика, ЭтотОбъект, Состояние,
        "ОшибкаОперации", ЭтотОбъект);
КонецФункции

&НаКлиенте
Процедура ОшибкаОперации(Ошибка, СтандартнаяОбработка, Состояние) Экспорт
    ОсвободитьУчебныеРесурсы(Состояние);
    Выполняется = Ложь;
    СтандартнаяОбработка = Истина;
КонецПроцедуры

&НаКлиенте
Процедура ОсвободитьУчебныеРесурсы(Состояние)
    Попытка
        Если Не Состояние.ЗаписьЗакрыта Тогда
            Состояние.Запись.Закрыть();
            Состояние.ЗаписьЗакрыта = Истина;
        КонецЕсли;
        Если Не Состояние.ПотокЗакрыт Тогда
            Состояние.Поток.Закрыть();
            Состояние.ПотокЗакрыт = Истина;
        КонецЕсли;
    Исключение
        // Не заменяем первичную ошибку вторичной ошибкой освобождения ресурсов.
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗаголовка(Состояние) Экспорт
    Состояние.Запись.НачатьЗапись(ОповещениеДля("ПослеГраницы", Состояние), Состояние.Граница);
КонецПроцедуры

&НаКлиенте
Процедура ПослеГраницы(Состояние) Экспорт
    Состояние.Запись.НачатьЗаписьСимволов(ОповещениеДля("ПослеНачалаНазвания", Состояние), "Кни");
КонецПроцедуры

&НаКлиенте
Процедура ПослеНачалаНазвания(Состояние) Экспорт
    Состояние.Запись.НачатьЗаписьСтроки(ОповещениеДля("ПослеНазвания", Состояние), "га");
КонецПроцедуры

&НаКлиенте
Процедура ПослеНазвания(Состояние) Экспорт
    Состояние.Запись.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЗаписи", Состояние));
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗакрытияЗаписи(Состояние) Экспорт
    Состояние.ЗаписьЗакрыта = Истина;
    Данные = Состояние.Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Состояние.ПотокЗакрыт = Истина;
    Сообщить(Данные.Размер() = 15);
    Сообщить(ПолучитьСтрокуИзДвоичныхДанных(Данные, КодировкаТекста.UTF8) = "HDR|Книга" + Символы.ПС);
    Выполняется = Ложь;
КонецПроцедуры

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

1. В буфере xHDRy выбираем срез с позиции 1 длиной 3: HDR. Лишние x и y не записываются.

2. Разделитель | передаём как ДвоичныеДанные в НачатьЗапись, а не как объект Обещание.

3. НачатьЗаписьСимволов пишет Кни без добавленной границы; НачатьЗаписьСтроки дописывает га и разделитель ПС.

4. Каждый callback записи принимает только Состояние и запускает следующий шаг после завершения своего.

5. Закрытие записи завершает буферизацию. Затем извлекаем двоичные данные и проверяем текст целиком.

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

1. Результат HDR|Книга + ПС занимает 15 байтов: 4 ASCII, 10 байтов русских букв, один ПС.

2. Оба сравнения Истина; повторный запуск не дописывает к предыдущему результату.

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

Собрано законченное маленькое сообщение с корректным разграничением байтов и символов.

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

1. Эта граница определена только упражнением, не внешней спецификацией.

2. При подсчёте размера учитывайте UTF-8: пять русских букв Книга занимают десять байтов.

3. У всех callback записи один аргумент; при добавлении выдуманного Результат вызов обработчика не совпадёт с API.

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