1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Embeddedobject в файл

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

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

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

    Ronchik Гость

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

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

    Ronchik Гость

    Репутация:
    0
    Для: Смирнов А.Ю.
    Код:
    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. Гость

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

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

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

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

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

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

    Репутация:
    0

    Всем спасибо.
     
Загрузка...
Статус темы:
Закрыта.

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