Для реализации вышеописанного необходимо установить ActiveX-библиотеку GflAx, после этого возможно обращение к любым ее свойствам и методам. Привожу пример обработки, с помощью которой можно открыть файл картинки любого формата, поиграть ее масштабом, подвигать в разные стороны - то есть простейший вьюер графики на 1С. Среди файлов находится также сама библиотека, отдельным файлом лежит хэлп по ней, где описаны все ее богатые возможности (на английском).
Расширенная работа с графикой в среде 1С 7.7 и 1С 8.*
25.03.08
Разработка - Работа с интерфейсом
Приводится пример как можно в среде 1С 7.7 не просто выводить готовую картинку, а работать с ней по примеру графических редакторов и просмотрщиков. Можно открыть файл практически любого растрового формата, получить любые его атрибуты, переконвертировать, изменить размер, обработать фильтрами, даже создать с нуля - возможностей очень много, все описать страницы не хватит, лучше почитайте документацию. Обработки для 1С 8.* не привожу, но все делается по аналогии.
Бесплатные
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
| Наименование | Скачано | Бесплатно |
|---|---|---|
|
-
.1204812853 183,50Kb
2212
|
2212 | Скачать бесплатно |
|
-
.1204813257 834,04Kb
2070
|
2070 | Скачать бесплатно |
|
-
.1204813351 65,02Kb
1913
|
1913 | Скачать бесплатно |
|
Возможные форматы графических файлов - впечатляет
.1204818605 7,97Kb
1734
|
1734 | Скачать бесплатно |
|
Набор дополнительных процедур и функций с работы с GflAx (например для вывода графиков)
.1206457138 51,00Kb
1786
|
1786 | Скачать бесплатно |
См. также
Работа с интерфейсом Анализ учета Мониторинг 1С v8.3 8.3.14 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Платные (руб)
Создайте свой функциональный интерфейс в любой конфигурации 1С с помощью подсистемы "Инфоборды". Настраивайте панели виджетов с метриками, индикаторами и показателями на начальном экране. Подсистема реализована в форме расширения 1С.
16800 руб.
27.03.2025 3680 10 9
Работа с интерфейсом Системный администратор Программист 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)
Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.
6000 руб.
14.01.2016 56998 19 25
14.01.2016
45
19
25
56998
Работа с интерфейсом 1С v8.3 Платные (руб)
Подсистема условного оформления элементов форм (далее подсистема) предназначена для настройки оформления элементов форм (видимость, доступность, цвет фона, цвет текста и прочее) в пользовательском режиме 1С. Также подсистему возможно использовать для ограничения доступа к реквизитам формы для определенных пользователей (или групп пользователей).
6000 руб.
18.01.2022 10970 2 2
Работа с интерфейсом Программист 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)
Обработка предназначена для создания и управления дашбордами.
2400 руб.
29.06.2020 20903 30 6
Работа с интерфейсом Программист Стажер 1С v8.3 Бесплатно (free)
Это инструкция по дизайну форм в среде 1С. Гайд охватывает рекомендации и стандарты для оптимизации пользовательского интерфейса. В гайде содержатся указания по использованию элементов интерфейса, включая как основные, так и продвинутые аспекты. Предоставляются также примеры и антипримеры для наглядного понимания принципов дизайна
20.08.2024 32057 mrXoxot 44
Работа с интерфейсом Программист 1С v8.3 Бесплатно (free)
Пример простого и симпатичного прогресс-бара в динамическом списке, без картинок, используя редактирование запроса.
27.05.2024 17875 smielka 37
Работа с интерфейсом 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)
Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.
27.12.2023 19978 1260 elcoan 53
Инструментарий разработчика Работа с интерфейсом Программист 1С v8.3 1C:Бухгалтерия Абонемент ($m)
Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.
3 стартмани
10.04.2023 14069 174 acces969 31
Комментарии
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Можно к примеру прикрутить эту вещь к просмотрщику изображений товаров, фотографий сотрудников. Я лично писал с помощью 1С и этой библиотеки обработку, с помощью которой уменьшал размеры 10000 фотографий со своего форума в зависимости от различных условий.
Здравствуйте, уважаемый автор!!!
Будьте добры!Помогите пожалуйста понять, что неправильно делаю, хотя вроде всё должно быть правильно!!!
У меня возникло впечатление, что данная компонента у меня подглючивает!!!
Если я создаю картинку допустим 1000*1000, то в некоторых участках вообще невозможно что-либо отобразить (элементарную линию или прямоугольник и т.д.), а в некоторых участках рисуется неадекватные параметрам фигуры!!!
Привожу элементарный пример построения прямоугольника, который несоответствует своим пропорциям и параметрам:
Функция ПолучитьЦвет(Красный,Зеленый,Синий)
Возврат Окр(Синий)*65536+Окр(Зеленый)*256+Окр(Красный);
КонецФункции
//*******************************************
Процедура Выполнить()
картинка=СоздатьОбъект("GFLAX.GFLAX");
картинка.NewBitmap(1000,1000,ПолучитьЦвет(255,255,255));
Картинка.DrawRectangle(200,0,400,150);
Картинка.SaveFormat=4;
картинка.SaveBitmap(КаталогИБ()+"pictures\graf.bmp");
График.Загрузить(КаталогИБ()+"pictures\graf.bmp");
График.РежимРисования(2);
КонецПроцедуры
Заранее сердечно благодарю!!!
Будьте добры!Помогите пожалуйста понять, что неправильно делаю, хотя вроде всё должно быть правильно!!!
У меня возникло впечатление, что данная компонента у меня подглючивает!!!
Если я создаю картинку допустим 1000*1000, то в некоторых участках вообще невозможно что-либо отобразить (элементарную линию или прямоугольник и т.д.), а в некоторых участках рисуется неадекватные параметрам фигуры!!!
Привожу элементарный пример построения прямоугольника, который несоответствует своим пропорциям и параметрам:
Функция ПолучитьЦвет(Красный,Зеленый,Синий)
Возврат Окр(Синий)*65536+Окр(Зеленый)*256+Окр(Красный);
КонецФункции
//*******************************************
Процедура Выполнить()
картинка=СоздатьОбъект("GFLAX.GFLAX");
картинка.NewBitmap(1000,1000,ПолучитьЦвет(255,255,255));
Картинка.DrawRectangle(200,0,400,150);
Картинка.SaveFormat=4;
картинка.SaveBitmap(КаталогИБ()+"pictures\graf.bmp");
График.Загрузить(КаталогИБ()+"pictures\graf.bmp");
График.РежимРисования(2);
КонецПроцедуры
Заранее сердечно благодарю!!!
Создал ряд дополнительных процедур и функций для работы с графической библиотекой GflAx, значительно расширяющий ее возможности рисования. Пока самые нужные для построения столбчатых и линейных графиков, надеюсь что набор будет дополняться. В обработке содержится также пример графика, того что на скриншоте.
Для работы с картинками (получение атрибутов картинки, поворот, масштабирование, конвертация и прочие преобразования) можешь использовать функционал GflAx. Хранить картинку можно различными способами. Самый простой - во внешнем файле, а в одном из реквизитов номенклатуры держать название этого файла. Сложнее - хранить внутри самой базы, это не всегда нужно но бывает... При выводе на печать ты либо используешь то изображение товара что у тебя есть, либо на основании его подготавливаешь промежуточный файл с необходимым размером сторон (так как 1С не умеет нормально масштабировать картинки). Далее используешь штатные средства 1С для печати картинок.
1. В макет таблицы вставляешь картинку.
2. В свойствах картинки на закладке "Текст" пишешь:
ПриВыводеКартинки(Таб.ТекущийОбъект,Файл)
3. В модуль вставляешь процедуру:
Процедура ПриВыводеКартинки(Картинка,Файл)
Картинка.РежимРисования(3);
Картинка.Загрузить(Файл);
КонецПроцедуры
4. Выводишь таблицу:
СпрТовары=СоздатьОбъект("Справочник.Товары");
Таб=СоздатьОбъект("Таблица");
СпрТовары.ВыбратьЭлементы();
Пока СпрТовары.ПолучитьЭлемент()=1 Цикл
Файл=КаталогСКартинками+СпрТовары.ИмяКартинки;
Таб.ВывестиСекцию("Строка");
КонецЦикла
Таб.Показать();
1. В макет таблицы вставляешь картинку.
2. В свойствах картинки на закладке "Текст" пишешь:
ПриВыводеКартинки(Таб.ТекущийОбъект,Файл)
3. В модуль вставляешь процедуру:
Процедура ПриВыводеКартинки(Картинка,Файл)
Картинка.РежимРисования(3);
Картинка.Загрузить(Файл);
КонецПроцедуры
4. Выводишь таблицу:
СпрТовары=СоздатьОбъект("Справочник.Товары");
Таб=СоздатьОбъект("Таблица");
СпрТовары.ВыбратьЭлементы();
Пока СпрТовары.ПолучитьЭлемент()=1 Цикл
Файл=КаталогСКартинками+СпрТовары.ИмяКартинки;
Таб.ВывестиСекцию("Строка");
КонецЦикла
Таб.Показать();
(5)>Бит, я не настолько силен в английском,
"GFL SDK/GFLAx" is provided as Freeware for private non-commercial or educational use (including non-profit organization).
You must contact me for commercial use and distribution. webmaster@xnview.com
@GFL SDK/GFLAx" разработан как бесплатный для частного некоммерческого использования или использования в образовательных целях (включая не приносящие денежной выгоды организации)
Для использования в коммерческих целях или распространения программы вы должны связаться со мной по адресу
webmaster@xnview.com
"GFL SDK/GFLAx" is provided as Freeware for private non-commercial or educational use (including non-profit organization).
You must contact me for commercial use and distribution. webmaster@xnview.com
@GFL SDK/GFLAx" разработан как бесплатный для частного некоммерческого использования или использования в образовательных целях (включая не приносящие денежной выгоды организации)
Для использования в коммерческих целях или распространения программы вы должны связаться со мной по адресу
webmaster@xnview.com
+(6) Так что тут несколько двусмысленная ситуация... Использование ее программистом 1С, особенно, если он за эти "красотульки" возьмет с заказчика деньги, однозначно можно расценить, как коммерческое использование.
Плюс налицо распространение (distribution)
Саш, это не в упрек тебе, просто для сведения ;)
Плюс налицо распространение (distribution)
Саш, это не в упрек тебе, просто для сведения ;)
Пример чуток кривовато написан - идет неправильная сдвижка картинки при двигании кнопками, +задумывается при перерисовке масгтабом > 100%, и движение картинки при больших масштабах не просматривается... - бум дотачивать...
При проверке не заметил отмеченных недостатков о двиганье картинки. Нормально двигается при масштабах 10%-100%, точнее двигается так как задумано, можно только скажем шаг увеличить - но это уж дело вкуса. Насчет ALS - ты блин загнул, давай теперь ко всем сторонним актив-иксам ALS-ки писать... Дока какая-никакая есть и то ладно.
выложен исправленный рабочий пример сюда:
(17) неа, неверно двигается - возьми картинку размера большего чем подложка...
а именно: сильно простое условие написано в процедуре сдвига - не все варианты отрабатывает правильно - если интересно будет - можешь код у меня глянуть - но это не суть важно! важно то, что есть хороший активикс! за что и спасибо!
(17) неа, неверно двигается - возьми картинку размера большего чем подложка...
а именно: сильно простое условие написано в процедуре сдвига - не все варианты отрабатывает правильно - если интересно будет - можешь код у меня глянуть - но это не суть важно! важно то, что есть хороший активикс! за что и спасибо!
Да все что угодно можно делать. Можно использовать любые алгоритмы для хранения и просмотра фотографий товаров или сотрудников, можно организовать к примеру пакетное наложение водяных знаков на изображения перед экспортом их скажем в интернет магазин. Можно использовать 1С для личных целей, если нужно скажем обработать свой фотоальбом с использованием различных преобразований или получением информации о фотках, а фоток скажем несколько тысяч. Вообще, если фантазией пораскинуть, можно очень много разных применений библиотечке найти, мне прочто сейчас некогда придумывать да и не к чему - кому нужно тот сам сообразит как использовать. Я в основном использую для работы с очень большими коллекциями фоток из тысяч и десятков тысяч штук - тут напишешь алгоритм как тебе нужно, да еще на привычном языке.
(22) > Можно использовать 1С для личных целей, если нужно скажем обработать свой фотоальбом с использованием различных преобразований или получением информации о фотках, а фоток скажем несколько тысяч.
-- Да, сюда можно прюкрутить, например, эх, когда руки дойдут:-)
-- Да, сюда можно прюкрутить, например, эх, когда руки дойдут:-)
Самая моя серьезная работа с использованием библиотеки GflAx - ФОТОБРАУЗЕР (. Можно посмотреть, только разобраться в случае чего в 2000 строк кода будет непросто - код нормально структурирован, но мало откомментирован.
Автору огромный респект! Настоящий профи!!! Данная разработка- очень серьёзный инструмент в 1с7.7 и мне просто необходима. И у меня, к сожалению, возникла проблемка- график (рис.2) выводится на ура, ну как его распечатать, когда
опция и меню принтера притушена, что делать?????
Подскажите пожалуйста!!! Заранее мегаспасибо!!!
опция и меню принтера притушена, что делать?????
Подскажите пожалуйста!!! Заранее мегаспасибо!!!
Я только начал изучать 1с Предприятие 8.1. У меня есть проблема с использованием gflax в 8-й версии: выбираю Форма -> Вставить ActiveX -> и в диалогом окне отсутствует данный элемент. Он установлен, переустановлен на более позднюю версию и все же не отображается, несмотря на то что в 7.7 он работает, а так же успешно подключается и работает в VBA. Некоторые другие ActiveX после установки появляются там сразу. Пробовал через
Форма = Отчеты.Отчет1.ПолучитьФорму("Форма");
Форма.ЭлементыФормы.ДобавитьActiveX("GflAx.GflAx.1","gflax");
График = ЭлементыФормы.gflax;
Ошибки нет, но использовать gflax неудается.
Как поступить в данном случае?
Форма = Отчеты.Отчет1.ПолучитьФорму("Форма");
Форма.ЭлементыФормы.ДобавитьActiveX("GflAx.GflAx.1","gflax");
График = ЭлементыФормы.gflax;
Ошибки нет, но использовать gflax неудается.
Как поступить в данном случае?
И все же, как мне быть? Задача заключается в построении анимированного графика, если остальное мне как то видится еще, то главной задачей для меня сейчас является рисование линии на форме, или хотя бы точки. Подскажите пожалуйста пример рисования линии в 8 версии.
P.S.: в данный момент занимаюсь извращением: составляю линию из отдельных полей картинок с изображением черного квадрата 3х3 пикселя %)
P.S.: в данный момент занимаюсь извращением: составляю линию из отдельных полей картинок с изображением черного квадрата 3х3 пикселя %)
(40) я в восьмерке не силен. тем не менее процесс мне представляется так:
1. кладешь на форму картинку.
2. создаешь объект gflax (в восьмерке это вроде Новый(), в семерке СоздатьОбъект()), идентификатор можешь посмотреть в примере для семерки.
3. с помощью объекта gflax рисуешь в буфере картинку, сохраняешь в bmp-файл.
4. загружаешь файл в лежащую на форме картинку.
5. при необходимости возврощаешься к п.3
Можешь посмотреть пример к семерке, по аналогии заточишь под себя. если ты ни в 7.7, ни в 8.1 не силен, то помочь не могу.
1. кладешь на форму картинку.
2. создаешь объект gflax (в восьмерке это вроде Новый(), в семерке СоздатьОбъект()), идентификатор можешь посмотреть в примере для семерки.
3. с помощью объекта gflax рисуешь в буфере картинку, сохраняешь в bmp-файл.
4. загружаешь файл в лежащую на форме картинку.
5. при необходимости возврощаешься к п.3
Можешь посмотреть пример к семерке, по аналогии заточишь под себя. если ты ни в 7.7, ни в 8.1 не силен, то помочь не могу.
(41)
Меня смутило понятие идентификатор, google по запросу "идентификатор gflax" ничего не дал. Нашел в 7.7 это
Картинка=СоздатьОбъект("GFLAX.GFLAX");
Возможно имелся ввиду тип, но может быть я и ошибаюсь.
В разных вариациях потестил след. часть кода в 8.1 (Нарисовать Линию и Получить Цвет здесь не приводится)
Форма = Отчеты.Отчет1.ПолучитьФорму("Форма");
Форма.ЭлементыФормы.ДобавитьActiveX("GflAx.GflAx.1","GFLAX");
Картинка = Новый("GFLAX.GFLAX");
НарисоватьЛинию(Картинка, 1, 2, 3, 4, 1,ПолучитьЦвет(220,250,255));
Ошибки были, либо неверный тип "GFLAX.GFLAX", либо GFLAX не найдено поле (метод).
Пока что не нашел ни одного примера для 8.1 с использованием этого AX, и наводит на мысль, что поддержка 8.1 - пустые слова.
Меня смутило понятие идентификатор, google по запросу "идентификатор gflax" ничего не дал. Нашел в 7.7 это
Картинка=СоздатьОбъект("GFLAX.GFLAX");
Возможно имелся ввиду тип, но может быть я и ошибаюсь.
В разных вариациях потестил след. часть кода в 8.1 (Нарисовать Линию и Получить Цвет здесь не приводится)
Форма = Отчеты.Отчет1.ПолучитьФорму("Форма");
Форма.ЭлементыФормы.ДобавитьActiveX("GflAx.GflAx.1","GFLAX");
Картинка = Новый("GFLAX.GFLAX");
НарисоватьЛинию(Картинка, 1, 2, 3, 4, 1,ПолучитьЦвет(220,250,255));
Ошибки были, либо неверный тип "GFLAX.GFLAX", либо GFLAX не найдено поле (метод).
Пока что не нашел ни одного примера для 8.1 с использованием этого AX, и наводит на мысль, что поддержка 8.1 - пустые слова.
(42) насчет пустых слов не говори если не уверен. activex-библиотеки можно использовать где угодно хоть в VBScript хоть в delphi хоть в 1С 7.7/8.1. если я не могу написать тебе пример на 8.1 это не значит что это невозможно. ты я гляжу тоже не очень в восьмерке силен, так может не стоит пока залезать в дебри, потренируйся на чем попроще. кстати документация по функциям и свойствам gflax приводится, хотя она и не идеальна но я по ней учился.
(43)
Мб и поможет, но нужно рисование прямой линии, соединяющей произвольные две точки, здесь же только функция времени.
(44)
Документация достойная, сразу получилось подключить в VBA, а значит возможно я там смогу нарисовать то, что мне нужно, сохранить и открыть в 1с. Жаль, что я сразу не понял того, что в 1с это делается таким же путем (сохранение-открытие), а следовательно построение анимации будет хуже, чем я предполагал. Осталось получить ответ на важный вопрос: Можно ли использовать напрямую GFLAx в 8.1 и рисовать на встроенном элементе управления?
Мб и поможет, но нужно рисование прямой линии, соединяющей произвольные две точки, здесь же только функция времени.
(44)
Документация достойная, сразу получилось подключить в VBA, а значит возможно я там смогу нарисовать то, что мне нужно, сохранить и открыть в 1с. Жаль, что я сразу не понял того, что в 1с это делается таким же путем (сохранение-открытие), а следовательно построение анимации будет хуже, чем я предполагал. Осталось получить ответ на важный вопрос: Можно ли использовать напрямую GFLAx в 8.1 и рисовать на встроенном элементе управления?
Извините, если вопрос покажется наивным. Я не потрудился разобраться со всеми функциями библиотеки. Однако первое впечатление от запуска обработки для вывода графиков в 1с 7.7 двойственное. С одной стороны, все очень красиво, просто супер, а если учесть что это сделано просто, и без всяких .net на открытой библиотеке моей любимой xnview, то хвалить можно бесконечно. Аналогов я не нашол. НО! в демонстрационной обработке омрачает впечатление очень медленный расчет. Быстродействие довольно слабенькое. Может можно его увеличить (в идеале сделать мгновенный вывод) если скажем снизить качество графики. Если это возможно, то как?
Дело в том, что для реализации всех красот (градиентов, полупрозрачности, сглаживания и т.д.) используется практически попиксельный расчет. Ну и сами можете представить, как напрягает 1С выполнить двойной цикл скажем 500х500 пикселей (250'000 точек), да еще с обращением к библиотеке для каждого пиксела. Пришлось расчет перенести из 1С в VBScript, что увеличило скорость в 4 раза, но все равно не достаточно для быстрого расчета (VBScript - тоже интерпретатор, только побыстрее 1С). Вариант вижу один - использовать GflAx для большинства функций графики, которые было бы крайне тяжело и долго реализовывать самому, но написать еще одну ActiveX-библиотеку на C++ для выполнения попиксельных расчетов. Тогда скорость возросла бы минимум раз в 100. Я пока нахожусь на стадии изучения Visual Studio 2008, когда научусь писать библиотеки - попробую реализовать, т.к. теоретически это должно быть несложно. Если конечно кто-нибудь меня не опередит.
..и кстати если координаты прямоугольника в вышеприведённом примере изменить на следующие, то плучается в принципе искомый прямоугольник 200*150- то есть, что хотел, однако, это ниесть хороший тон программирования
:)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Картинка.DrawRectangle(200,0,200,150);
:)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Картинка.DrawRectangle(200,0,200,150);
(59)Здравствуйте мастер-профессионал!!!
Я кстати изучал Вашу серъёзную разработку, но не совсем разобрался как в ней можно в отчёте в печатной форме допустим сформировать график, а потом вывести его на принтер.
А на форме я выводил различные геом. фигуры легко, что конешн радует!!!
Я кстати изучал Вашу серъёзную разработку, но не совсем разобрался как в ней можно в отчёте в печатной форме допустим сформировать график, а потом вывести его на принтер.
А на форме я выводил различные геом. фигуры легко, что конешн радует!!!
(56-57) Почитайте доку по флаксу, пожалуйста:
DrawRectangle(X As long, Y As long, Width As long, Height As long)
То есть в методе указываются не координаты начальной и конечной точек, у координаты начальной точки плюс ширина плюс высота. Во втором примере у вас как раз все правильно было указано.
DrawRectangle(X As long, Y As long, Width As long, Height As long)
То есть в методе указываются не координаты начальной и конечной точек, у координаты начальной точки плюс ширина плюс высота. Во втором примере у вас как раз все правильно было указано.
(61)Здравствуйте почтенный автор!!!
Простите меня пожалуста, что я так "протормозил". Честно говоря не обратил внимание на параметры рисования прямоугольника и зациклился на координатах.
Впредь теперь буду тщательно изучать доку!!!
МегаСпасибо Вам за помощь и за ВАШ труд!!!
Простите меня пожалуста, что я так "протормозил". Честно говоря не обратил внимание на параметры рисования прямоугольника и зациклился на координатах.
Впредь теперь буду тщательно изучать доку!!!
МегаСпасибо Вам за помощь и за ВАШ труд!!!
При помощи этой компоненты можно совместить две картинки;
Пример на 1с 7.7
Картинки=СоздатьОбъект("GFLAx.GFLAx");
Картинки.MergeAddFile("D:\12345.JPG",90,1,1);
Картинки.MergeAddFile("D:\123.JPG",20,1,1);
Картинки.Merge();
Картинки.SaveFormat = 1;
Картинки.SaveBitmap("D:\123456789_" + Строка(Y)+".JPG");
Пример на 1с 7.7
Картинки=СоздатьОбъект("GFLAx.GFLAx");
Картинки.MergeAddFile("D:\12345.JPG",90,1,1);
Картинки.MergeAddFile("D:\123.JPG",20,1,1);
Картинки.Merge();
Картинки.SaveFormat = 1;
Картинки.SaveBitmap("D:\123456789_" + Строка(Y)+".JPG");
GflLib - это библиотека для использования в проектах на С/С++. GflAx - библиотека для использования в приложениях, поддерживающий COM (ActiveX), в том числе 1С 7.7, 1с 8.1, 1С 8.2. Работа с GflAx из 1с 8.1 и 1С 8.2 в обычном режиме практически ничем не отличается от 1С 7.7, разница только в команде инициализации объекта, поэтому смысла выкладывать отдельно примеры для них не вижу. 1С 8.2 в режиме управляемого приложения скорее всего не поддерживает GflAx, хотя могу и ошибаться.
Не знаю, может и не поддерживает, по крайней мере в методах не видел. Но всё же берет откуда-то DPI, с которым было сделано изображение, а это очень важно при печати сканированных бланков. А EXIF можно получить из 1С без GflAx, то ли WSH то ли FSO, не помню точно...
И вот такой еще вопрос.
При изменении масштаба, сдвиге картинке и т.д. каждый раз записывается на диск временная картинка.
В реальной работе не приведет ли это к тому, что у пользователей будут через несколько месяцев умирать жесткие диски?
Ну при условии, скажем, что просматривается в день около сотни фотографий + еще несколько операций по изменению масштаба и т.д.
При изменении масштаба, сдвиге картинке и т.д. каждый раз записывается на диск временная картинка.
В реальной работе не приведет ли это к тому, что у пользователей будут через несколько месяцев умирать жесткие диски?
Ну при условии, скажем, что просматривается в день около сотни фотографий + еще несколько операций по изменению масштаба и т.д.
(72) GSA3D, записывается потому что 1С 7.7 может взять и отобразить картинку только с диска, или как вариант использовать дополнительные ВК. Насчет 1С 8 не знаю, может она уже и способна взять картинку непосредственно из памяти. На жестком диске это никак не скажется, вы просто не представляете какое количество дисковых операций одна только Windows делает даже в режиме простоя, по сравнению с этим чтение/запись картинок это капля в море.
Вряд ли. Это и вручную-то не так просто сделать как кажется. С помощью "волшебной палочки" получается коряво.
Как я делаю обычно в Photoshop:
1) копируем исходный слой в буфер (Ctrl+A, Ctrl+C)
2) создаем копию слоя из буфера (Ctrl+V)
3) переходим на исходный слой, скрываем его (Слои -> Скрыть слои), затем переходим на слой-копию
4) добавляем к слою-копии слой-маску (Слои -> Слой-маска -> Показать все)
5) переходим на слой-маску (Alt + щелчок по слою-маске)
6) вставляем изображение из буфера (Ctrl+V)
7) инвертируем слой-маску (Ctrl+I)
8) идем в кривые (Ctrl+M), центральную точку кривой тянем до верха
9) переходим на слой-копию (Alt + щелчок по слою)
10) любуемся результатом, если удовлетворяет то выполняем сведение (Слои -> Выполнить сведение)
Это работает (с некоторыми вариациями) когда фон однотонный, иначе только ручками (лассо, ластик, штамп и т.д.)
Как я делаю обычно в Photoshop:
1) копируем исходный слой в буфер (Ctrl+A, Ctrl+C)
2) создаем копию слоя из буфера (Ctrl+V)
3) переходим на исходный слой, скрываем его (Слои -> Скрыть слои), затем переходим на слой-копию
4) добавляем к слою-копии слой-маску (Слои -> Слой-маска -> Показать все)
5) переходим на слой-маску (Alt + щелчок по слою-маске)
6) вставляем изображение из буфера (Ctrl+V)
7) инвертируем слой-маску (Ctrl+I)
8) идем в кривые (Ctrl+M), центральную точку кривой тянем до верха
9) переходим на слой-копию (Alt + щелчок по слою)
10) любуемся результатом, если удовлетворяет то выполняем сведение (Слои -> Выполнить сведение)
Это работает (с некоторыми вариациями) когда фон однотонный, иначе только ручками (лассо, ластик, штамп и т.д.)
Автор:
Подписаться
Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
Публикация:
№ 15599
Создание 06.03.08 17:14
Обновление 25.03.08 00:00
Статистика:
Просмотры 43563
Загрузки 9715
Рейтинг
159
Комментарии 88
Характеристики:
Код открыт Не указано
Рубрики Работа с интерфейсом
Кому Программист
Тип файла Внешняя обработка (ert,epf)
Платформа 1С v8.3
Конфигурация
1C:Бухгалтерия
,
1C77
,
Универсальные
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)
