Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Не получается вставить рисунок в поле форматированного документа

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

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

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

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

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.