jpeg » Поиск » HelpF.pro

Результаты по ключевому слову: jpeg

Конвертация экселя в картику Категория: Работа с Microsoft Office и OpenOffice

Передача файлов и данных на веб-сервер из 1С методами GET и POST Категория: Работа с Интернет, Почтой (Mail), FTP

Как получить информацию о изображении (высота, ширина, размер)?

Платформа 1С версии 8.х предоставляет слабые возможности по работе с изображением.
Для работы с изображениями можно использовать библиотеку Windows Image Acquisition Automation Library. Библиотеку с описанием можно скачать здесь (в Windows 7 уже входит в состав дистриботива).

После того, как загрузили архив, распакуйте. Саму библиотеку wiaaut.dll придется зарегистрировать командой regsvr32. После регистрации доступен COM-объект "WIA.ImageFile". Приведем пример работы:

Код 1C v 8.х

 // Выбор файла

СтандартнаяОбработка = Ложь;

РежимДиалога = РежимДиалогаВыбораФайла.Открытие;

ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалога);

ДиалогВыбораФайла.МножественныйВыбор = Ложь;

ДиалогВыбораФайла.Заголовок = "Задайте имя файла";

ДиалогВыбораФайла.ПолноеИмяФайла = ПолеИмениФайла;

	

ДиалогВыбораФайла.Фильтр = "Все файлы картинок|*.jpg;*.jpeg;*.gif;*.bmp;*.ico;*.png;*.tif;*.*";

Если НЕ ДиалогВыбораФайла.Выбрать() Тогда

	// Если не выбран файл

	Возврат;

КонецЕсли;

	

ПолеИмениФайла = ДиалогВыбораФайла.ПолноеИмяФайла;

	

// Создаем объект

ФайлКартинка = Новый COMОбъект("WIA.ImageFile");

ФайлКартинка.LoadFile(ПолеИмениФайла);



Сообщить("Расширение файла: " + ФайлКартинка.FileExtension);

Сообщить("Высота: " + ФайлКартинка.Height);

Сообщить("Ширина: " + ФайлКартинка.Width);

Сообщить("Размер: " + Окр(ФайлКартинка.FileData.Count / 1024, 2) + " Кб");

Библиотека была протестирована на самых распространенных форматах файлов-картинок: jpeg, gif, bmp, ico, png, tif.
Здесь можно скачать готовую обработку: Скачивать файлы может только зарегистрированный пользователь!

Помимо данных о картинке, библиотека может многое другое: изменить размер изображения, повернуть, получить изображение со сканера и прочее. Надеюсь, мы еще вернемся к этой библиотеке. Источник

Категория: COM-объекты, WMI, WSH

Вывод Диаграммы График Валют, Сохранение диаграммы, графиков и гистограмм в виде Картинки Категория: Диаграмма

Печать в PDF

Столкнулся с вопросом печати счета на оплату сразу в pdf.
Решение: установка виртуального принтера bioPDF скачать можно тут. И прописывание в 1с следующего кода:

Код 1C v 8.х

 

    Попытка

        ПДФ_принтер = Новый COMОбъект("bioPDF.PDFPrinterSettings");

    Исключение

        #Если Клиент Тогда

            Предупреждение("Не удалось подключиться к PDF-принтеру!", 60);

        #КонецЕсли

        Возврат;

    КонецПопытки;

    ПДФ_принтер_имя = ПДФ_принтер.GetPrinterName();

    ИмяФайла = Константы.КаталогФайловПДФ.Получить() +"" + Заголовок + ".pdf";



    ПДФ_принтер.SetValue("output",    ИмяФайла);

    ПДФ_принтер.SetValue("ConfirmOverwrite", "yes");

    ПДФ_принтер.SetValue("ShowSaveAS",   "never");

    ПДФ_принтер.SetValue("ShowSettings",  "never");

    ПДФ_принтер.SetValue("ShowPDF",    "no");

    ПДФ_принтер.SetValue("Target",    "printer");



    ПДФ_принтер.SetValue("Subject",  "Report generated at " + ТекущаяДата());

    ПДФ_принтер.SetValue("UseThumbs", "yes");

    ПДФ_принтер.SetValue("Zoom",  "100");



    ПДФ_принтер.SetValue("WatermarkFontSize", "10");

    ПДФ_принтер.SetValue("WatermarkTransparency", "50");

    ПДФ_принтер.SetValue("WatermarkVerticalPosition", "bottom");

    ПДФ_принтер.SetValue("WatermarkHorizontalPosition", "right");

    ПДФ_принтер.SetValue("WatermarkVerticalAdjustment", "3");

    ПДФ_принтер.SetValue("WatermarkHorizontalAdjustment", "1");

    ПДФ_принтер.SetValue("WatermarkRotation", "90");

    ПДФ_принтер.SetValue("WatermarkColor", "#ff0000");

    ПДФ_принтер.SetValue("WatermarkOutlineWidth", "1");

    ПДФ_принтер.WriteSettings(True);



    ПечатныйДокумент.ИмяПринтера = ПДФ_принтер_имя;

    ПечатныйДокумент.АвтоМасштаб = Истина;

    ПечатныйДокумент.Напечатать();

Как выяснилось во время печати в pdf есть проблема с передачей прозрачности картинки. Если вставлять прозрачную печать в счет поверх подписи, то в pdf-документе печать будет непрозрачной и затрет все собой. У меня был частный случай, когда печать находилась на одном и том же месте документа и за ней постоянно было одно и то же. Решением в данном случае стала генерация картинки печати с фоном, на котором она должна быть и вставка её в макет.

Так же решением может быть печать не в pdf а xps документ. Там с прозрачностью все нормально.
Автор: Андрей Данилюк

Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF.

Категория: COM-объекты, WMI, WSH

Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF.

Оптимальным решением является установка Bullzip PDF Printer . После установки в системе появляется виртуальный принтер, с помощью которого можно "печатать" в файл pdf из любого приложения. Программа бесплатная, работает в терминале и имеет поддержку русского языка.
После установки, можно печатать напрямую используя код:

Код 1C v 8.х

 

//Таб - ТабличныйДокумент

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

PDFФайл = Новый Файл(ИмяФайла);



Пока НЕ PDFФайл.Существует() Цикл

ОбработкаПрерыванияПользователя();

КонецЦикла;



Исключение



Сообщить(ОписаниеОшибки());

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

КонецПопытки;

//устанавливаем принтер по умолчанию

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

КонецПроцедуры

Здесь функция ПолучитьПринтерПоУмолчанию() нужна для того чтобы вернуть печатной форме принтер по умолчанию, т.к. если напечатать без предварительного просмотра то печать пойдет на виртуальный PDF принтер BullzipPDFPrinter.

Код 1C v 8.х

 //получаем принтер по умолчанию

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2&#8243;»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

КонецФункции

Печать в PDF используя bioPDF

Категория: Администрирование