ЗаписьДанных.НачатьЗаписьЦелого64

Записать числовой пакет цепочкой callback без Ждать

Следующий шаг запускается из экспортной процедуры завершения предыдущего. У обработчиков записи один аргумент: дополнительные параметры.

Подготовка

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

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

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

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

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

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

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

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

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

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

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

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

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

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

&НаКлиенте
Процедура ПослеЗакрытияЗаписи(Состояние) Экспорт
    Состояние.ЗаписьЗакрыта = Истина;
    Данные = Состояние.Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Состояние.ПотокЗакрыт = Истина;
    Буфер = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Данные);
    Сообщить(Буфер.Размер = 15);
    Сообщить(Буфер.Получить(0) = 7);
    Сообщить(Буфер.ПрочитатьЦелое16(1, ПорядокБайтов.LittleEndian) = 4660);
    Сообщить(Буфер.ПрочитатьЦелое32(3, ПорядокБайтов.BigEndian) = 16909060);
    Сообщить(Буфер.ПрочитатьЦелое64(7, ПорядокБайтов.LittleEndian) = 4294967296);
    Выполняется = Ложь;
КонецПроцедуры

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

1. Модульная переменная Выполняется запрещает второй запуск, пока цепочка не закончена.

2. Структура Состояние передаётся через ДополнительныеПараметры каждого ОписаниеОповещения и удерживает собственные поток/запись.

3. У процедур ПослеБайта/После16/После32/После64/ПослеСброса/ПослеЗакрытияЗаписи ОДИН аргумент. У записи нет дополнительного результата, поэтому нельзя добавлять выдуманный параметр Результат.

4. Следующая операция вызывается только после завершения предыдущей; в конце сначала завершается запись, затем извлекаются данные потока.

5. Обработчик ОшибкаОперации имеет три аргумента, включая СтандартнаяОбработка. Он освобождает собственные ресурсы и разрешает платформе показать исходную ошибку.

6. Готовый заголовок разбираем буфером по фиксированным смещениям 0, 1, 3, 7 и проверяем все поля.

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

1. После цепочки пять сравнений Истина: длина 15, версия 7, числа 4660/16909060/4294967296.

2. Повторное нажатие во время цепочки показывает просьбу подождать; после завершения новый запуск разрешён.

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

Получен конкретный числовой пакет с корректными callback-сигнатурами и обработчиком ошибок.

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

1. Экспорт обязателен у всех процедур, вызываемых через ОписаниеОповещения.

2. Это альтернативная модель API, а не код, который следует смешать с Асинх примером в одной форме без переименования процедур.

3. Подготовка ограничена Windows-клиентом; синхронное аварийное освобождение не является универсальным веб-клиентским решением.

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