Прочитать числовые поля callback-цепочкой с двумя аргументами результата

Самостоятельно создаём известный 15-байтовый пакет и читаем его через НачатьЧтениеБайта/Целого16/32/64. Обработчики чтения отличаются от обработчиков записи.

Подготовка

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

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

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

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

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

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

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

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

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

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

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

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

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

&НаКлиенте
Процедура ПослеКонца(Результат, Состояние) Экспорт
    Сообщить(Состояние.Версия = 7 И Состояние.Поле16 = 4660);
    Сообщить(Состояние.Поле32 = 16909060 И Состояние.Поле64 = 4294967296);
    Сообщить(Результат = Неопределено);
    Состояние.Чтение.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЧтения", Состояние));
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗакрытияЧтения(Состояние) Экспорт
    Состояние.ЧтениеЗакрыто = Истина;
    Выполняется = Ложь;
КонецПроцедуры

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

1. Известные байты создаёт изменяемый буфер: это независимая подготовка, а не чтение чужого файла.

2. У обработчиков чтения два аргумента: прочитанное значение и Состояние из ДополнительныеПараметры.

3. Каждый обработчик сохраняет своё поле и только затем запускает чтение следующей ширины.

4. Дополнительное чтение байта после всех 15 байтов даёт Неопределено. Ноль был бы допустимым значением байта, не сигналом конца.

5. У callback закрытия снова один аргумент. После него сбрасываем запрет повторного запуска.

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

1. Три сообщения Истина; получены четыре исходных числа и корректный конец данных.

2. После завершения повторный запуск читает новый пакет с начала.

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

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

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

1. Не добавляйте Результат в callback закрытия: у него другая сигнатура.

2. Данный fixture полный. Для неизвестного протокола проверяйте длину/версию до чтения остальных полей.

3. Процедуры этого самостоятельного примера нельзя одновременно вставить в форму другого callback-примера с такими же именами.

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