Возможная проблема при программном копировании в буфер обмена на RDP

Evg-lylyk commented 3 years ago

На РДП возможно не работают команды занесения в буфер https://helpf.pro/faq/view/705.html

Evg-lylyk commented 3 years ago

Сергей Муравьев (IS Toolkit) Процедура КопироватьТекстВБуфер(Текст)

ПутьВременногоФайла = ПолучитьИмяВременногоФайла();    
Тд = Новый ТекстовыйДокумент;
Тд.УстановитьТекст(Текст); // Текст = что_копируем_в_буфер
Тд.Записать(ПутьВременногоФайла,КодировкаТекста.OEM,Символы.ВК + Символы.ПС);
КомОбъект = Новый COMОбъект("WScript.Shell"); КомОбъект.Run("%comspec% /c type """+ПутьВременногоФайла+""" | clip", 0,0); КомОбъект = Неопределено;

ПоказатьОповещениеПользователя("Текст сообщения",,"скопирован в буфер обмена");

КонецПроцедуры &НаКлиенте Процедура Декорация1Нажатие(Элемент) ТекстСообщения = ""; Этаформа.ТекущийЭлемент = Элементы.ТекстСообщения; //куда вставить

ПодключитьОбработчикОжидания("ВставитьИзБуфера",0.1, Истина);

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

&НаКлиенте Процедура ВставитьИзБуфера() wsh=Новый COMОбъект("WScript.Shell");
wsh.SendKeys("^v"); wsh.SendKeys("^м"); КонецПроцедуры

Evg-lylyk commented 3 years ago

https://forum.infostart.ru/forum9/topic10315/

Evg-lylyk commented 3 years ago

Решено в 1.8

Evg-lylyk commented 3 years ago

Проблема все равно остается не всегда работает копирование, нужно переходить на какой то другой способ

Evg-lylyk commented 3 years ago

Доработал в 1.8.3

infostart-hub / toolkit

Возможная проблема при программном копировании в буфер обмена на RDP #231