Вставить рисунок кодом

wowa

Well-known member
01.02.2007
845
0
#1
Подскажите, как вставит рисунок кодом

С помощью LS составляю html код, нужно вставить рисунок, который лежит в базе..
что-то ничего не получается, возможно, что-то типа:

Код:
<img src="IMG-LEA-NewRecall.jpg" >
Код примитивный

Код:
	Dim s 		As New NotesSession
Dim wks 		As New NotesUIWorkspace
Dim db 		As NotesDatabase
Dim docMemo 	As NotesDocument

s.ConvertMime = False

Set docMemo = dbMail.CreateDocument()	
docMemo.form = "Memo"

Dim mime As NotesMIMEEntity
Dim stream As NotesStream
Set stream = s.CreateStream

Call stream.WriteText( {<img src="Memo Logo.jpg" >} ) ??????????????????????????????????

Set mime = docMemo.CreateMIMEEntity("Body")
Call mime.SetContentFromText (stream, "text/html;charset=UTF-8", ENC_NONE)
Задача похожа на задачу из этой ветки: http://codeby.net/forum/threads/24107.html
Но что-то ответа я там не нашел
 

NetWood

Lotus team
17.04.2008
372
18
#2
Уже сколько раз постил и говорил. Ходите на буржуинские сайты по domino, а если занялись web, то codestore выучите наизусть...

Вот пример. покурите его.
Генерится html в rtf поле. туда пихайте что хотите. хоть картинки хоть таблицы
http://codestore.net/apps/htmlareas.nsf/calendar
сама база тут http://codestore.net/store.nsf/unid/DOMT-7...file/butter.zip

песочница тут http://codestore.net/store.nsf/sandbox/
 

wowa

Well-known member
01.02.2007
845
0
#3
NetWood , Мне отображать надо в клиенте , а не в web
 

wowa

Well-known member
01.02.2007
845
0
#5
lmike ,спасибо, где-то такое уже видел. Но там была проблема, что они не знали , можно ли взять рисунок который находится в базе.. Тут я смотрю тоже берут рисунок с диска, но не с базы. Возможно ли взять с базы?
 
A

amigolinx

#8
Стопроцентов утверждать не возьмусь, это я по старой памяти так посоветовал - где-то то ли на planetlotus.org, то ли еще где видел базу с примерами работы с MIME, там было что-то похожее на stream.WriteText(|<img src=cid:_1_00AABBCCDDEEFF112233445566778800>|)

... нашел, вот та база, на The VIEW лежит ...
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 569
263
#9
рисунок можно брать из любого места, вопрос - как это планируется
можете хоть из DXL стрима забирать (того же или др. дока в базе)
либо выгружать на диск и забирать оттуда
 

wowa

Well-known member
01.02.2007
845
0
#10
lmike , ну вот не знаю как это сделать. DXL не знаю. Выгружать на диск нельзя
Есть рисунок в базе, хочу его отобразить в документе, в клиенте
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 569
263
#11
у меня нет под рукой ни нотеса ни кода...
но в хэлпе есть про DXL, файлы там в filedata теге лежат, закодированные как Base64
копируете это кусок в др. стрим, оттудова как в примере mc.SetContentFromBytes
тока тип кодирования соответ. указываете (вроде BASE64 получится)