Ваш онлайн помощник по 1С

В этой заметке приведен программный код для работы с буфером обмена Windows.

Всем разработчикам 1С известно, что напрямую 1С с буером обмена Windows не работает, поэтому приходится использовать обходные пути. Одним из таких путей является создание на клиентской стороне COM-объекта «HTMLFile»,  и работа с буфером обмена идет через него. Код такого варианта работы здесь и приведен.

Для Обычного приложения:

Процедура ЗаписатьТекстВБуферОбмена (пСтрока)
#Если Клиент Тогда
хОбъект = Новый COMОбъект(«htmlfile»);
хОбъект.ParentWindow.ClipboardData.Setdata(«Text», пСтрока);
Возврат;
#КонецЕсли
КонецПроцедуры

Функция ПолучитьТекстИзБуфераОбмена ()
Результат = Неопределено;
#Если Клиент Тогда
хОбъект = Новый COMОбъект(«htmlfile»);
Результат = хОбъект.ParentWindow.ClipboardData.Getdata(«Text»);
#КонецЕсли
Возврат Результат;
КонецФункции

Для Управляемого приложения:

&НаКлиенте
Процедура ЗаписатьТекстВБуферОбмена (пСтрока)
хОбъект = Новый COMОбъект(«htmlfile»);
хОбъект.ParentWindow.ClipboardData.Setdata(«Text», пСтрока);
Возврат;
КонецПроцедуры

&НаКлиенте
Функция ПолучитьТекстИзБуфераОбмена ()
Результат = Неопределено;
хОбъект = Новый COMОбъект(«htmlfile»);
Результат = хОбъект.ParentWindow.ClipboardData.Getdata(«Text»);
Возврат Результат;
КонецФункции

Один комментарий на “Заметки программиста 1С: Работа с буфером обмена Windows из 1С”