Войти
 
 
 
Форум NotesNet Регистрация Список пользователей Последние сообщения Поиск Выход
Форум NotesNet > Разработка notes-приложений > Вставка изображения в RICHTEXT
   
Для создания сообщения необходимо
аутентифицироваться на сервере
03/28/2022 01:57:17 PM Вставка изображения в RICHTEXT
rAmantiK
Регистрация: 03/28/2022
Сообщений: 2
Как брать картинку из Resurces/Images ?

 
Ответить с цитированием
03/28/2022 02:01:11 PM
rAmantiK
Регистрация: 03/28/2022
Сообщений: 2
В хэлпе имеется код для подгрузки изображения с компа и вставки его в RICHTEXT.

EmbedPictureIntoRichText = False

Dim body As NotesMIMEEntity
Dim header As NotesMIMEHeader
Dim child As NotesMIMEEntity
Dim stream As NotesStream
Dim fileFormat As String
Dim rtitemA As NotesRichTextItem
Dim rtitemB As NotesRichTextItem

Set db = doc.Parentdatabase
Set stream = session.CreateStream
Call stream.Open("J:\Рабочая\SYS\Desktop\f.gif")
Set body = doc.CreateMIMEEntity("DummyRichText")
Set header = body.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/mixed")
Set child = body.CreateChildEntity() 'Set childEntity = richTextItemObj.CreateChildEntity()
fileFormat = "image/gif" 'Other formats are "image/gif" "image/bmp"
Call child.Setcontentfrombytes(stream, fileFormat, 1730)
Call stream.Close()
Call doc.save(False, False) 'JUST TO REFRESH
Set rtitemA = doc.GetFirstItem("fpo")
rtitemA.Values = ""
Set rtitemB = doc.GetFirstItem("DummyRichText")
Call rtitemA.AppendRTItem( rtitemB )
Call rtitemB.Remove()
Call doc.save(False, False)

EmbedPictureIntoRichText = True

Данный код работает, но вопрос по внедрению изображения из Resurces/Images.
Возможно ли кодом вытаскивать изображения из Resurces/Images и вставки его в RICHTEXT?

 
Для создания сообщения необходимо
аутентифицироваться на сервере
Дополнительно
Статистика форума Именинники
Новый пользователь: rAmantiK
Участников: 247
Тем: 167
Сообщений: 416
slavyan
Статистика
Самые активные авторы Новые пользователи Наиболее просматриваемы темы
Пользователи Сообщения
Ник Норки...150
Denny71
Мэкс29
Golembiov...19
CarteBlan...17
Duchan15
lmed13
Mitka Aku...13
susinmn10
Kachinkin8
Пользователи Сообщения
rAmantiK2
Олег Изос...0
yungert0
webguru1
tsibus_s1
nataname0
URSiP0
RK5D0
Эбзеев Ру...0
nuesro1
Тема Автор Просмотров Ответов
"плюсы" и "минусы" создания са...Ник Норкин6233554
Обсуждаем "Сборщик почты"Duchan3771627
Первое впечатлениеDNN2808713
Экспорт из oracle в lotusslavyan2768813
На сайте, в статьях не работаю...Duchan255553
HTTP POST из кода базыDaime165684
[Domino Designer]Не могу откры...SiM22144936
Lotus Sametime Connect 8.0.2 п...HardCool141011
Lotus CMSKachinkin139343
nginx + dominoNetWood120361
 
© LOGOSPHERE.RU