Toggle sidebar

Линк на фотку в РТ поле

  • Автор темы Автор темы Kizarek86
  • Дата начала Дата начала
Sandr
если несложно сделай БДху с 1 формой и реализованным кодом, и сюда плиз кинь...посмотрю...мож в настройках базы косяки какието
 
Вот.. исправлен Ваш код... Используйте на здоровье :)

Код: 
Sub Click(Source As Button)
On Error Goto errhand

Dim ws As New NotesUIWorkspace
Dim uidocST As NotesUIDocument
Dim docST As NotesDocument
Dim db As NotesDatabase
Dim s As New NotesSession
Dim unid As String
Dim Name1 As String
Dim fn As Variant

Set db = s.CurrentDatabase
Set uidocST=ws.CurrentDocument
Set docST = uidocST.Document

fn= ws.OpenFileDialog(False, "Выбрать файл", "GIF Image|*.gif", "c:\My Documents")
Forall FileName In fn
Name1 = FileName
End Forall
Call uidocST.GotoField("foto")
Call uidocST.Import("GIF Image", Name1)

unid = docST.universalID
Call uidocST.Save
uidocST.Document.ReplaceItemValue("SaveOptions", "0").savetodisk = False
Call uidocST.close
On Error Resume Next
Set docST = db.getdocumentByUNID(unid)
On Error Goto errhand
If Not docST Is Nothing Then
Dim RTItem As NotesRichTextItem
Set RTItem= New NotesRichTextItem(docST, "att" )
Call RTItem.EmbedObject(EMBED_ATTACHMENT , "", Name1) ' крепим аттачмент к темповому документу


Call docST.save(True, False)

Call ws.EditDocument(True, docST)
Else
Msgbox "Не смогли получить документ!"
End If
exiting:
Exit Sub
errhand:
Msgbox "Ошибка " & Error & ", в строке " & Cstr(Erl)
Resume exiting
End Sub
 
Sandr
Хехе, почти нормально работает) Но если документ снова открыть, внести изменения и сохранить, то опять таже бяка получается)
 
kizarek

Если Вы делаете изменения, то прежде чем пихать что-то в РТ итемы сначала эти итемы удалите...
То есть не просто
Код: 
Set RTItem= New NotesRichTextItem(docST, "att" )
А:
Код: 
 Set RTItem = docST.GetFirstItem("att")
If not RTItem is nothing then Call RTItem.Remove
Set RTItem= New NotesRichTextItem(docST, "att" )

Аналогичную операцию делайте перед импортом.
Причем желательно, что бы при импорте второго РТитема уже небыло...
 
Sandr
Да в общем тоже самое и осталось...Добавляем картинку, закрываем документ.Открываем документ. вносим изменения закрываем. Открываем файл приатачен во всех РТ полях.
Код: 
On Error Goto errhand

Dim ws As New NotesUIWorkspace
Dim uidocST As NotesUIDocument
Dim docST As NotesDocument
Dim db As NotesDatabase
Dim s As New NotesSession
Dim unid As String
Dim Name1 As String
Dim fn As Variant

Set db = s.CurrentDatabase
Set uidocST=ws.CurrentDocument
Set docST = uidocST.Document

fn= ws.OpenFileDialog(False, "Выбрать файл", "GIF Image|*.gif", "c:\My Documents")
Forall FileName In fn
Name1 = FileName
End Forall
Dim RTItem As NotesRichTextItem
Call uidocST.GotoField("Foto")
Call uidocST.FieldClear("Foto" )
Call uidocST.Import("GIF Image", Name1)

unid = docST.universalID
Call uidocST.Save
uidocST.Document.ReplaceItemValue("SaveOptions", "0").savetodisk = False
Call uidocST.close
On Error Resume Next
Set docST = db.getdocumentByUNID(unid)
On Error Goto errhand
If Not docST Is Nothing Then
Set RTItem = docST.GetFirstItem("Att")
If Not RTItem Is Nothing Then Call RTItem.Remove
Set RTItem= New NotesRichTextItem(docST, "Att" )
Call RTItem.EmbedObject(EMBED_ATTACHMENT , "", Name1) ' крепим аттачмент к темповому документу
RTItem.Remove

Call docST.save(True, False)

Call ws.EditDocument(True, docST)
Else
Msgbox "Не смогли получить документ!"
End If
exiting:
Exit Sub
errhand:
Msgbox "Ошибка " & Error & ", в строке " & Cstr(Erl)
Resume exiting
 
Импортированную картинку нельзя вытащить как MIME объект?
 
Constantin A Chervonenko
не подскажешь как вставаить картинку как объект MIME, ничего подходящего немогу найти(
 
Документ создаётся фотка добавляется, если код на кнопке во вьюхе:
Код: 
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Set db = s.CurrentDatabase
s.ConvertMIME = False ' Do not convert MIME to rich text
Set doc = db.CreateDocument
Call doc.ReplaceItemValue("Form", "Form_main")
Set body = doc.CreateMIMEEntity
Set header = body.CreateHeader("Foto")
Call header.SetHeaderVal("MIME image from GIF file")
Set stream = s.CreateStream
If Not stream.Open("e:\1\2.gif", _
"binary") Then
Messagebox "e:\1\2.gif",, _
"Open failed"
Goto ExitSub
End If
If stream.Bytes = 0 Then
Messagebox "e:\1\2.gif",, _
"File has no content"
Goto ExitSub
End If
Call body.SetContentFromBytes(stream, _
"image/gif", ENC_IDENTITY_BINARY)
Call stream.Close
Call doc.Save(True, True)
ExitSub:
s.ConvertMIME = True ' Restore conversion

Если тот же код висит на кнопке в документе, и заменяем
Код: 
	Set doc = db.CreateDocument
Call doc.ReplaceItemValue("Form", "Form_main")
на
Код: 
	Set doc=ws.CurrentDocument.Document
то фотка не добавляется. в чём тут проблема?
 
Я не вижу в вашем коде определения ws :) оно есть?
И еще, добавте обработчик ршибок.. полюбому вываливается по ошибке, а Вы этого не замечаете...
 
kizarek сказал(а):
Constantin A Chervonenko
не подскажешь как вставаить картинку как объект MIME, ничего подходящего немогу найти(
Нажмите, чтобы раскрыть...
Код: 
	session.ConvertMime = False

Set mimeRoot = doc.CreateMIMEEntity(itemName)
Set multiStream = session.CreateStream()
multiStream.WriteText "This is a multipart message in MIME format."
multiStream.Position = 0
Call mimeRoot.SetContentFromText(multiStream,"multipart/related",ENC_NONE)
multiStream.Close

Set mime = mimeRoot.createChildEntity()
Set htmlStream = session.CreateStream()
htmlStream.writeText "<br><img src=cid:importedimage>"
htmlStream.Position = 0
Call mime.setContentFromText(htmlStream, "text/html;charset=""US-ASCII""", ENC_NONE)
htmlStream.close

Set mime = mimeRoot.createChildEntity()
Set header = mime.CreateHeader("Content-ID")
Call header.SetHeaderVal("<importedimage>")
Set header = mime.CreateHeader("Content-Transfer-Encoding")
Call header.setHeaderVal("Base64")
Call mime.setContentFromBytes(pictureStream, imType, ENC_IDENTITY_BINARY)
Call mime.encodeContent(ENC_BASE64)
Что-то вроде этого
 
Sandr
Код: 
	On Error Goto errhand
1.	Dim session As New NotesSession
2.	Dim ws As New NotesUIWorkspace
3.	Dim db As NotesDatabase
4	Dim docST As NotesDocument
5	Dim body As NotesMIMEEntity
6	Dim stream As NotesStream
7	Set db = session.CurrentDatabase
8	session.ConvertMIME = False ' Не конвертируем данные в полу...
9	Set docST = ws.CurrentDocument.Document
10	Call docST.ReplaceItemValue("Form", "Form_Izdel") 'задаём имя формы, непонятно зачем правда))
11	Set body = docST.CreateMIMEEntity 'создаём NotesMIMEEntuty d ljrevtynt
12	Set header = body.CreateHeader("Att") 'создаём поле....а как привязать к существующему?или надо как то иначе сделать? body.GetNthHeader("Att") 
'Set header = body.GetNthHeader("Att") '
13	Call header.SetHeaderVal("MIME image from GIF file") 'устанавливаем ценность нашего поля
14	Set stream = session.CreateStream
15	If Not stream.Open("e:\1\2.gif","binary") Then
16		Messagebox "e:\1\2.gif",, "Open failed"
17		Goto ExitSub
18	End If
19	If stream.Bytes = 0 Then
20		Messagebox "e:\1\2.gif",,	"File has no content"
21		Goto ExitSub
22	End If
23	Call body.SetContentFromBytes(stream,"image/gif", ENC_IDENTITY_BINARY) 'пишем данные в поле
24	Call stream.Close
25	Call docST.Save(True, True)
26 ExitSub:
27	session.ConvertMIME = True ' Устанавливаем преобразование...
28 exiting:
29	Exit Sub
30 errhand:
31	Msgbox "Ошибка " & Error & ", в строке " & Cstr(Erl)
32	Resume exiting

Поле "Att" - есть, типа Текст РТФ, с галкой хранить данные как MIME
При певом исполнении кода ошибок нету, но и в поле "Att" ничего не появляется...в свойствах документа висит "body" в котором судя по всему и есть картинка...
При повторном исполнении лезет ошибка что поле "Att" есть уже...понятно почему...но непонятно почему он невидит его при первом исполнении кода, и не кидает туда данные...

именно создаётся поле "body", и картика в него кидается...если после операции ручками добавить поле "body"...то картинка там висит...
 
здравствуйте
у меня схожая проблема

1)есть одна форма "News"
там имеется рт поле "Foto", сюда приАТТАЧиваю изображение, сохраняю и закрываю документ(естественно все происходит в лотусе)
2)есть вторая форма для веб "AllNews"
там имеется текстовое вычисляемое поле "Body", по двум сторонам "Body" стоят теги <html> и </html> через пас сру html
на WebQueryOpen формы "AllNews"
повесил агент
который должен делать следубщее
Код: 
Sub Initialize
Dim ses As NotesSession
Dim curdb As NotesDatabase
Dim curdoc As NotesDocument
Dim dcol As NotesDocumentCollection
Dim tdoc As NotesDocument
Dim rti As NotesRichTextItem
Dim arr
Dim ss As String
'=
Set ses = New NotesSession
Set curdb=ses.CurrentDatabase
Set curdoc=ses.DocumentContext
Set dcol=curdb.Search({Select Form="News"}, Nothing, 0)
If dcol.Count<=0 Then
Call curdoc.ReplaceItemValue("Body", "No news found!")
Exit Sub
End If
'=
Set tdoc=dcol.GetFirstDocument
While Not(tdoc Is Nothing)
'=
Set rti=tdoc.GetFirstItem("Foto")
If Not(rti Is Nothing) Then
If rti.Type=RICHTEXT Then
arr=rti.EmbeddedObjects
If Not(Isempty(arr)) Then
Forall obj In arr
If Not(obj Is Nothing) Then
If obj.Type=EMBED_ATTACHMENT Then
ss=ss+{<img src="Как отобразить obj????"><br>}
End If						
End If					
End Forall					
End If				
End If			
End If		
'=
Set tdoc=dcol.GetNextDocument(tdoc)
Wend
Call curdoc.ReplaceItemValue("Body", ss)
End Sub

Перелопатил эту тему несколько раз но
не мог найти как аттачмент-изображение отобразить
на другой форме в веб
 
Вот ещё какой момент....
В этом примере вынимается объект как in-line....разьве Import не вставляет объект такого типа? там экпортируется документ в XML...и ищем теги <gif>, куски которые в тегах данного вида экспортируются. Как вставить так картинку чтобы при выгрузке в XML были теги gif?....импорт их недаёт....
 
kizarek сказал(а):
Вот ещё какой момент....
В этом примере вынимается объект как in-line....разьве Import не вставляет объект такого типа? там экпортируется документ в XML...и ищем теги <gif>, куски которые в тегах данного вида экспортируются. Как вставить так картинку чтобы при выгрузке в XML были теги gif?....импорт их недаёт....
Нажмите, чтобы раскрыть...
так это же работа с картинками которые были внедрены с помощью File-Import
а у меня
yerke сказал(а):
1)есть одна форма "News"
там имеется рт поле "Foto", сюда приАТТАЧиваю изображение, сохраняю и закрываю документ(естественно все происходит в лотусе)
Нажмите, чтобы раскрыть...

правда есть один выход
хотя он мне не нравится:
аттач сливаю в локал и оттуда указываю <img src="unattached local file">
при этом я буду иметь аттач в базе и тот же файл в ситеме

неужели нету другого выхода
 
yerke

Все методы для подобной задачи извратные... Ваш еще очень даже ничего... :)
 
Sandr
Другими не получается....всё время куда то утыкаюсь))) А поджимает уже...(
пост 73 посмотри плиз...)
 
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Похожие темы

K
Writeup Разминка с JWT [writeup] по таску
Ответы
4
Просмотры
3 тыс.
CTF-соревнования и write-ups – Hackerlab, HTB, THM
Kot_oo
K
Marylin
  • Статья Статья
Статья ASM. Секреты эксплуатации структуры PEB
Ответы
0
Просмотры
3 тыс.
Новости кибербезопасности
Marylin
Marylin
K
Writeup Квантовый прорыв WriteUp — полный разбор CTF-задачи
Ответы
5
Просмотры
3 тыс.
CTF-соревнования и write-ups – Hackerlab, HTB, THM
BAO
BAO
Marylin
  • Статья Статья
Статья ASM. Программирование ОС [2] – ядро Kernel
Ответы
0
Просмотры
3 тыс.
Новости кибербезопасности
Marylin
Marylin

Hacker Lab

Категории

CTF и практические задания
128
Linux и инфраструктура
32
Анонимность и приватность
121
Инструменты пентестера
169
Искусственный интеллект и ИБ
4
Кибербезопасность
692
Конкурсы и активности
62
Криптография и шифрование
53
Мобильная безопасность
42
Новости и события
143
Программирование для ИБ
227
Работа и обучение в ИБ
123
Сетевые технологии
24
Форензика и OSINT
192

Наши курсы

Пользователи онлайн

Всего: 1 150 (пользователей: 28, гостей: 1 122)

Статистика форума

Темы
50 769
Сообщения
345 523
Пользователи
138 829
Новый пользователь
scabpahater1988
Верх Низ
Назад