ПотокВПамяти.По умолчанию

Конструкторы

Создает поток в памяти с расширяемой емкостью. Данный вариант можно использовать для работы с достаточно большими объемами данных, т.к. данные хранятся постранично, а не в виде одного последовательного блока.

Синтаксис

Новый ПотокВПамяти()
Полное описание, параметры и ограничения

ПотокВПамяти.По умолчанию

ПотокВПамяти (MemoryStream)

По умолчанию

Доступен, начиная с версии 8.3.9.

Синтаксис:
Новый ПотокВПамяти()
Описание:

Создает поток в памяти с расширяемой емкостью. Данный вариант можно использовать для работы с достаточно большими объемами данных, т.к. данные хранятся постранично, а не в виде одного последовательного блока.

Использование в версии:

Доступен, начиная с версии 8.3.9.

Методическая информация

Практические примеры

Записать байты в поток, прочитать часть и скопировать остаток

Поток хранит текущую позицию. Начальная ёмкость не означает заполненный размер; после записи чтение начинается с конца, пока позиция не изменена.

Где и как запускать

Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.

Подготовка

  1. Выполняйте на сервере; все потоки в памяти, файлов нет.

  2. Исходные четыре байта: 1, 2, 3, 4; ёмкость первого потока 64 — резерв памяти, не число данных.

Буфер = Новый БуферДвоичныхДанных(4);
Для Номер = 0 По 3 Цикл
    Буфер.Установить(Номер, Номер + 1);
КонецЦикла;
Поток = Новый ПотокВПамяти(64);
Копия = Новый ПотокВПамяти;
Попытка
    Сообщить(Поток.Размер());
    Сообщить(Поток.ДоступнаЗапись);
    Сообщить(Поток.ДоступноЧтение);
    Сообщить(Поток.ДоступноИзменениеПозиции);
    Поток.Записать(Буфер, 0, 4);
    Поток.СброситьБуферы();
    Сообщить(Поток.ТекущаяПозиция());
    Поток.Перейти(0, ПозицияВПотоке.Начало);
    Прочитанное = Новый БуферДвоичныхДанных(2);
    Прочитано = Поток.Прочитать(Прочитанное, 0, 2);
    Сообщить(Прочитано);
    Сообщить(Прочитанное.Получить(0));
    Поток.КопироватьВ(Копия, 2);
    Сообщить(Копия.Размер());
    ДанныеКопии = Копия.ЗакрытьИПолучитьДвоичныеДанные();
    Копия = Неопределено;
    Сообщить(ПолучитьHexСтрокуИзДвоичныхДанных(ДанныеКопии));
    Поток.УстановитьРазмер(3);
    Данные = Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Поток = Неопределено;
Исключение
    Если Копия <> Неопределено Тогда
        Копия.Закрыть();
    КонецЕсли;
    Если Поток <> Неопределено Тогда
        Поток.Закрыть();
    КонецЕсли;
    ВызватьИсключение;
КонецПопытки;
Сообщить(ПолучитьHexСтрокуИзДвоичныхДанных(Данные));
Основа = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Данные);
ПотокИзБуфера = Новый ПотокВПамяти(Основа);
Сообщить(ПотокИзБуфера.Размер());
ПотокИзБуфера.Закрыть();

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

  1. Создаём два потока и проверяем размер пустого потока: 0.

  2. После записи позиция 4; Перейти перемещает её к началу для чтения.

  3. Прочитать возвращает фактическое число байтов. КопироватьВ начинает с текущей позиции, поэтому копирует только 3 и 4.

  4. УстановитьРазмер сокращает первый поток до трёх байтов; ЗакрытьИПолучитьДвоичныеДанные выдаёт содержимое и закрывает поток.

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

  1. Прочитано 2 байта, первый равен 1; содержимое копии в Hex — 0304.

  2. После сокращения исходные данные в Hex — 010203; поток, созданный на их буфере, имеет размер 3.

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

Частичное чтение, копирование остатка и сокращение потока выполнены без файлов.

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

  1. После ЗакрытьИПолучитьДвоичныеДанные поток больше не используйте.

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

  3. НачальнаяЁмкость — объём резервирования, УстановитьРазмер — изменение фактических данных; это разные операции.

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

Сохранить таблицу в MXL-поток и прочитать обратно без файла

Запись ожидаем через Ждать, чтение выполняем обычным потоковым Прочитать: у ТабличногоДокумента нет ПрочитатьАсинх. Проверяем итог 800.

Где и как запускать

Модуль новой управляемой формы учебной внешней обработки. Код содержит готовые процедуры с директивами; вставляйте на уровне модуля, не внутрь другого обработчика. Каждую задачу запускайте в отдельной копии формы.

Подготовка

  1. Создайте новую внешнюю обработку с управляемой основной формой в учебной базе. Каждый урок — отдельная копия модуля.

  2. На форме создайте команду УчебныйПример и перетащите её на форму как кнопку. В действии команды выберите процедуру УчебныйПример(Команда).

  3. Вставьте весь приведённый модуль на уровне модуля формы: обработчик команды и функцию УчебнаяТаблица. Никакие макеты или реквизиты конфигурации не требуются.

  4. Сохраните EPF и откройте в тонком клиенте Windows. Примеры показывают таблицу, но не вызывают принтер, не записывают файлы и не читают рабочие документы.

  5. Обработчик команды должен оставаться Асинх Процедура, как в примере. MXL не создаётся на диске; пути файлов отсутствуют.

&НаКлиенте
Асинх Процедура УчебныйПример(Команда)
    ТабДок = УчебнаяТаблица();
    Запись = Новый ПотокВПамяти;
    Попытка
        Ждать ТабДок.ЗаписатьАсинх(Запись, ТипФайлаТабличногоДокумента.MXL);
        Данные = Запись.ЗакрытьИПолучитьДвоичныеДанные();
    Исключение
        Запись.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Сообщить(Данные.Размер() > 0);
    Чтение = Данные.ОткрытьПотокДляЧтения();
    Копия = Новый ТабличныйДокумент;
    Попытка
        Копия.Прочитать(Чтение, СпособЧтенияЗначенийТабличногоДокумента.Значение, ТипФайлаТабличногоДокумента.MXL);
        Чтение.Закрыть();
    Исключение
        Чтение.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Сообщить(Копия.Область(5, 4).СодержитЗначение);
    Сообщить(Копия.Область(5, 4).Значение = 800);
    Копия.ТолькоПросмотр = Истина;
    Копия.Показать("Учебная копия из MXL в памяти");
КонецПроцедуры

&НаКлиенте
Функция УчебнаяТаблица()
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.ТолькоПросмотр = Истина;
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Область(, 1, , 1).ШиринаКолонки = 35;
    ТабДок.Область(, 2, , 2).ШиринаКолонки = 10;
    ТабДок.Область(, 3, , 3).ШиринаКолонки = 14;
    ТабДок.Область(, 4, , 4).ШиринаКолонки = 15;
    Заголовок = ТабДок.Область(1, 1, 1, 4);
    Заголовок.Объединить();
    Заголовок.Текст = "Учебная таблица — данные только в памяти";
    Заголовок.Шрифт = Новый Шрифт("Arial", 12, Истина);
    Заголовок.ЦветФона = Новый Цвет(230, 242, 255);
    Заголовок.ВысотаСтроки = 24;
    ТабДок.Область(2, 1).Текст = "Товар";
    ТабДок.Область(2, 2).Текст = "Количество";
    ТабДок.Область(2, 3).Текст = "Цена";
    ТабДок.Область(2, 4).Текст = "Сумма";
    Товары = Новый Массив;
    Товары.Добавить(Новый Структура("Название,Количество,Цена", "Книга", 3, 250));
    Товары.Добавить(Новый Структура("Название,Количество,Цена", "Ручка", 1, 50));
    НомерСтроки = 3;
    Итого = 0;
    Для Каждого Товар Из Товары Цикл
        ТабДок.Область(НомерСтроки, 1).Текст = Товар.Название;
        Значения = Новый Массив;
        Значения.Добавить(Товар.Количество);
        Значения.Добавить(Товар.Цена);
        Значения.Добавить(Товар.Количество * Товар.Цена);
        Для НомерКолонки = 2 По 4 Цикл
            Ячейка = ТабДок.Область(НомерСтроки, НомерКолонки);
            Ячейка.СодержитЗначение = Истина;
            Ячейка.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
            Ячейка.Значение = Значения.Получить(НомерКолонки - 2);
            Ячейка.Формат = "ЧДЦ=2; ЧН=0";
        КонецЦикла;
        Итого = Итого + Товар.Количество * Товар.Цена;
        НомерСтроки = НомерСтроки + 1;
    КонецЦикла;
    ПодписьИтога = ТабДок.Область(5, 1, 5, 3);
    ПодписьИтога.Объединить();
    ПодписьИтога.Текст = "Итого";
    Итог = ТабДок.Область(5, 4);
    Итог.СодержитЗначение = Истина;
    Итог.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
    Итог.Значение = Итого;
    Итог.Формат = "ЧДЦ=2; ЧН=0";
    Все = ТабДок.Область(2, 1, 5, 4);
    Все.Шрифт = Новый Шрифт("Arial", 10);
    Граница = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1, Ложь);
    Все.Обвести(Граница, Граница, Граница, Граница);
    Возврат ТабДок;
КонецФункции

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

  1. Создаём собственный ПотокВПамяти и передаём его именно в потоковый вариант ЗаписатьАсинх.

  2. Ждать завершает запись до извлечения данных. ЗакрытьИПолучитьДвоичныеДанные закрывает записывающий поток.

  3. У полученных ДвоичныеДанные открываем поток чтения; его передаём в новый ТабличныйДокумент.

  4. Прочитать — синхронный потоковый метод, не обещание. Явно задаём чтение значений и формат MXL, прежде чем обратиться к итоговой ячейке.

  5. Закрываем ресурсы и при исключении. Проверяем типизированное числовое значение итога и показываем копию.

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

  1. Три булевы проверки Истина: данные непусты, итог числовой и равен 800.

  2. Появляется копия учебной таблицы с сохранённым оформлением.

  3. Не создано файлов MXL/PDF и не вызван принтер.

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

Готовый обмен табличным документом через память: асинхронная запись, синхронное чтение и контроль числового значения.

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

  1. Поток после закрытия нельзя читать/писать снова.

  2. MXL — формат табличного документа 1С, не Excel XLSX и не общедоступный текстовый формат.

  3. Большие документы потребляют память; этот урок ограничен двумя собственными строками товаров.

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

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.