Isempty (rtitem.embeddedobjects) врет

[yerke]

не знаю почему
но IsEmpty (rtitem.EmbeddedObjects) врет
всегда возращает TRUE
хотя rtitem содержит EmbeddedObjects

эти EmbeddedObjects не атачи
а созданные в самом rtitem объекты
то есть те же объекты ms equation

после того как сохранить и переоткрыть этот док
то объекты ms equation воспринимаются как рисунки

дорогой Medevic
думаю тока ты ответишь на этот вопрос

почему
IsEmpty (rtitem.EmbeddedObjects) всегда возращает TRUE

 

[Medevic]

Ну это понятно почему. Ты сам пишешь, что они превращаются в картинки. Т.е. они перестают быть внедренными объектами.
Поэтому IsEmpty не врет.
Проблема в том, почему они становятся картинками.
MS Equation сама по себе глючная штука. Формулы в самом ворде частенько превращались в картинки. Так что не думаю, что это глюк лотуса.

<!--QuoteBegin-yerke+7:12:2007, 14:00 -->
<span class="vbquote">(yerke @ 7:12:2007, 14:00 )</span><!--QuoteEBegin-->дорогой Medevic
думаю тока ты ответишь на этот вопрос

[snapback]88907" rel="nofollow" target="_blank[/snapback]​

[/quote]

 

[root]

Для: yerke
isEmpty - возвращает true только когда обьект имеет тип вариант

 

[morpheus]

Раз у ж на то пошло... то обькт нельзя подставлять .. IsEmpty работает ТОЛЬКО с переменными... не путать обьект и переменную

Попробуйте проверять IsObject

 

[yerke]

EmbeddedObjects дока тоже пусто

hasEmbedded дока тоже возращает false

то есть никак нельзя решить эту проблему
а картинки в рт поле не являются объектами

 

[morpheus]

Для: yerke
а разве от документа

If doc.HasEmbedded Then
Forall o In doc.EmbeddedObjects
Messagebox( o.Name )
End Forall
Else

Ничего не покажет?

 

[yerke]

<!--QuoteBegin-Morpheus+7:12:2007, 17:33 -->
<span class="vbquote">(Morpheus @ 7:12:2007, 17:33 )</span><!--QuoteEBegin-->Ничего не покажет?

[snapback]88919" rel="nofollow" target="_blank[/snapback]​

[/quote]
нет
так как
doc.HasEmbedded=false

 

[Medevic]

Картинки не являются объектами.

 

[yerke]

тогда можно ли
так проверить

получить
размер тока текста который содержится в рт
и размер рт поля в целом

если они отличаются то поле содержит иные объекты кроме текста

 

[Sandr]

Соседняя тема есть.. о размере РТ итема...

 

[Medevic]

Навигатором NotesRichTextNavigator еще можно попробовать. Может получится.

 

[yerke]

ну я смотрел эту тему
по моему там тоже вопрос остоется открытым

 

[Sandr]

ну я смотрел эту тему
по моему там тоже вопрос остоется открытым

Там просто вопрос уже другой...

Кстати, над вопросом, убедится, что в РТитеме есть картинка не один лоб разбился... нет таког способа

 

[root]

Для: yerke

	Dim uidoc As NotesUIDocument 
Dim ws As New NotesUIWorkspace 
Set uidoc = ws.CurrentDocument 
Dim ritem As NotesRichTextItem 
Set ritem = uidoc.Document.GetFirstItem("Un1")  
Print  Isarray( ritem.EmbeddedObjects )

 

[Sandr]

Для: root

И что? Он не будет масивом.. картинка не считается объектом...

 

[yerke]

<!--QuoteBegin-Sandr+7:12:2007, 17:56 -->
<span class="vbquote">(Sandr @ 7:12:2007, 17:56 )</span><!--QuoteEBegin-->Кстати, над вопросом, убедится, что в РТитеме есть картинка не один лоб разбился... нет таког способа smile.gif

[snapback]88930" rel="nofollow" target="_blank[/snapback]​

[/quote]
то есть я иду по безнадежному пути
неужели нет надежды
:huh:

<!--QuoteBegin-root+7:12:2007, 17:58 -->
<span class="vbquote">(root @ 7:12:2007, 17:58 )</span><!--QuoteEBegin-->Print Isarray( ritem.EmbeddedObjects )

[snapback]88933" rel="nofollow" target="_blank[/snapback]​

[/quote]
в дебаггере
сторока
EmbeddedObjects ritem-а пусто
и я так думаю
Print Isarray( ritem.EmbeddedObjects )
напечатает мне большой FALSE

 

[Medevic]

Для: yerke

Ссылка скрыта от гостей

 

[root]

Для: Sandr
нет объекта возвращает false есть true

 

[Omh]

Предварительно не ссать :huh:
Через DXL можно не только проверить, есть ли в рт картинка, но и экспортнуть её.

Достал я наверно с DXL

 

[root]

Для: yerke
у меня возвращает есть объект ms equation то true а если нет то false