Embeddedobject в файл

Тема в разделе "Lotus - Программирование", создана пользователем -, 30 июл 2007.

Статус темы:
Закрыта.
  1. Гость

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

    Ronchik Гость

    Для: Смирнов А.Ю.
    в хелпе NotesEmbeddedObject class
     
  3. Гость

    Ей богу, весь хелп перерыл, не нашел, ткните носом, или сюда скопируйте.
     
  4. Ronchik

    Ronchik Гость

    Для: Смирнов А.Ю.
    Код (Text):
    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
    пример из хелпа
     
  5. Гость

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: Смирнов А.Ю.
    Всё зависит от обьекта . Эсли это не файл то как же Вы его сохраните на диск?
     
  7. Гость

    Пока он не сохранен на диск - он не может быть файлом. Но двоичные данные в нем есть, вот их мне и нужно вытащить, не активизируя сам объект, и на диск сохранить, а еще лучше в Stream.
    Для информации - объект Imaging.Document (tif)
     
  8. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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.

    Видимо по другому никак
     
  9. Гость


    Всем спасибо.
     
Загрузка...
Похожие Темы - Embeddedobject файл
  1. NickProstoNick
    Ответов:
    19
    Просмотров:
    6.253
  2. yerke
    Ответов:
    31
    Просмотров:
    9.173
  3. lmike
    Ответов:
    27
    Просмотров:
    295
  4. swyatogor
    Ответов:
    14
    Просмотров:
    177
  5. garri671
    Ответов:
    0
    Просмотров:
    74
Статус темы:
Закрыта.

Поделиться этой страницей