Все выполнялось на сервере , были проблемы что в папке temp присутствовал пустой файл (это нормально, проверьте сам pdf мб. вы его перезаписали как пустую страницу) + игрался с параметрами Ghostscript , в самом низу уже вызов функции для вывода в картинку.
ПутьКPDF - это полный путь с расширением файла .pdf
ПутьДляИзображений - это путь до папки куда будет сохраняться картинка.
Ну и не забудьте посмотреть куда установлен Ghostscript и какой он у вас версии.
После чего поменяйте в коде.
Вроде я сделал удаление временного файла , но чет с последним не работает , в лбом случае при повторе печати они будет затирать вообще все старый файлы.
Функция КонвертироватьPDFВИзображениеGS(ПутьКPDF, ПутьДляИзображений, Разрешение = 300)
Результат = Новый Структура("Успех, Сообщение, Файлы, КоличествоСтраниц, Команда, КодОшибки");
Результат.Успех = Ложь;
Результат.Сообщение = "";
Результат.Файлы = Новый Массив;
Результат.КоличествоСтраниц = 0;
Результат.Команда = "";
Результат.КодОшибки = 0;
Попытка
FSO = Новый COMObject("Scripting.FileSystemObject");
WSH = Новый COMObject("WScript.Shell");
// Проверка PDF файла
Если Не FSO.FileExists(ПутьКPDF) Тогда
Результат.Сообщение = "PDF файл не существует: " + ПутьКPDF;
Возврат Результат;
КонецЕсли;
// Проверяем размер PDF файла
РазмерФайла = FSO.GetFile(ПутьКPDF).Size;
Если РазмерФайла = 0 Тогда
Результат.Сообщение = "PDF файл пустой или поврежден";
Возврат Результат;
КонецЕсли;
// Подготовка пути для изображений
Если Прав(ПутьДляИзображений, 1) <> "\" Тогда
ПутьДляИзображений = ПутьДляИзображений + "\";
КонецЕсли;
// Создание папки
Если Не FSO.FolderExists(ПутьДляИзображений) Тогда
FSO.CreateFolder(ПутьДляИзображений);
КонецЕсли;
// Очищаем старые файлы
ОчиститьСтарыеФайлы(ПутьДляИзображений);
// Поиск Ghostscript
ПутьКGS = НайтиGhostscript();
Если ПутьКGS = "" Тогда
Результат.Сообщение = "Ghostscript не найден";
Возврат Результат;
КонецЕсли;
// Оптимизированная команда
Параметры = "-sDEVICE=jpeg -r" + Разрешение +
" -sOutputFile=" + ПутьДляИзображений + "page_%d.jpg " +
"-dNOPAUSE -dBATCH " +
"-dTextAlphaBits=4 " +
"-dGraphicsAlphaBits=4 " +
"-dJPEGQ=95 " + // Качество JPEG
"-dBackgroundColor=16#FFFFFF " + // Белый фон
"""" + ПутьКPDF + """";
ПолнаяКоманда = """" + ПутьКGS + """ " + Параметры;
Результат.Команда = ПолнаяКоманда;
// Выполнение команды
Процесс = WSH.Exec(ПолнаяКоманда);
// Ждем завершения процесса (без дополнительной задержки)
Пока Процесс.Status = 0 Цикл
// Короткая пауза для избежания 100% загрузки CPU
Ждать(10);
КонецЦикла;
Результат.КодОшибки = Процесс.ExitCode;
// Проверяем созданные файлы
Файлы = Новый Массив;
Папка = FSO.GetFolder(ПутьДляИзображений);
Для Каждого Файл In Папка.Files Цикл
ИмяФайла = Файл.Name;
Если (Лев(ИмяФайла, 5) = "page_" И Прав(ИмяФайла, 4) = ".jpg") ИЛИ
(Лев(ИмяФайла, 9) = "страница_" И Прав(ИмяФайла, 4) = ".jpg") Тогда
Если Файл.Size > 1024 Тогда
Файлы.Добавить(Файл.Path);
Иначе
FSO.DeleteFile(Файл.Path);
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если Файлы.Количество() > 0 Тогда
Результат.Успех = Истина;
Результат.Сообщение = "Создано файлов: " + Файлы.Количество();
Результат.Файлы = Файлы;
Результат.КоличествоСтраниц = Файлы.Количество();
Иначе
Результат.Сообщение = "Не создано ни одного файла. Код возврата: " + Результат.КодОшибки;
КонецЕсли;
Исключение
Результат.Сообщение = "Ошибка: " + ОписаниеОшибки();
КонецПопытки;
Возврат Результат;
КонецФункции Показать
// Вспомогательная функция для записи логов (с дополнением)
Процедура ЗаписатьТекстовыйФайл(ПутьКФайлу, Текст, Дописывать = Ложь)
Попытка
Если Дописывать Тогда
ЗаписьТекста = Новый ЗаписьТекста(ПутьКФайлу, "UTF-8", Истина); // Дописываем
Иначе
ЗаписьТекста = Новый ЗаписьТекста(ПутьКФайлу, "UTF-8", Ложь); // Перезаписываем
КонецЕсли;
ЗаписьТекста.ЗаписатьСтроку(Текст);
ЗаписьТекста.Закрыть();
Исключение
// Игнорируем ошибки записи логов
КонецПопытки;
КонецПроцедуры Показать
// Упрощенная функция ожидания (только для циклов ожидания)
Процедура Ждать(Милисекунды)
Попытка
// Минимальная реализация для избежания 100% загрузки CPU
WSH = Новый COMObject("WScript.Shell");
WSH.Run("ping 127.0.0.1 -n 2 -w " + Милисекунды + " > nul", 0, Истина);
Исключение
// Просто продолжаем выполнение если не получилось
КонецПопытки;
КонецПроцедуры Показать
Функция НайтиGhostscript()
Попытка
FSO = Новый COMObject("Scripting.FileSystemObject");
// Стандартные пути
СтандартныеПути = Новый Массив;
СтандартныеПути.Добавить("C:\Program Files\gs\gs10.05.1\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs10.04.1\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs10.03.1\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs10.02.1\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs10.01.1\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs10.00.1\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs9.56.1\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs9.55.0\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs9.54.0\bin\gswin64c.exe");
СтандартныеПути.Добавить("C:\Program Files\gs\gs9.53.3\bin\gswin64c.exe");
// Также проверяем 32-битные версии
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs10.05.1\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs10.04.1\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs10.03.1\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs10.02.1\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs10.01.1\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs10.00.1\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs9.56.1\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs9.55.0\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs9.54.0\bin\gswin32c.exe");
СтандартныеПути.Добавить("C:\Program Files (x86)\gs\gs9.53.3\bin\gswin32c.exe");
Для Каждого Путь Из СтандартныеПути Цикл
Если FSO.FileExists(Путь) Тогда
Возврат Путь;
КонецЕсли;
КонецЦикла;
// Поиск через реестр
Попытка
WSH = Новый COMObject("WScript.Shell");
КлючРеестра = "HKLM\SOFTWARE\GPL Ghostscript\";
Попытка
ИменаВерсий = WSH.RegRead(КлючРеестра);
Если ТипЗнч(ИменаВерсий) = Тип("Массив") Тогда
Для Каждого Версия Из ИменаВерсий Цикл
Попытка
ПутьУстановки = WSH.RegRead(КлючРеестра + Версия + "\GS_LIB");
Если ПутьУстановки <> Неопределено Тогда
ПутьКEXE = ПутьУстановки + "\bin\gswin64c.exe";
Если FSO.FileExists(ПутьКEXE) Тогда
Возврат ПутьКEXE;
КонецЕсли;
ПутьКEXE = ПутьУстановки + "\bin\gswin32c.exe";
Если FSO.FileExists(ПутьКEXE) Тогда
Возврат ПутьКEXE;
КонецЕсли;
КонецЕсли;
Исключение
Продолжить;
КонецПопытки;
КонецЦикла;
КонецЕсли;
Исключение
// Пробуем другой ключ реестра
Попытка
ПутьУстановки = WSH.RegRead("HKLM\SOFTWARE\GPL Ghostscript\InstallPath");
Если ПутьУстановки <> Неопределено Тогда
ПутьКEXE = ПутьУстановки + "\bin\gswin64c.exe";
Если FSO.FileExists(ПутьКEXE) Тогда
Возврат ПутьКEXE;
КонецЕсли;
ПутьКEXE = ПутьУстановки + "\bin\gswin32c.exe";
Если FSO.FileExists(ПутьКEXE) Тогда
Возврат ПутьКEXE;
КонецЕсли;
КонецЕсли;
Исключение
КонецПопытки;
КонецПопытки;
Исключение
КонецПопытки;
Исключение
КонецПопытки;
Возврат "";
КонецФункции Показать
Процедура ОчиститьСтарыеФайлы(ПутьПапки)
Попытка
FSO = Новый COMObject("Scripting.FileSystemObject");
Если FSO.FolderExists(ПутьПапки) Тогда
Папка = FSO.GetFolder(ПутьПапки);
Для Каждого Файл In Папка.Files Цикл
// Удаляем все jpg и png файлы
ИмяФайла = Файл.Name;
Если Прав(ИмяФайла, 4) = ".jpg" ИЛИ Прав(ИмяФайла, 4) = ".png" Тогда
FSO.DeleteFile(Файл.Path);
КонецЕсли;
КонецЦикла;
КонецЕсли;
Исключение
КонецПопытки;
КонецПроцедуры Показать
Ну и там где сам вывод картинки
//через Ghostscript
ПутьДляИзображений = "C:\temp\images\" ;
ПутьКPDF = Выборка.СертификатНоменклатуры.DaniQS_ПутьКФайлу;
Результат = КонвертироватьPDFВИзображениеGS(ПутьКPDF, ПутьДляИзображений, 150);
//DaniQS++
Если Результат.Успех Тогда
// Берем первое изображение (первую страницу PDF)
Если Результат.Файлы.Количество() > 0 Тогда
ПутьКИзображению = Результат.Файлы[0];
// Загружаем изображение в картинку
Попытка
Рисунок.Картинка = Новый Картинка(ПутьКИзображению);
Исключение
Сообщить("Ошибка загрузки изображения: " + ОписаниеОшибки());
КонецПопытки;
Иначе
Сообщить("Не создано ни одного файла изображения");
КонецЕсли;
Иначе
Сообщить("Ошибка конвертации: " + Результат.Сообщение);
КонецЕсли;
//DaniQS-- Показать
