1С 8.3 Вставить картинку в буфер обмена средствами 1С
Данные > Примеры кода 1С > 1С 8.3 Приложение, система, интерфейс
Перейти в раздел примеры кода 1С 8.3:
Платформа 1С 8.3.24 позволяет работать с буфером обмена с помощью специальная коллекция со стандартными форматами СтандартныйФорматДанныхБуфераОбмена и объектом для помещения данных в буфер ЭлементБуфераОбмена.
Вставить картинку в буфер обмена в 1С 8.3.24.1467:
&НаКлиенте
Асинх Процедура КартинкаИзБуфераОбмена(Команда)
Фото = Ждать ПриВставкеИзБуфераОбменаКартинки();
ВставитьКартинкуИзБуфераОбмена(Фото);
КонецПроцедуры
&НаКлиенте
Процедура ПриВставкеИзБуфераОбмена(Значение, СтандартнаяОбработка)
ВставитьКартинкуИзБуфераОбмена(Значение);
КонецПроцедуры
&НаКлиенте
Процедура ВставитьКартинкуИзБуфераОбмена(Фото)
Если ТипЗнч(Фото) = Тип("Картинка") Тогда
ПутьККартинке = КаталогВременныхФайлов()+"Photo2024.jpg";
Фото.Записать(ПутьККартинке);
Файл = Новый ДвоичныеДанные(ПутьККартинке);
ФотоФайл = ПоместитьВоВременноеХранилище(Файл, УникальныйИдентификатор);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Асинх Функция ПриВставкеИзБуфераОбменаКартинки()
Если СредстваБуфераОбмена.ИспользованиеДоступно() Тогда
ФорматБуфера = СтандартныйФорматДанныхБуфераОбмена.Картинка;
// СтандартныйФорматДанныхБуфераОбмена доступен, начиная с версии 8.3.24
// Значения:
// HTML (HTML)
// Картинка (Picture)
// Текст (Text)
Если Ждать СредстваБуфераОбмена.ПоддерживаетсяФорматДанных(ФорматБуфера) Тогда
// ПоддерживаетсяФорматДанных доступен, начиная с версии 8.3.24
// Проверяет, поддерживается ли переданный формат данных буфером обмена.
// Данный метод рекомендуется использовать перед вызовом метода
Возврат Ждать СредстваБуфераОбмена.ПолучитьДанныеАсинх(ФорматБуфера);
КонецЕсли;
КонецЕсли;
Возврат Неопределено;
КонецФункции
Асинх Процедура КартинкаИзБуфераОбмена(Команда)
Фото = Ждать ПриВставкеИзБуфераОбменаКартинки();
ВставитьКартинкуИзБуфераОбмена(Фото);
КонецПроцедуры
&НаКлиенте
Процедура ПриВставкеИзБуфераОбмена(Значение, СтандартнаяОбработка)
ВставитьКартинкуИзБуфераОбмена(Значение);
КонецПроцедуры
&НаКлиенте
Процедура ВставитьКартинкуИзБуфераОбмена(Фото)
Если ТипЗнч(Фото) = Тип("Картинка") Тогда
ПутьККартинке = КаталогВременныхФайлов()+"Photo2024.jpg";
Фото.Записать(ПутьККартинке);
Файл = Новый ДвоичныеДанные(ПутьККартинке);
ФотоФайл = ПоместитьВоВременноеХранилище(Файл, УникальныйИдентификатор);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Асинх Функция ПриВставкеИзБуфераОбменаКартинки()
Если СредстваБуфераОбмена.ИспользованиеДоступно() Тогда
ФорматБуфера = СтандартныйФорматДанныхБуфераОбмена.Картинка;
// СтандартныйФорматДанныхБуфераОбмена доступен, начиная с версии 8.3.24
// Значения:
// HTML (HTML)
// Картинка (Picture)
// Текст (Text)
Если Ждать СредстваБуфераОбмена.ПоддерживаетсяФорматДанных(ФорматБуфера) Тогда
// ПоддерживаетсяФорматДанных доступен, начиная с версии 8.3.24
// Проверяет, поддерживается ли переданный формат данных буфером обмена.
// Данный метод рекомендуется использовать перед вызовом метода
Возврат Ждать СредстваБуфераОбмена.ПолучитьДанныеАсинх(ФорматБуфера);
КонецЕсли;
КонецЕсли;
Возврат Неопределено;
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник