подмена аттача в контролед-секции и эцп

[maliy]

у меня RT поле , в нем аттач , например эксель , при нажатии на него лотус выдает диалогове окно что сделать - открыть, изменить , ...
то есть если есть опция "Изменить", то лотус каким то образом "отслеживает" аттачмент, вот хотелось бы чтоб отследить изменялся ли аттач (через UI)?
Если можно небольшой пример как подсчитать контрольную сумму, или как следить за аттачем в лотусе?

 

[TIA]

или как следить за аттачем в лотусе

Правый клик на вложении. Меню "свойства".

 

[Klido]

лотус каким то образом "отслеживает" аттачмен

кстати, не проверял с 7.х - так и осталось, что надо полностью серверное приложение закрывать для применения изменения аттача (т.е. полностью) в документе?

 

[maliy]

to TIA, свойства это хорошо, а как к ним программно добраться?
to Klido , если я правильно понял , то можно не все приложение(допустим эксель) закрывать, а только документ(экселя) закрыть и изменения сохраняются

 

[maliy]

Подскажите, кто знает как добраться к свойствам Аттачмента программно ?

 

[TIA]

Подскажите, кто знает как добраться к свойствам Аттачмента программно ?

NotesDocument.getAttachment
NotesDocument.EmbeddedObjects
NotesRichtextItem.EmbeddedObjects

FileDateTime
FileLen

 

[Klido]

испробовал вариант подписи секции через API - код из поста №2.
неудачно пока :KillMe:

там идет вызов функции SignSection с параметрами, последний из которых - "SectionFields -строковый массив(zero based) имен полей в секции, в порядке следования полей в форме", так вот поле у меня в секции ровно одно, если передаю как строку имя поля - illegual function call, если передаю как массив из одной строки - note item not found.... Эти ерроры возвращает сама функция как значение... Ошибку формирует так

Private Function GetErrorString(newstatus As Integer) As String
Dim Err_Mask As Integer
Dim errorstr As String
Dim stat As Integer
Err_Mask = &H3FFF
stat = newstatus And Err_Mask
errorstr = Space$(127) + Chr(0)
stat = apiOSLoadString(0, stat, errorstr, Len(errorstr) - 1)
If stat > 0 Then
stat = apiOSTranslate(OS_TRANSLATE_LMBCS_TO_NATIVE, Left$(errorstr, stat), stat, errorstr, stat)
GetErrorString = Left$(errorstr, stat)
Else
GetErrorString = ""
End If
End Function

TIA
удавалось так подписать секцию?

кто-нибудь ещё пробовал подпись через API?? Непонятно как решить по таким ошибкам....

 

[TIA]

удавалось так подписать секцию?

Да. Но для более общего случая приходилось код докручивать. В частности, помню, что код не поддерживает наличие дупов полей (наприер много полей Body), не работает с полями именованными НЕ английскими буквами.

Ошибка note item not found после apiNSFItemInfo ?

 

[Klido]

Ошибка note item not found после apiNSFItemInfo ?

угу, похоже там, после неё слетает...

поле у меня одно с таким названием... название на латинском

 

[Klido]

TIA
как-то забылось, но мож порекомендуешь как

illegual function call,

обойти? а то что-то никак не пойму чем помочь себе :KillMe:

 

[hosm]

Klido где-то накосячил с параметрами? (у меня такое валилось при ошибочном (некорректном) значении фактических параметров, передаваемых в ф-цию)

 

[Klido]

OKEN
дык там параметров-то раз-два и всё... понятно, что как-то не так - времени вникнуть не было - на днях разберусь, а то тема подвисла....
хотя сейчас интереснее подход Ника по ЭЦП -

Ссылка скрыта от гостей

как-то прозрачнее, чем дергать API....