Записать целое 64-битное положительное число в заданную позицию.
Синтаксис
ЗаписатьЦелое64(<Позиция>, <Значение>, <ПорядокБайтов>)Полное описание, параметры и ограничения
БуферДвоичныхДанных.ЗаписатьЦелое64 (BinaryDataBuffer.WriteInt64)
БуферДвоичныхДанных (BinaryDataBuffer)
ЗаписатьЦелое64 (WriteInt64)
Доступен, начиная с версии 8.3.9.
Синтаксис:
ЗаписатьЦелое64(<Позиция>, <Значение>, <ПорядокБайтов>)
Параметры:
<Позиция> (обязательный)
Тип: Число.
Позиция, на которой требуется записать число.
<Значение> (обязательный)
Тип: Число.
Число, которое требуется записать.
Если значение не помещается в 64 бита, будет вызвано исключение.
<ПорядокБайтов> (необязательный)
Тип: ПорядокБайтов.
Порядок байтов, который будет использован для кодировки числа при записи в буфер. Если не установлен, то используется порядок байтов, заданный для текущего экземпляра БуферДвоичныхДанных.
Значение по умолчанию: Неопределено.
Описание:
Записать целое 64-битное положительное число в заданную позицию.
Доступность:
Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Использование в версии:
Доступен, начиная с версии 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-цепочкой с двумя аргументами результата
Самостоятельно создаём известный 15-байтовый пакет и читаем его через НачатьЧтениеБайта/Целого16/32/64. Обработчики чтения отличаются от обработчиков записи.
Где и как запускать
Модуль пустой управляемой формы учебной внешней обработки; тонкий или толстый клиент Windows. Вставьте весь модуль. Это не серверный код.
Подготовка
Создайте учебную внешнюю обработку с пустой управляемой основной формой. Создайте команду УчебныйПример и кнопку этой команды.
В свойстве команды Действие выберите процедуру УчебныйПример. Вставьте полный приведённый модуль формы.
Откройте EPF в тонком или толстом клиенте Windows и нажмите кнопку. Не переносите Ждать и Асинх в серверный общий модуль.
Пример работает только со своими данными в памяти; записи в базу, файлы и сеть нет.
Перем Выполняется;
&НаКлиенте
Процедура УчебныйПример(Команда)
Если Выполняется = Истина Тогда
Сообщить("Дождитесь завершения предыдущей учебной цепочки");
Возврат;
КонецЕсли;
Буфер = Новый БуферДвоичныхДанных(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);
Сообщить(Результат = Неопределено);
Состояние.Чтение.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЧтения", Состояние));
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияЧтения(Состояние) Экспорт
Состояние.ЧтениеЗакрыто = Истина;
Выполняется = Ложь;
КонецПроцедурыРазбор по шагам
Известные байты создаёт изменяемый буфер: это независимая подготовка, а не чтение чужого файла.
У обработчиков чтения два аргумента: прочитанное значение и Состояние из ДополнительныеПараметры.
Каждый обработчик сохраняет своё поле и только затем запускает чтение следующей ширины.
Дополнительное чтение байта после всех 15 байтов даёт Неопределено. Ноль был бы допустимым значением байта, не сигналом конца.
У callback закрытия снова один аргумент. После него сбрасываем запрет повторного запуска.
Как проверить результат
Три сообщения Истина; получены четыре исходных числа и корректный конец данных.
После завершения повторный запуск читает новый пакет с начала.
Ожидаемый результат
Разобран числовой пакет с правильным различием сигнатур чтения и закрытия.
На что обратить внимание
Не добавляйте Результат в callback закрытия: у него другая сигнатура.
Данный fixture полный. Для неизвестного протокола проверяйте длину/версию до чтения остальных полей.
Процедуры этого самостоятельного примера нельзя одновременно вставить в форму другого callback-примера с такими же именами.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.