Преобразовать цветную учебную таблицу в серую PDF-копию

Учебные задачи

Исходник имеет жёлтую подложку. Преобразование выполняется над собственной прочитанной копией; исходные байты остаются для сравнения.

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

Полный серверный общий модуль УчебныйPDF собственной учебной конфигурации; только собственные PDF-байты в памяти.

Подготовка

  1. Отдельная собственная учебная база 8.5.1.1343: серверный общий модуль УчебныйPDF. Вставьте полный модуль одного урока и вызовите ВыполнитьПример() своей серверной командой.

  2. Имя конфигурации должно быть УчебнаяКонфигурацияСинтаксиса. Все данные создаются кодом: строка Книга / 3 / 250 / 750 и собственные текстовые вложения.

  3. Исходный PDF получается настоящим экспортом собственного ТабличныйДокумент в ПотокВПамяти. Никакого файла с неизвестным происхождением или рабочего печатного макета не требуется.

  4. Чтение и повторная запись выполняются в памяти. Примеры не печатают, не обращаются к интернету и не меняют документы базы.

  5. Проверки размеров, страниц и вложений не доказывают вид штампа или оттенки серого. Для визуального контроля используйте отдельный урок просмотра собственного PDF; этот серверный модуль окна не открывает.

Функция СоздатьСобственныеБайтыPDF()
    Таблица = Новый ТабличныйДокумент;
    Таблица.КодЯзыка = "ru";
    Таблица.Область(1, 1).Текст = "СОБСТВЕННЫЙ УЧЕБНЫЙ ОБРАЗЕЦ";
    Таблица.Область(2, 1).Текст = "Книга";
    Таблица.Область(2, 2).Текст = "3";
    Таблица.Область(2, 3).Текст = "250";
    Таблица.Область(2, 4).Текст = "750";
    Таблица.Область(1, 1, 2, 4).ЦветФона = Новый Цвет(255, 255, 210);
    Таблица.Область(, 1, , 1).ШиринаКолонки = 45;
    Поток = Новый ПотокВПамяти;
    Попытка
        Таблица.Записать(Поток, ТипФайлаТабличногоДокумента.PDF);
        Данные = Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Исключение
        Поток.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Возврат Данные;
КонецФункции

Функция ПрочитатьСобственныйДокумент(Данные)
    Поток = Данные.ОткрытьПотокДляЧтения();
    Попытка
        Документ = Новый ДокументPDF;
        Документ.Прочитать(Поток);
        Поток.Закрыть();
    Исключение
        Поток.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Возврат Документ;
КонецФункции

Функция ЗаписатьСобственныйДокумент(Документ, ТипФайла)
    Поток = Новый ПотокВПамяти;
    Попытка
        Документ.Записать(Поток, "", ТипФайла);
        Данные = Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Исключение
        Поток.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Возврат Данные;
КонецФункции

Процедура ВыполнитьПример() Экспорт
    ИсходныеБайты = СоздатьСобственныеБайтыPDF();
    Документ = ПрочитатьСобственныйДокумент(ИсходныеБайты);
    ДоИзменения = Документ.КоличествоСтраниц();
    Документ.ПреобразоватьВОттенкиСерого();
    СерыеБайты = ЗаписатьСобственныйДокумент(Документ, ТипФайлаДокументаPDF.PDF);
    Копия = ПрочитатьСобственныйДокумент(СерыеБайты);
    Сообщить(ИсходныеБайты.Размер() > 0);
    Сообщить(СерыеБайты.Размер() > 0);
    Сообщить(Копия.КоличествоСтраниц() = ДоИзменения);
    Сообщить(Копия.Вложения.Количество() = 0);
    Сообщить("ИсходныеБайты и СерыеБайты — разные собственные версии; сравните их визуально, а не только по размеру");
КонецПроцедуры

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

  1. Сохранить исходные PDF-байты собственного цветного документа до преобразования.

  2. Прочитать отдельный ДокументPDF и вызвать ПреобразоватьВОттенкиСерого как процедуру без возвращаемого PDF.

  3. Записать новые байты и прочитать их отдельным документом. Сверить страницы и отсутствие вложений.

  4. Для визуальной оценки сравнить обе собственные версии. Ни размер файла, ни число страниц не доказывают серый цвет.

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

  1. Четыре структурные проверки дают Истина; исходные и серые байты читаются платформой.

  2. При ручном просмотре жёлтая подложка исходника должна стать серой; содержимое Книга / 3 / 250 / 750 сохраниться. Этот визуальный результат автоматическими тестами пособия не подтверждён.

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

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

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

  1. Не сравнивайте размер как показатель качества или правильности преобразования: новый PDF может стать больше или меньше.

  2. Не обрабатывайте подписанный рабочий документ этим учебным кодом: изменение может нарушить подпись.

  3. У ДокументPDF нет метода Закрыть: закрываются созданные потоки, а данные документа живут в объекте.

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

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

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

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

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