Вставка картинки из буфера обмена в платформы 8.3 до версии 16 представляла собой обычно комбинацию следующих механизмов:
- Для Тонкого и Толстого Клиентов использовалась внешняя компонента 1С.
- Для Веб Клиента - браузерный плагин, написанный на Javascript. Или же можно создать плагин на языка java для старых браузерах, которые поддерживают технологию applet (в последних версиях java прекращена поддержка указанной технологии).
Тем не менее, в рамках работы над своей учетной системой (поддерживает 8.2 из коробки) пришлось разобраться с тем, как именно лучше всего вставлять картинку. Выяснилось следующее:
- Компонента ДО - из публикации Вставка картинки из буфера обмена с помощью компоненты из Документооборота в форматированный документ и HTML поле на обычных и управляемых формах - тонкий клиент и аналогичных ей - полностью выполнена по стандартам 8.3, а потому 1С 8.2 не поддерживает.
- Старые компоненты выполнены по технологии COM. Но требуют прав для регистрации компонент.
- Новый Native компоненты не поддерживают Windows 2000 sp4 (минимальное требование 1с 8.2.19 и первых betta версий 8.3 до 8.3.3), правда не требуют регистрации.
Нашел в рамках анализа публикаций несколько статей про скриншотер - , но которые или требуют Net Framework или же просто не работают на старых системах. С точки зрения автора - много требуют, поскольку winapi (для Windows) содержит в себе все необходимые процедуры (а для формата BMP можно даже для Windows 3.0 16 bit написать скриншотер без использования сторонних библиотек). В результате этого разочарования была разработана собственная утилита для работы со скриншотами, которая обладает следующими характеристиками.
Системные требования к утилите для Windows:
- Windows 3.1x с пакетом Win32s.
- Windows 9x, начиная с Windows 95.
- Windows NT все версии для архитектуры x86.
В 1С подключается как макет двоичные данные с распаковкой во временную директорию. Для работы с утилитой или её аналогами можно использовать следующий код (работает как на обычных, так и на управляемых формах на 8.2 и 8.3). Код работает в асинхронном режиме 1С предприятия 8.3!!!
//получение утилиты:
&НаКлиенте
Функция ВернутьИмяФайлаВременногоСкриншота() экспорт
#Если ВебКлиент Тогда
возврат "";
#Иначе
Макет=ОбъектыОбработок.ВернутьСкриншотерНеWebКлиент();//(возврат Общего макета).
EXE=ПолучитьИмяВременногоФайла("exe");
Макет.Записать(EXE);
возврат EXE;
#КонецЕсли
КонецФункции // ВернутьИмяФайлаВременногоСкриншота()
//Обработка кодом:
&НаКлиенте
Процедура КартинкаИзБуфераОбмена(Команда)
// Вставить содержимое обработчика.
//КомпонентаПолученияКартинкиИзБуфера
#Если ВебКлиент Тогда
//Для работы в веб клиенте - будем использовать апплет JAVA.
#иначе
//Запускаем с режимом командной строки:
ТМП=ПолучитьИмяВременногоФайла("BMP");
//Запускаем с режимом командной строки:
СтруктураПараметров=новый Структура;
СтруктураПараметров.Вставить("ТМП",ТМП);
СтруктураПараметров.Вставить("Форма",ЭтаФорма);
Попытка
ЗапуститьПриложение(КомпонентаПолученияКартинкиИзБуфера+" "+ТМП+" cli",,Истина);
ВставитьКартинкуИзБуфераЧерезИсполняемыйФайл(Неопределено,СтруктураПараметров)
Исключение
выполнить("НачатьЗапускПриложения(новый ОписаниеОповещения(""ВставитьКартинкуИзБуфераЧерезИсполняемыйФайл"",ЭтаФорма,СтруктураПараметров),КомпонентаПолученияКартинкиИзБуфера+"" ""+ТМП+"" cli"",,Истина)");
КонецПопытки;
#КонецЕсли
КонецПроцедуры
//Код из модуля - пример обработки вызова Exe:
&НаКлиенте
Функция ВставитьКартинкуИзБуфераЧерезИсполняемыйФайл(КодВозврата,СтруктураПараметров) экспорт
#Если ТолстыйКлиентОбычноеПриложение Тогда
ДокументПервогоБраузера = СтруктураПараметров.Форма.ЭлементыФормы.ДокументHTML.Документ;
ДокументHTML= СтруктураПараметров.Форма.ЭлементыФормы.ДокументHTML;
#иначе
ДокументПервогоБраузера = СтруктураПараметров.Форма.Элементы.ДокументHTML.Документ;
ДокументHTML= СтруктураПараметров.Форма.Элементы.ДокументHTML;
#КонецЕсли
ОкноПервогоБраузера = ДокументПервогоБраузера.parentWindow; // IE
Если ОкноПервогоБраузера = Неопределено Тогда
ОкноПервогоБраузера = ДокументПервогоБраузера.defaultView; // Прочие браузеры
КонецЕсли;
Попытка
BMP=новый ДвоичныеДанные(СтруктураПараметров.ТМП);
исключение
ВМP=Неопределено;
КонецПопытки;
Если BMP=Неопределено Тогда
//Если картинки нет, тогда:
Сообщить("Ошибка - картинка в буфере обмена отсутствует!");
возврат Ложь;
иначе
//Картинка в буфере есть - удаляем временный файл:
Попытка
УдалитьФайлы(СтруктураПараметров.ТМП);
Исключение
Рез=Вычислить("УдалитьФайлыАсинх(СтруктураПараметров.ТМП)");
КонецПопытки;
//В BMP двоичные файлы - здесь далее обработка кода:
КонецЕсли;
КонецФункции // ВставитьКартинкуИзБуфераЧерезИсполняемыйФайл()
Приведенный код был тестирован на платформах 1С 8.3.20 и 1С 8.2.12, однако утилиту можно использовать и на более старых платформах за счет того, что сама утилита не требует наличия даже библиотеки C++ (принципиально для использования на старых Windows).
Примеры встраивания в конфигуратор утилиты:
Режим 1С Предприятие:
1С 8.2:
Для 8.3 платформы:
Для УФ:
Для 1С 8.3:
Выводы:
Указанная программа позволяет решить задачу вставки картинки из буфера обмена, и так как независима от 1С, то может спокойно работать в любой 1С версии.
