Линк на фотку в РТ поле

[Kizarek86]

Omh
Сорь тогда за глупый вопрос, как программно при выборе картинки(при закрытие документа, неважно по какому событию) притачить картинку которая выбрана в РТ поле?

 

[Sandr]

kizarek
Как оыбчный файл аттачите, так и картинку

Set notesEmbeddedObject = notesRichTextItem.EmbedObject

+ F1

 

[Kizarek86]

А как отобразить картинку теперь?)приатачить то к полю приатачили...а вот отображается она как ярлычок простой а не как картинка.

 

[Guest]

Картинка должна просматриваться в Вебе ? Если так, просто пиши в RTF ссылку на нее, тут и мудрить не надо, благо хранится в документе

 

[Kizarek86]

ничерта неполучается(
Есть поле РТ (Foto) на форме, приатачить к нему файл надо(+отобразить в нём).
Dim RTItem As NotesRichTextItem
Dim ws As New NotesUIWorkspace
Set docST = ws.CurrentDocument .Document
Set RTItem= docST.GetFirstItem("Foto")
Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", "e:\1\1.gif")

фотка атачиться к документу а не к полю...

 

[Guest]

ничерта неполучается(
Есть поле РТ (Foto) на форме, приатачить к нему файл надо(+отобразить в нём).
Dim RTItem As NotesRichTextItem
Dim ws As New NotesUIWorkspace
Set docST = ws.CurrentDocument .Document
Set RTItem= docST.GetFirstItem("Foto")
Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", "e:\1\1.gif")

фотка атачиться к документу а не к полю...

)) Как же ты собрался взять несуществующий item ? Для начала не мешало бы его инициализировать, а потом только приатачивать...Set RTItem=New NotesRichTextItem(docST,"Foto")

Это вместо строки Set RTItem=docST.GetFirstItem("Foto")
Короче, взять из документа можно только существующий RTF

Это вместо строки Set RTItem=docST.GetFirstItem("Foto")
Короче, взять из документа можно только существующий RTF

 

[Kizarek86]

Программер
пардон, ет я нету строчку вставил сюда....вопрос про то как открыть приатаченую фотку в РТ поле открыт)
Да и отображается приатаченый файл то в РТ поле, то снизу документа...ничерта не пойму)

 

[Guest]

Картинка должна просматриваться в Вебе ? Если так, просто пиши в RTF ссылку на нее, тут и мудрить не надо, благо хранится в документе

Ну то есть можно кинуть на форму еще один эртээфик для просмотра в вебе, там и сбацать линк на твой аттач

 

[Kizarek86]

Лан, ещё рас опишу задачу.
1.Нужно чтобы картинка отображалась на форме в лотусе. т.е. юзер взял картинку, добавил к документу, всё она там есть.
2.Далее через некоторое время понадобилось эту картинку сохранить отдельно, юзер кликнул на кнопочку, картинка куда указано сохранилась.

Решили приатачить картинку чтобы легче было потом реализовать п.2, наткнулись на то что с п.1 тогда траблы...

 

[Guest]

Ну тогда предлагаю атачить файл, потом сохранять его на машине и после всего этого импортнуть его в тот же документ в другой RTF чере NotesUIDocument.Import, вариант не то чтобы очень, но можешь рискнуть

 

[Kizarek86]

Программер
Например ещё можно так, думаю проще будет. Лепим кнопочку с диалогом (аля как в РТ поле при выборе картинки), на ней код который атачит файл и пихает картинку в РТ поле. Так можно запихнуть кодом картинку в РТ пое чтобы она там открылась?

Программер
Лови спасибо, NotesUIDocument.Import как раз то что надо)

Как бы теперь у РТ поля убрать значок который справа висит) Никто не убирал это бяку?)

 

[Guest]

Эээ, какой значок ? У тебя в том RTF, в котором картинка, какой-то значок ?

 

[Medevic]

Как бы теперь у РТ поля убрать значок который справа висит) Никто не убирал это бяку?)

Заменить Rich Text Lite на Rich Text.

 

[Constantin A Chervonenko]

MIME должен помочь. Если картинку всталять не импортом и не аттачем, а генерить MIMEEntity, то потом она в интерфейсе выглядит как inline, но программно обрабатывается не хуже attach-а

 

[Kizarek86]

Constantin A Chervonenko
Ну можно в РТ поле вставить также Импортом, ток галку поставить чтобы как MIME отображалась.только как картинку потом вытянуть оттуда хз) всю хелпу облазил...так ничего и ненашел(

Это на ЛС возможно? или только на ЯС?

Ну тогда предлагаю атачить файл, потом сохранять его на машине и после всего этого импортнуть его в тот же документ в другой RTF чере NotesUIDocument.Import, вариант не то чтобы очень, но можешь рискнуть

Да кстати, а метода обратного Import нету? покопался вроде ненашел)

 

[Guest]

Constantin A Chervonenko
Ну можно в РТ поле вставить также Импортом, ток галку поставить чтобы как MIME отображалась.только как картинку потом вытянуть оттуда хз) всю хелпу облазил...так ничего и ненашел(

Это на ЛС возможно? или только на ЯС?


Да кстати, а метода обратного Import нету? покопался вроде ненашел)

Метод, обратный импорту, это метод Extract класса EmbeddedObjects..Конечно, не совсем обратный, но в твоем случае не вижу причины не использовать его, ведь в документе у тебя есть и картинка, и приатаченный файлик, котороый можно экстрактнуть в любую директорию юзерской машины

 

[Kizarek86]

Программер
Да, ту разобрался.

	Dim ws As New NotesUIWorkspace
Dim uidocST As NotesUIDocument
Set uidocST=ws.CurrentDocument
Dim RTItem As NotesRichTextItem
fn= ws.OpenFileDialog(False, "Выбрать файл", "GIF Image|*.gif", "c:\My Documents")
Forall FileName In fn
Call uidocST.GotoField("Foto")
Call uidocST.Import("GIF Image", FileName)

Set RTItem= New NotesRichTextItem(uidocST.Document, "Att" )
Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName) ' крепим аттачмент
End Forall

Тут вот косяк вылез....файл атачится к полю "Att" и атачится к полю "Foto"....хрен пойми почему.

 

[Sandr]

Судя по коду, он должен быть и там и там.
Сохраните документ и переоткройте его...

 

[Kizarek86]

Кхм...а как переоткрыть програмно док?)

 

[Sandr]

set notesUIDocument = notesUIWorkspace.EditDocument( [editMode] , [notesDocument] , [notesDocumentReadOnly] , [documentAnchor$] , [returnNotesUIDocument] , [newInstance] )

dim unid as string
dim doc as notesdocument
set doc = uidoc.document
unid = doc.univaersalID
call doc.save(true, false)
call uidoc.close
on error resume next
set doc = db.getdocumentByUNID(unid)
call ws.EditDocument(true, doc)