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

@Kyzoryk86 · Регистрация: 16.07.2007

Author24 — интернет-сервис помощи студентам

Нужно получить ссылку на фотку, которую помещаем в РТ поле.Как сделать? можно ли из РТ поля получить её? или же как поймать адрес фотки которую закидываем в РТ поле при выборе файла?

@Kyzoryk86 · 05.03.2008, 11:08

Reload не то?)

05.03.2008, 11:09

Сообщение от kizarek

Программер
Да, ту разобрался.

Код

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

Set RTItem= New NotesRichTextItem(uidocST.Document, "Att" )
Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName)  крепим аттачмент
End Forall

Тут вот косяк вылез....файл атачится к полю "Att" и атачится к полю "Foto"....хрен пойми почему.

Хм, а почему не сохраняешь док в конце ?

@Somdr · 05.03.2008, 11:11

Сообщение от kizarek

Reload не то?)

в случае с РТ полем - не то Только сохранить, закрыть, открыть...

05.03.2008, 11:11

А вообще переоткрыть конечно нужно, атачи сразу не увидишь

@Omh · 05.03.2008, 11:18

Конечно, хранить 2 версии одного файла в документе (импортнутую и аттаченную) - не самый клёвый выход...

@Somdr · 05.03.2008, 11:20

Omh
Человек наверняка экспериментирует Врядли в конце останутся 2 версии одного файла...

@Kyzoryk86 · 05.03.2008, 11:23

Sandr
Ну ищю варианты как можно сделать... почему в оба поля то вставляется атач?)

@Somdr · 05.03.2008, 11:34

Сообщение от kizarek

Sandr
Ну ищю варианты как можно сделать... почему в оба поля то вставляется атач?)

В смысле?
Вы же в оба сами вставляете

тут:

Код

        Call uidocST.Import("GIF Image", FileName)

и тут:

Код

        Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName)  крепим аттачмент

@Kyzoryk86 · 05.03.2008, 11:38

Sandr

Код

Call uidocST.Import("GIF Image", FileName)

мы тут разьве атачим файл?

05.03.2008, 11:43

Так что, картинка в доке не появляется, а аттача аж два ?

@Kyzoryk86 · 05.03.2008, 11:47

Картинка должна появится в поле "foto"

Код

        Call uidocST.GotoField("Foto")
Call uidocST.Import("GIF Image", FileName)

что она и делает.

а атач в другом поле (Att), чтобы он был но пользователь его не видел.

Код

        Set RTItem= New NotesRichTextItem(uidocST.Document, "Att" )
Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName)  крепим аттачмент

а атачит в оба поля.

@Somdr · 05.03.2008, 11:51

импорт тоже аттачит файл

@Kyzoryk86 · 05.03.2008, 11:57

пля(

а мона сделать чтобы там только картинка была? без иконки приатаченого файла?)

05.03.2008, 12:02

Чтобы пользователь не видел аттача, просто скрой его от лотуса..А вот почему аттач появляется в обоих полях, ума не приложу..

Только предусмотри удаление предыдущего RTF с атачем каждый раз при нажатии кнопки "Добавить", чтобы не множить их в документе

@Kyzoryk86 · 05.03.2008, 12:04

Программер
Ну Sandr грит что Импорт тоже атачит...хотя я незаметил)

кстати во все поля РТ вставляет атачи...чё то я косячу где то...

@Somdr · 05.03.2008, 12:07

Сообщение от kizarek

пля(

а мона сделать чтобы там только картинка была? без иконки приатаченого файла?)

Нет никакой иконки при этом...

@Kyzoryk86 · 05.03.2008, 12:10

Sandr
ну так я про что...у меня то есть...
это вот эта бяка атачит ко всем полям РТ, а не к "Att" файл

Код

 Set RTItem= New NotesRichTextItem(uidocST.Document, "Att" )
Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName)

05.03.2008, 12:23

Сообщение от kizarek

Sandr
ну так я про что...у меня то есть...
это вот эта бяка атачит ко всем полям РТ, а не к "Att" файл

Код

 Set RTItem= New NotesRichTextItem(uidocST.Document, "Att" )
Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName)

Улучил сейчас свободную минутку и скопировал твой код себе на кнопку...Все работает, как по маслу !
Ниче не пойму, что у тебя стряслось

@Kyzoryk86 · 06.03.2008, 09:12

код кнопки:

Код

    Dim ws As New NotesUIWorkspace
Dim uidocST As NotesUIDocument
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)
Dim RTItem As NotesRichTextItem
Set RTItem= New NotesRichTextItem(uidocST.Document, "att" )
Call RTItem.EmbedObject(EMBED_ATTACHMENT , "", Name1)  крепим аттачмент
unid = docST.univaersalID
Call docST.save(True, False)
Call uidocST.Save
Call uidocST.close
On Error Resume Next
Set docST = db.getdocumentByUNID(unid)
Call ws.EditDocument(True, docST)

Поле "foto" - Текст РТФ, стоит галка "Хранить данные в HTML и MIME"
Поле "att" - тоже самое...

А можно файл к документу атачить а не к полю?мб это поможет)

Кстати, атачит вообще непонятно куда....просто ярлык висит во всех рт полях...если хоть из 1 поля удалить, удаляется везде после переоткрытия.

@Somdr · 06.03.2008, 10:29

Аттачить к документу можно.
notesDocument.EmbedObject

ЗЫ: Что-то непонятное у Вас творится.. попытался воспроизвести - не вышло такой глюки...

@Kyzoryk86 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 849
	05.03.2008, 11:08	41
	Reload не то?) 0

@Omh 0 / 0 / 1 Регистрация: 30.06.2007 Сообщений: 2,153
	05.03.2008, 11:18	45
	Конечно, хранить 2 версии одного файла в документе (импортнутую и аттаченную) - не самый клёвый выход... 0

@Somdr 0 / 0 / 0 Регистрация: 19.07.2007 Сообщений: 1,098
	05.03.2008, 11:20	46
	Omh Человек наверняка экспериментирует Врядли в конце останутся 2 версии одного файла... 0

@Somdr 0 / 0 / 0 Регистрация: 19.07.2007 Сообщений: 1,098
	05.03.2008, 11:34	48
	Сообщение от kizarek Sandr Ну ищю варианты как можно сделать... почему в оба поля то вставляется атач?) В смысле? Вы же в оба сами вставляете тут: Код Call uidocST.Import("GIF Image", FileName) и тут: Код Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName) крепим аттачмент 0

@Kyzoryk86 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 849
	05.03.2008, 11:38	49
	Sandr Код Call uidocST.Import("GIF Image", FileName) мы тут разьве атачим файл? 0

@Kyzoryk86 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 849
		1
	Линк на фотку в РТ поле 20.02.2008, 10:23. Показов 120745. Ответов 90 Метки нет (Все метки) Нужно получить ссылку на фотку, которую помещаем в РТ поле.Как сделать? можно ли из РТ поля получить её? или же как поймать адрес фотки которую закидываем в РТ поле при выборе файла? 0

@Somdr 0 / 0 / 0 Регистрация: 19.07.2007 Сообщений: 1,098
	05.03.2008, 11:11	43
	Сообщение от kizarek Reload не то?) в случае с РТ полем - не то Только сохранить, закрыть, открыть... 0

@Kyzoryk86 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 849
	05.03.2008, 11:23	47
	Sandr Ну ищю варианты как можно сделать... почему в оба поля то вставляется атач?) 0


	05.03.2008, 11:43	50
	Так что, картинка в доке не появляется, а аттача аж два ?

@Kyzoryk86 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 849
	05.03.2008, 11:47	51
	Картинка должна появится в поле "foto" Код Call uidocST.GotoField("Foto") Call uidocST.Import("GIF Image", FileName) что она и делает. а атач в другом поле (Att), чтобы он был но пользователь его не видел. Код Set RTItem= New NotesRichTextItem(uidocST.Document, "Att" ) Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName) крепим аттачмент а атачит в оба поля. 0

@Somdr 0 / 0 / 0 Регистрация: 19.07.2007 Сообщений: 1,098
	05.03.2008, 11:51	52
	импорт тоже аттачит файл 0

@Kyzoryk86 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 849
	05.03.2008, 11:57	53
	пля( а мона сделать чтобы там только картинка была? без иконки приатаченого файла?) 0


	05.03.2008, 12:02	54
	Чтобы пользователь не видел аттача, просто скрой его от лотуса..А вот почему аттач появляется в обоих полях, ума не приложу.. Только предусмотри удаление предыдущего RTF с атачем каждый раз при нажатии кнопки "Добавить", чтобы не множить их в документе

@Kyzoryk86 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 849
	05.03.2008, 12:04	55
	Программер Ну Sandr грит что Импорт тоже атачит...хотя я незаметил) кстати во все поля РТ вставляет атачи...чё то я косячу где то... 0

@Somdr 0 / 0 / 0 Регистрация: 19.07.2007 Сообщений: 1,098
	05.03.2008, 12:07	56
	Сообщение от kizarek пля( а мона сделать чтобы там только картинка была? без иконки приатаченого файла?) Нет никакой иконки при этом... 0

	06.03.2008, 10:29

Опции темы

@Kyzoryk86 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 849
	05.03.2008, 12:10	57
	Sandr ну так я про что...у меня то есть... это вот эта бяка атачит ко всем полям РТ, а не к "Att" файл Код Set RTItem= New NotesRichTextItem(uidocST.Document, "Att" ) Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName) 0


	05.03.2008, 12:23	58
	Сообщение от kizarek Sandr ну так я про что...у меня то есть... это вот эта бяка атачит ко всем полям РТ, а не к "Att" файл Код Set RTItem= New NotesRichTextItem(uidocST.Document, "Att" ) Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", FileName) Улучил сейчас свободную минутку и скопировал твой код себе на кнопку...Все работает, как по маслу ! Ниче не пойму, что у тебя стряслось