1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

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

Embeddedobject в файл

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

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

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

    Ronchik Гость

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

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

    Ronchik Гость

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

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

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

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

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

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

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

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

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