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