Формирует неинициализированный объект ЗаписьPDF. Для инициализации объекта используется метод Открыть или НачатьОткрытие.
Синтаксис
Новый ЗаписьPDF()Полное описание, параметры и ограничения
ЗаписьPDF.Формирование неинициализированного объекта
ЗаписьPDF (PDFWriter)
Формирование неинициализированного объекта
Доступен, начиная с версии 8.3.16.
Синтаксис:
Новый ЗаписьPDF()
Описание:
Формирует неинициализированный объект ЗаписьPDF. Для инициализации объекта используется метод Открыть или НачатьОткрытие.
Использование в версии:
Доступен, начиная с версии 8.3.16.
Методическая информация
Практические примеры
Добавить JSON оповещениями и прочитать результат
Первая цепочка открывает PDF для записи, добавляет вложение и закрывает запись. Вторая читает тот же собственный документ только после полного завершения первой.
Где и как запускать
Полный модуль управляемой формы отдельной учебной обработки; две последовательные клиентские PDF-цепочки Windows.
Подготовка
В отдельной учебной базе создайте внешнюю обработку с пустой управляемой формой, командой УчебныйПример и кнопкой. В Действие команды выберите процедуру УчебныйПример.
Вставьте полный приведённый модуль формы. Функция ПодготовитьСвойPDF находится на сервере, обработчики оповещений — на клиенте и обязательно Экспорт.
Запускайте в тонком или толстом клиенте Windows 8.5.1.1343. Веб-клиент и расширения браузера не входят в подготовку этого урока.
PDF создаётся этим же модулем из одной учебной ячейки. Сервер возвращает только собственные ДвоичныеДанные; файлов, реальных сертификатов и персональных сведений нет.
Перем Выполняется;
&НаКлиенте
Процедура УчебныйПример(Команда)
Если Выполняется = Истина Тогда
Сообщить("Дождитесь завершения своего предыдущего PDF-примера");
Возврат;
КонецЕсли;
Данные = ПодготовитьСвойPDF(Ложь);
Буфер = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Данные);
Состояние = Новый Структура("Поток,Чтение,Запись", Новый ПотокВПамяти(Буфер), Неопределено, Неопределено);
Выполняется = Истина;
Попытка
Состояние.Запись = Новый ЗаписьPDF;
Состояние.Запись.НачатьОткрытие(ОповещениеДля("ПослеОткрытияЗаписи", Состояние), Состояние.Поток);
Исключение
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
ВызватьИсключение;
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Функция ОповещениеДля(Обработчик, Состояние)
Возврат Новый ОписаниеОповещения(Обработчик, ЭтотОбъект, Состояние, "ОшибкаОперации", ЭтотОбъект);
КонецФункции
&НаКлиенте
Процедура ОшибкаОперации(Ошибка, СтандартнаяОбработка, Состояние) Экспорт
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
СтандартнаяОбработка = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ОсвободитьРесурсы(Состояние)
Если Состояние.Чтение <> Неопределено Тогда
Попытка
Состояние.Чтение.Закрыть();
Исключение
Сообщить("Не удалось закрыть свой объект чтения PDF: " + ОписаниеОшибки());
КонецПопытки;
Состояние.Чтение = Неопределено;
КонецЕсли;
Если Состояние.Запись <> Неопределено Тогда
Попытка
Состояние.Запись.Закрыть();
Исключение
Сообщить("Не удалось закрыть свой объект записи PDF: " + ОписаниеОшибки());
КонецПопытки;
Состояние.Запись = Неопределено;
КонецЕсли;
Если Состояние.Поток <> Неопределено Тогда
Попытка
Состояние.Поток.Закрыть();
Исключение
Сообщить("Не удалось закрыть свой поток PDF: " + ОписаниеОшибки());
КонецПопытки;
Состояние.Поток = Неопределено;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПослеОткрытияЗаписи(Состояние) Экспорт
Попытка
Вложения = Новый КоллекцияВложенийPDF;
ТекстJSON = "{""товар"":""Книга"",""количество"":3}";
БайтыJSON = ПолучитьДвоичныеДанныеИзСтроки(ТекстJSON, КодировкаТекста.UTF8, Ложь);
Вложения.Добавить("товар.json", БайтыJSON, "application/json", ТипСвязиВложенияPDF.Данные);
Состояние.Запись.НачатьЗаписьВложений(ОповещениеДля("ПослеЗаписиВложений", Состояние), Вложения);
Исключение
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
ВызватьИсключение;
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗаписиВложений(Состояние) Экспорт
Попытка
Состояние.Запись.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЗаписи", Состояние));
Исключение
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
ВызватьИсключение;
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияЗаписи(Состояние) Экспорт
Попытка
Состояние.Запись = Неопределено;
Состояние.Поток.Перейти(0, ПозицияВПотоке.Начало);
Состояние.Чтение = Новый ЧтениеPDF;
Состояние.Чтение.НачатьОткрытие(ОповещениеДля("ПослеОткрытияЧтения", Состояние), Состояние.Поток);
Исключение
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
ВызватьИсключение;
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ПослеОткрытияЧтения(Состояние) Экспорт
Попытка
Состояние.Чтение.НачатьПолучениеВложений(ОповещениеДля("ПослеПолученияВложений", Состояние));
Исключение
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
ВызватьИсключение;
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ПослеПолученияВложений(Прочитанные, Состояние) Экспорт
Попытка
Сообщить(Прочитанные.Количество() = 1);
ФайлJSON = Прочитанные.Найти("товар.json");
Если ФайлJSON = Неопределено Тогда
ВызватьИсключение "Нет собственного вложения после PDF-операции";
КонецЕсли;
Текст = ПолучитьСтрокуИзДвоичныхДанных(ФайлJSON.Содержимое, КодировкаТекста.UTF8);
Сообщить(Текст = "{""товар"":""Книга"",""количество"":3}");
Состояние.Чтение.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЧтения", Состояние));
Исключение
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
ВызватьИсключение;
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияЧтения(Состояние) Экспорт
Попытка
Состояние.Чтение = Неопределено;
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
Сообщить("Собственная цепочка PDF завершена, ресурсы освобождены");
Исключение
ОсвободитьРесурсы(Состояние);
Выполняется = Ложь;
ВызватьИсключение;
КонецПопытки;
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПодготовитьСвойPDF(СВложением)
Вложения = Новый КоллекцияВложенийPDF;
ТекстJSON = "{""товар"":""Книга"",""количество"":3}";
БайтыJSON = ПолучитьДвоичныеДанныеИзСтроки(ТекстJSON, КодировкаТекста.UTF8, Ложь);
Вложения.Добавить("товар.json", БайтыJSON, "application/json", ТипСвязиВложенияPDF.Данные);
Если Не СВложением Тогда
Вложения.Очистить();
КонецЕсли;
Документ = Новый ТабличныйДокумент;
Документ.Область("A1").Текст = "Книга: 3 шт.";
Поток = Новый ПотокВПамяти;
Попытка
Документ.Записать(Поток, ТипФайлаТабличногоДокумента.PDF, Вложения);
Возврат Поток.ЗакрытьИПолучитьДвоичныеДанные();
Исключение
Поток.Закрыть();
ВызватьИсключение;
КонецПопытки;
КонецФункции
Разбор по шагам
Сервер создаёт PDF без вложения; клиентский поток содержит именно эти байты.
ПослеОткрытияЗаписи создаёт собственное JSON-вложение и запускает НачатьЗаписьВложений: описание оповещения передаётся первым.
ПослеЗаписиВложений запускает закрытие. Только ПослеЗакрытияЗаписи обнуляет писателя, возвращает позицию потока в начало и запускает читателя.
Читатель проверяет одно имя товар.json и исходный JSON, затем тоже закрывается через оповещение.
Писатель и читатель не работают одновременно с одним потоком. Флаг повторного запуска удерживается на протяжении обеих цепочек.
Как проверить результат
Два сравнения Истина и финальное сообщение об освобождении ресурсов.
В отладчике на момент НачатьОткрытие читателя Состояние.Запись уже Неопределено.
На диске не появляются ни PDF, ни JSON: состояние целиком в памяти.
Ожидаемый результат
Завершённая асинхронная запись проверена отдельной цепочкой чтения.
На что обратить внимание
Факт вызова НачатьЗаписьВложений не означает, что вложение уже записано: дождитесь обработчика завершения.
Нельзя закрывать общий поток в обработчике закрытия писателя, если далее он нужен читателю.
Этот пример не подписывает документ и не добавляет сведения из рабочей базы.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.
Асинхронно добавить JSON в свой PDF
Открываем собственный поток записи через Ждать, дописываем вложение и ожидаем закрытие. Проверку выполняет другой PDF-объект после завершения записи.
Где и как запускать
Модуль пустой управляемой формы учебной внешней обработки; тонкий или толстый клиент Windows. Вставьте весь модуль. Это не серверный код.
Подготовка
Создайте учебную внешнюю обработку с пустой управляемой основной формой. Создайте команду УчебныйПример и кнопку этой команды.
В свойстве команды Действие выберите процедуру УчебныйПример. Вставьте полный приведённый модуль формы.
Откройте EPF в тонком или толстом клиенте Windows и нажмите кнопку. Не переносите Ждать и Асинх в серверный общий модуль.
Пример работает только со своими данными в памяти; записи в базу, файлы и сеть нет.
Документ PDF строится из собственной ячейки Книга: 3 шт. Внешний PDF, установленный PDF-редактор, криптографический сертификат и реальные персональные данные не нужны.
Файловый путь нигде не используется. Для просмотра в PDF-программе сохраните только полученные собственные двоичные данные в отдельно выбранный новый учебный файл.
&НаКлиенте
Асинх Процедура УчебныйПример(Команда)
Чтение = Неопределено;
Запись = Неопределено;
ПотокЧтения = Неопределено;
ПотокPDF = Новый ПотокВПамяти;
Документ = Новый ТабличныйДокумент;
Документ.Область("A1").Текст = "Книга: 3 шт.";
Документ.Область("A1").ЦветТекста = Новый Цвет(30, 90, 180);
Попытка
Ждать Документ.ЗаписатьАсинх(ПотокPDF, ТипФайлаТабличногоДокумента.PDF);
Вложения = Новый КоллекцияВложенийPDF;
ТекстJSON = "{""товар"":""Книга"",""количество"":3}";
БайтыJSON = ПолучитьДвоичныеДанныеИзСтроки(ТекстJSON, КодировкаТекста.UTF8, Ложь);
Вложения.Добавить("товар.json", БайтыJSON, "application/json", ТипСвязиВложенияPDF.Данные);
ПотокPDF.Перейти(0, ПозицияВПотоке.Начало);
Запись = Новый ЗаписьPDF;
Ждать Запись.ОткрытьАсинх(ПотокPDF);
Ждать Запись.ЗаписатьВложенияАсинх(Вложения);
Ждать Запись.ЗакрытьАсинх();
Запись = Неопределено;
БайтыPDF = ПотокPDF.ЗакрытьИПолучитьДвоичныеДанные();
ПотокPDF = Неопределено;
ПотокЧтения = БайтыPDF.ОткрытьПотокДляЧтения();
Чтение = Новый ЧтениеPDF;
Ждать Чтение.ОткрытьАсинх(ПотокЧтения);
Прочитанные = Ждать Чтение.ПолучитьВложенияАсинх();
ФайлJSON = Прочитанные.Найти("товар.json");
Если ФайлJSON = Неопределено Тогда
ВызватьИсключение "Нет вложения после завершённой асинхронной записи";
КонецЕсли;
Сообщить(Прочитанные.Количество() = 1);
Сообщить(ПолучитьСтрокуИзДвоичныхДанных(ФайлJSON.Содержимое, КодировкаТекста.UTF8) = ТекстJSON);
Исключение
Если Чтение <> Неопределено Тогда
Ждать Чтение.ЗакрытьАсинх();
КонецЕсли;
Если Запись <> Неопределено Тогда
Ждать Запись.ЗакрытьАсинх();
КонецЕсли;
Если ПотокЧтения <> Неопределено Тогда
ПотокЧтения.Закрыть();
КонецЕсли;
Если ПотокPDF <> Неопределено Тогда
ПотокPDF.Закрыть();
КонецЕсли;
ВызватьИсключение;
КонецПопытки;
Если Чтение <> Неопределено Тогда
Ждать Чтение.ЗакрытьАсинх();
КонецЕсли;
Если Запись <> Неопределено Тогда
Ждать Запись.ЗакрытьАсинх();
КонецЕсли;
Если ПотокЧтения <> Неопределено Тогда
ПотокЧтения.Закрыть();
КонецЕсли;
Если ПотокPDF <> Неопределено Тогда
ПотокPDF.Закрыть();
КонецЕсли;
КонецПроцедурыРазбор по шагам
Сначала ожидаем экспорт исходного PDF без вложений.
Создаём неинициализированный ЗаписьPDF; каждую следующую операцию выполняем после Ждать предыдущей.
Запись и её закрытие завершаются до получения итоговых байтов из потока.
Новый ЧтениеPDF независимо подтверждает имя и содержимое вложения; выводим именно результат, не объект Обещание.
Как проверить результат
Две проверки Истина; JSON проверен после завершения записи.
Файл товар.json на диске не создаётся; все байты принадлежат этой форме.
Ожидаемый результат
Асинхронная запись и независимая проверка завершены в правильном порядке.
На что обратить внимание
Обещание не является признаком уже завершённой записи: требуется Ждать.
Нельзя освобождать поток, пока асинхронная операция PDF ещё использует его.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.