Шифрование полей

Тема в разделе "Lotus - Программирование", создана пользователем Oksana, 20 янв 2006.

  1. Oksana

    Oksana Lotus team
    Lotus team

    Регистрация:
    10 янв 2006
    Сообщения:
    330
    Симпатии:
    0
    Есть документ в нем поле RTF, с параметром безопасности "Применить шифрование". Использую переключатель с выбором Шифровать/Не шифровать, который присваивает полю "SecretEncryptionKeys" либо имя ключа шифрования либо отменяет его (пустое значаение). Как только применяю шифрование, приаттаченные файлы остаются как и были в поле RTF в виде картинки, но при обращении к ним выдается ошибка, что файла не существует.

    В чем может быть проблема?

    Делала однажды такой документ, все работало, в этот раз не могу найти ошибку.
     

    Вложения:

    • Image1.jpg
      Image1.jpg
      Размер файла:
      7,1 КБ
      Просмотров:
      65
  2. Oksana

    Oksana Lotus team
    Lotus team

    Регистрация:
    10 янв 2006
    Сообщения:
    330
    Симпатии:
    0
    Создала пустую базу, одну форму, один вид. Проверила шифрование - работает. Иду в первую базу - не работает. Где рыть, что рыть? :-(
     
  3. Oksana

    Oksana Lotus team
    Lotus team

    Регистрация:
    10 янв 2006
    Сообщения:
    330
    Симпатии:
    0
    Я тут тихо сама с собой беседую.
    Ну если кому интересно, создала в этой же базе новую форму, перенесла все один в один из старой - работает. Это, конечно, радует.
    Но в чем был прикол так и не узнала ...
     
  4. Oksana

    Oksana Lotus team
    Lotus team

    Регистрация:
    10 янв 2006
    Сообщения:
    330
    Симпатии:
    0
    Нашла что мешает работе шифрования. Но не знаю как с этим справиться.
    А не работает потому что в PostSave скрипт стоит

    Sub Postsave(Source As Notesuidocument)
    Dim rtitem As NotesRichTextItem
    Set rtitem = Source.Document.GetFirstItem("B")
    If Isempty(rtitem.EmbeddedObjects) Then Source.Document.BB = "0" Else Source.Document.BB = "1"
    Call Source.Document.Save(True, True, True)
    End Sub

    см тему http://codeby.net/forum/threads/6139.html

    И скрипт нужен и шифрование нужно, помогай Mevedic еще раз )))
     
  5. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Попробуй так:
    Код (Text):
    Sub Postsave(Source As Notesuidocument)
    Dim rtitem As NotesRichTextItem
    Set rtitem = Source.Document.GetFirstItem("B")
    If Isempty(rtitem.EmbeddedObjects) Then Source.Document.BB = "0" Else Source.Document.BB = "1"
    rtitem.IsEncrypted = True
    Source.Document.EncryptionKeys = твои ключи
    Call Source.Document.Encrypt
    Call Source.Document.Save(True, True, True)
    End Sub
     
Загрузка...

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