Как сохранить табличный документ в jpeg ХЕЛП
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(3) ~ZasrAnka~, внешняя компонента. можно через вызов консольной утилиты mudraw это самое простое. см (mupdf-1.7a-windows.zip скачать и посмотреть mudraw) . минус , зато не будет работать на сервере и всяикх клиентах, где запрещен или не работает запуск консольных утилит
(1) ~ZasrAnka~, через внешнюю компоненту,
курить публикацию
насколько я понимаю, там используется древняя компонента ексель, которая позволяет конвертировать в графические форматы,
помню я ее юзал еще на 7.7,
на 8.2 не пробовал, но судя по публикации - тоже работает
курить публикацию
насколько я понимаю, там используется древняя компонента ексель, которая позволяет конвертировать в графические форматы,
помню я ее юзал еще на 7.7,
на 8.2 не пробовал, но судя по публикации - тоже работает
(5) Boneman,указаннаяч публикация использует виртуальный принтер. что касается екселя, то он действительно морально устарел (хотя автор на мой взгляд крутой программер, поскольку сделать такой собственный рендеринг на плюсах это мощно). проблема екселя(или 1С) к сожалению это некоторые проблемы с выводом прозрачных изображений на таб документах если такие есть. и потом там неудобно как на мой взгляд, там полностью надо вручную рассчитывать размеры изображения и документа.
(1) ~ZasrAnka~, я даже больше скажу . я сам писал COM библиотеку на C# с вызовом dll , которую написали на основе mupdf . но там были какие-то проблемы и я так не доделал ее. код там простой до безобразия, остался
public void SaveToJpg(string pdf_filename, string filename)
{
//Size newSize = new Size(Convert.ToInt32(1754), Convert.ToInt32(1240));
//Bitmap resized_img = null;
PDFLibNet.PDFWrapper _pdfDoc;
_pdfDoc = new PDFLibNet.PDFWrapper();
_pdfDoc.LoadPDF(pdf_filename);
_pdfDoc.CurrentPage = 1;
for (int i = 1; i <= _pdfDoc.PageCount; i++)
{
string _imgpath = filename + i.ToString() + ".jpg";
_pdfDoc.ExportJpg(filename + i.ToString() + ".jpg",
i, //From page
i, //To page
300, //Resolution in DPI
100, //Jpg quality
-1); //Time to wait, -1 to infinite.
//using (Bitmap _img = new Bitmap(_imgpath))
//{
// resized_img = ResizeImage(_img, newSize);
//}
//if (resized_img != null)
// resized_img.Save(_imgpath, System.Drawing.Imaging.ImageFormat.Jpeg);
}
//resized_img.Dispose();
//resized_img = null;
}
ПоказатьImageMagickObject = Новый COMОбъект("ImageMagickObject.MagickImage.1");
ImageMagickObject.Convert("-density", "300", ИмяФайлаPdf, ИмяФайлаСРасширением);
Там где ИмяФайлаСРасширением, можно указывать строку с использованием управляющих конструкций (каких см на сайте их) для указания например номеров страниц
для работы нужны (при установке надо указать, что нужен COM объект) и
Вот кусок рабочего кода, вначале делаю сохранение в pdf
ИмяВременногоФайлаpdf = КаталогВременныхФайлов() + ФайлИмяБезРасш + ".pdf";
ФормаОтч.ДокументРезультат.Записать(ИмяВременногоФайлаpdf, ТипФайлаТабличногоДокумента.PDF);
ФормаОтч.Закрыть();
ИмяВременногоФайлаJpg = КаталогВременныхФайлов() + ФайлИмяБезРасш + ".jpg";
СтрокаЗапуска = """C:\Program Files\ImageMagick-7.1.1-Q16-HDRI\convert.exe"" -density 300 -trim "+ИмяВременногоФайлаpdf+" -quality 50 "+" "+ИмяВременногоФайлаJpg;
ЗапуститьПриложение(СтрокаЗапуска,,Истина,Неопределено);
ПаузаВСекундах(2); //задержка по времени для конвертации файла внешним приложением иначе ПомещениеФайла дает ошибку
ИмяВременногоФайла = ИмяВременногоФайлаJpg;
ФайлРасширение = "jpg";
ДополнительныеПараметрыПомещения = Новый Структура;
ДополнительныеПараметрыПомещения.Вставить("ФайлИмяБезРасш", ФайлИмяБезРасш);
ДополнительныеПараметрыПомещения.Вставить("ФайлРасширение", ФайлРасширение);
ОписаниеОповещения = Новый ОписаниеОповещения(
"ОбработатьРезультатПомещенияФайла", ЭтотОбъект, ДополнительныеПараметрыПомещения);
НачатьПомещениеФайла(ОписаниеОповещения, , ИмяВременногоФайла, Ложь);
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьРезультатПомещенияФайла(ВыборВыполнен, АдресРезультатВыбора, ВыбранноеИмяФайла, ДополнительныеПараметры = "") Экспорт
Если ВыборВыполнен = Истина Тогда
НовыйФайлКОтправке = ФайлыКОтправке.Добавить();
НовыйФайлКОтправке.Имя = ДополнительныеПараметры.ФайлИмяБезРасш + "." + ДополнительныеПараметры.ФайлРасширение;
НовыйФайлКОтправке.Адрес = АдресРезультатВыбора;
НовыйФайлКОтправке.ИмяБезРасширения = ДополнительныеПараметры.ФайлИмяБезРасш;
НовыйФайлКОтправке.Расширение = ДополнительныеПараметры.ФайлРасширение;
НовыйФайлКОтправке.Идентификатор = Строка(Новый УникальныйИдентификатор);
КонецЕсли;
ОбновитьОтображенияЦитированияПрикрепления();
КонецПроцедуры Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот