Выполняет чтение целого 16-битного положительного числа на заданной позиции.
Синтаксис
ПрочитатьЦелое16(<Позиция>, <ПорядокБайтов>)Полное описание, параметры и ограничения
БуферДвоичныхДанных.ПрочитатьЦелое16 (BinaryDataBuffer.ReadInt16)
БуферДвоичныхДанных (BinaryDataBuffer)
ПрочитатьЦелое16 (ReadInt16)
Доступен, начиная с версии 8.3.9.
Синтаксис:
ПрочитатьЦелое16(<Позиция>, <ПорядокБайтов>)
Параметры:
<Позиция> (обязательный)
Тип: Число.
Позиция, на которой требуется прочитать число.
<ПорядокБайтов> (необязательный)
Тип: ПорядокБайтов.
Порядок байтов, используемый при чтении числа.
Если не задан, используется порядок, определенный для текущего экземпляра ЧтениеДанных.
Значение по умолчанию: Неопределено.
Возвращаемое значение:
Тип: Число.
Описание:
Выполняет чтение целого 16-битного положительного числа на заданной позиции.
Доступность:
Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Использование в версии:
Доступен, начиная с версии 8.3.9.
Методическая информация
Практические примеры
Записать числовой заголовок пакета и увидеть порядок байтов
16-, 32- и 64-битные поля имеют разные размеры. Записываем в LittleEndian и читаем тем же порядком.
Где и как запускать
Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.
Подготовка
Выполняйте на сервере. Буфер имеет ровно 14 байтов: 2 + 4 + 8.
Здесь только неотрицательные значения, подходящие для размеров полей.
Буфер = Новый БуферДвоичныхДанных(14, ПорядокБайтов.LittleEndian);
Буфер.ЗаписатьЦелое16(0, 513);
Буфер.ЗаписатьЦелое32(2, 100000);
Буфер.ЗаписатьЦелое64(6, 5000000000);
Сообщить(Буфер.ПрочитатьЦелое16(0));
Сообщить(Буфер.ПрочитатьЦелое32(2));
Сообщить(Буфер.ПрочитатьЦелое64(6));
Сообщить(Буфер.Получить(0));
Сообщить(Буфер.Получить(1));
Сообщить(Буфер.ПрочитатьЦелое16(0, ПорядокБайтов.BigEndian));
Сообщить(Буфер.ПорядокБайтов);
Буфер.Установить(0, 2);
Сообщить(Буфер.ПрочитатьЦелое16(0));Разбор по шагам
Задаём порядок байтов в конструкторе буфера.
Смещения 0, 2 и 6 не пересекаются и оставляют место для целых соответствующих размеров.
Читаем записанные поля; отдельно показываем два байта числа 513.
Читаем те же байты в BigEndian и затем меняем один байт вручную.
Как проверить результат
Поля читаются как 513, 100000 и 5000000000; первые два байта — 1 и 2.
При BigEndian первое число получается 258; после изменения байта 0 на 2 чтение LittleEndian даёт 514.
Ожидаемый результат
Числовой заголовок прочитан правильно при согласованном порядке байтов.
На что обратить внимание
Размер поля и смещение задаются в байтах, а не символах.
Нельзя произвольно заменить 64-битное поле 32-битным: значение 5000000000 уже не помещается в беззнаковые 32 бита.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.
Записать числовой пакет цепочкой callback без Ждать
Следующий шаг запускается из экспортной процедуры завершения предыдущего. У обработчиков записи один аргумент: дополнительные параметры.
Где и как запускать
Модуль пустой управляемой формы учебной внешней обработки; тонкий или толстый клиент Windows. Вставьте весь модуль. Это не серверный код.
Подготовка
Создайте учебную внешнюю обработку с пустой управляемой основной формой. Создайте команду УчебныйПример и кнопку этой команды.
В свойстве команды Действие выберите процедуру УчебныйПример. Вставьте полный приведённый модуль формы.
Откройте EPF в тонком или толстом клиенте Windows и нажмите кнопку. Не переносите Ждать и Асинх в серверный общий модуль.
Пример работает только со своими данными в памяти; записи в базу, файлы и сеть нет.
Перем Выполняется;
&НаКлиенте
Процедура УчебныйПример(Команда)
Если Выполняется = Истина Тогда
Сообщить("Дождитесь завершения предыдущей учебной цепочки");
Возврат;
КонецЕсли;
Поток = Новый ПотокВПамяти;
Запись = Новый ЗаписьДанных(Поток);
Состояние = Новый Структура("Поток,Запись,ЗаписьЗакрыта,ПотокЗакрыт", Поток, Запись, Ложь, Ложь);
Выполняется = Истина;
Попытка
Состояние.Запись.НачатьЗаписьБайта(ОповещениеДля("ПослеБайта", Состояние), 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);
Выполняется = Ложь;
КонецПроцедурыРазбор по шагам
Модульная переменная Выполняется запрещает второй запуск, пока цепочка не закончена.
Структура Состояние передаётся через ДополнительныеПараметры каждого ОписаниеОповещения и удерживает собственные поток/запись.
У процедур ПослеБайта/После16/После32/После64/ПослеСброса/ПослеЗакрытияЗаписи ОДИН аргумент. У записи нет дополнительного результата, поэтому нельзя добавлять выдуманный параметр Результат.
Следующая операция вызывается только после завершения предыдущей; в конце сначала завершается запись, затем извлекаются данные потока.
Обработчик ОшибкаОперации имеет три аргумента, включая СтандартнаяОбработка. Он освобождает собственные ресурсы и разрешает платформе показать исходную ошибку.
Готовый заголовок разбираем буфером по фиксированным смещениям 0, 1, 3, 7 и проверяем все поля.
Как проверить результат
После цепочки пять сравнений Истина: длина 15, версия 7, числа 4660/16909060/4294967296.
Повторное нажатие во время цепочки показывает просьбу подождать; после завершения новый запуск разрешён.
Ожидаемый результат
Получен конкретный числовой пакет с корректными callback-сигнатурами и обработчиком ошибок.
На что обратить внимание
Экспорт обязателен у всех процедур, вызываемых через ОписаниеОповещения.
Это альтернативная модель API, а не код, который следует смешать с Асинх примером в одной форме без переименования процедур.
Подготовка ограничена Windows-клиентом; синхронное аварийное освобождение не является универсальным веб-клиентским решением.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.