Метод Объекта не обнаружен УстановитьТекст

1. sergqwert15 2 27.09.20 17:31 Сейчас в теме
Не получается вставить рисунок в поле форматированного документа. Метод Объекта не обнаружен УстановитьТекст(). Конфигурация БП 3.0. В чем проблема?

&НаКлиенте
Процедура ВставитьВТелоПисьма(Команда)

ДВФ = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Если ДВФ.Выбрать() Тогда
ДвДанныеФайла = Новый ДвоичныеДанные(ДВФ.ПолноеИмяФайла);
СкопироватьДвоичныеДанныеВБуФерВФорматеBase64(ДвДанныеФайла, ДВФ.ПолноеИмяФайла);
КонецЕсли;

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

&НаСервере
Процедура СкопироватьДвоичныеДанныевБуФерВФорматеBase64(ДвДанныеФайла, текИмяФайла)

текРасширениеФайла = ПолучитьРасширениеФайла(текИмяФайла);
Строка64 = "data:image/"+текРасширениеФайла+";base64,"+Base64Строка(ДвДанныеФайла);
ТекстHTMLКартинка = "<P><IMG alt="""" src="""+Строка64+""">";
ЗначениеВыбора = Элементы.ТелоПисьма.ПолучитьТекст();
ЗначениеВыбора = СтрЗаменить(ЗначениеВыбора, "</BODY>", ТекстHTMLКартинка + "</BODY>");
Элементы.ТелоПисьма.УстановитьТекст(ЗначениеВыбора);
ЭтаФорма.Прочитать();
ЭтаФорма.ОбновитьОтображениеДанных();;

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

&НаСервере
Функция ПолучитьРасширениеФайла(ВхИмяФайла)

текРасширение = "jpg";
Если СокрЛП(ВхИмяФайла) <> "" И СтрЧислоВхождений(ВхИмяФайла, ".") > 0 Тогда
времРасширение = СокрЛП(СтрПолучитьСтроку(СтрЗаменить(ВхИмяФайла, ".", Символы.ПС), СтрЧислоСтрок(СтрЗаменить(ВхИмяФайла, ".", Символы.ПС))));
Если СокрЛП(времРасширение) <> "" Тогда
текРасширение = времРасширение;
КонецЕсли;
КонецЕсли;
Возврат текРасширение;

КонецФункции
Прикрепленные файлы:
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. FatPanzer 27.09.20 17:35 Сейчас в теме
Потому что УстановитьТекст() - это метод текстового документа, а не форматированного документа.
3. PerlAmutor 129 27.09.20 17:50 Сейчас в теме
УстановитьHTML(<ТекстHTML>, <Вложения>)
4. sergqwert15 2 28.09.20 00:41 Сейчас в теме
Так?
&НаСервере
Процедура СкопироватьДвоичныеДанныевБуФерВФорматеBase64(ДвДанныеФайла, текИмяФайла)

текРасширениеФайла = ПолучитьРасширениеФайла(текИмяФайла);
Строка64 = "data:image/"+текРасширениеФайла+";base64,"+Base64Строка(ДвДанныеФайла);
ТекстHTMLКартинка = "<P><IMG alt="""" src="""+Строка64+""">";

ЗначениеВыбора = ТелоПисьма.ПолучитьТекст();
ЗначениеВыбора = СтрЗаменить(ЗначениеВыбора, "</BODY>", ТекстHTMLКартинка + "</BODY>");
ВложенияКартинки = Новый Структура();
ТелоПисьма.УстановитьHTML(ЗначениеВыбора,ВложенияКартинки);

КонецПроцедуры
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот