• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Интересная Задача Часть 2

  • Автор темы beloff
  • Дата начала
B

beloff

Всем привет. Вот часть 2 Интересной задачи (краткое описание 1 части - link removed.
Руководству желательно в коммуникативных целях видеть на этой карточке просмотра телефонов и самого абонента в виде его фотографии. Фотографии абонентов хранятся не в доке штатного расписания (где хранятся тел. данные), а в учетной карточке сотрудника (связана через поле с доком штатного расписания). Так вот, вроде все сделал, вроде работает - но как-то странно. Когда прогоняю дебаггером пошагово - все работает зер гут, фотка вставляется. Когда дебагер вырублен и все работает в штатном режиме - фотка вставляться не желает категорически. С таким чудом встречаюсь в первый раз, может кто чего подскажет толкового. Подробности под катом<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">подробности</div></div><div class="sp-body"><div class="sp-content">
сам код
Код:
Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim wdoc As NotesDocument
Dim view As NotesView
Dim docrc As NotesDocument
Set db = ses.CurrentDatabase
Dim pitem As NotesRichTextItem
Dim rt As NotesRichTextItem

Set doc = db.getdocumentbyid(source.CaretNoteID)
Set wdoc = db.CreateDocument
Set view = db.getview("2srchRCUNID")
wdoc.Pers_FullName_dsp = doc.Post_PersonName
wdoc.Pers_phone = doc.Pers_phone
wdoc.Pers_stat = doc.Pers_stat
wdoc.Pers_mobile = doc.Pers_mobile
wdoc.Pers_object = doc.Pers_object
wdoc.Pers_room = doc.Pers_room
wdoc.Corp_Department = doc.Corp_Department
wdoc.Corp_Position = doc.Corp_Position
key = doc.RC_UID(0)
Set docrc = view.GetDocumentByKey(key)
If Not docrc Is Nothing Then
Set rt = New NotesRichTextItem(wdoc,"body")
Set pitem = docrc.GetFirstItem("RC_Photo")
Call rt.AppendRTItem(pitem)
End If
Continue = False
Call ws.DialogBox("DLGpreview",True,True,True,True,False,True,"Просмотр",wdoc,True,True)
End Sub
просмотр с фоткой когда пошагово (я красивый) с_фоткой.jpg
просмотр как обычно фотки нет без_фотки.jpg
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Добавь Call rt.Update() после Call rt.AppendRTItem(pitem)
 
B

beloff

спасибо большое, работает. Чтобы я без вас делал...
 

NickProstoNick

Статус как статус :)
Lotus Team
22.08.2008
1 851
27
BIT
0
можно сделать по другому... не тащить фото в свой документ.
Я делаю RT-поле в формате MIME и заношу туда http-ссылку на фотку из сторонней базы
 
B

beloff

NickProstoNick
что-то больно сложно, мне до таких глубин познаний далеко еще
 

NickProstoNick

Статус как статус :)
Lotus Team
22.08.2008
1 851
27
BIT
0
А что сложного? Не сложнее того что написал ты.
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 933
609
BIT
178
 
B

beloff

lmike
ну как по мне - то что я написал проще

PS Камрады, такая вещь. Вставил новую иконку БД через дезигнер (у меня 8,5,3), так вот, у всех у кого 8,5 и выше версия клиента - видится иконка нормально, у кого старше Лотус - видится старая. Поправляемо или только через старый дезигнер пробовать делать?
 
B

beloff

Default Application Icon меняется только через Едитор, др. кнопок нету
 

savl

Lotus Team
28.10.2011
2 597
310
BIT
160
beloff
Если менял файлом png, то не поможет.
До версии 8.5.2 будет тянуться Icon 7-

Есть вариант открыть твой иконку Paint'ом, увеличить и перерисовать вручную или копировать :)
 

Вложения

  • iconEdit.png
    iconEdit.png
    7,1 КБ · Просмотры: 502
B

beloff

savl
да, был пнг. Решил вопрос - открыл в фотожопе, скопировал, вставил в лотус. Работает. Всем спасибо. Из пайнта тянуло галимо, какое-то искажение цветов было
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!