Embeddedobject в файл

  • Автор темы Guest
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

#1
Как сохранить в файл внедренный объект (не attached, а именно embedded)? ExtractFile работает только для прикрепленных файлов.
В FAQ искал - не нашел, буду благодарен за ответ или ссылку.
 
R

Ronchik

#4
Для: Смирнов А.Ю.
Код:
Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0	
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) _
And ( o.FileSize > MAX ) Then
fileCount = fileCount + 1
Call o.ExtractFile _
( "c:\reports\newfile" & Cstr(fileCount) )
Call o.Remove
Call doc.Save( True, True )
End If
End Forall
End If
пример из хелпа
 
G

Guest

#5
Либо я плохо задал вопрос, либо Вы невнимательно прочитали.
Attachment сохраняется без проблем, мне же нужно EMBED_OBJECT сохранить в файл. Это возможно, не активизируя его?
 

morpheus

скриптописец
07.08.2006
3 915
1
#6
Для: Смирнов А.Ю.
Всё зависит от обьекта . Эсли это не файл то как же Вы его сохраните на диск?
 
G

Guest

#7
Для: Смирнов А.Ю.
Всё зависит от обьекта . Эсли это не файл то как же Вы его сохраните на диск?
Пока он не сохранен на диск - он не может быть файлом. Но двоичные данные в нем есть, вот их мне и нужно вытащить, не активизируя сам объект, и на диск сохранить, а еще лучше в Stream.
Для информации - объект Imaging.Document (tif)
 

morpheus

скриптописец
07.08.2006
3 915
1
#8
<!--QuoteBegin-Смирнов А.Ю.+30:07:2007, 12:15 -->
<span class="vbquote">(Смирнов А.Ю. @ 30:07:2007, 12:15 )</span><!--QuoteEBegin-->Но двоичные данные в нем есть, вот их мне и нужно вытащить
[snapback]73761" rel="nofollow" target="_blank[/snapback]​
[/quote]


To get: Set handleV = notesEmbeddedObject.Object
Read-only. If an embedded object has been loaded into memory, returns the OLE handle (IDispatch handle). If the OLE object supports OLE Automation, you can invoke the methods and properties of the object using the handle.

Видимо по другому никак
 
Статус
Закрыто для дальнейших ответов.