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

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

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

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

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

<index><STRONG>Как программно создать гиперссылку?</STRONG> <DIV cl

  • Автор темы vvlad
  • Дата начала
V

vvlad

Hi all!
Помогите разобраться.
Мне необходимо по нажатию кнопки в RT поле (body в форме memo) создавать гиперссылку.

Если делать это "руками", то нужного мне результата можно добиться так:
Выделяю текст в RT поле, жму Create/Hotspot/Link Hotspot, указываю тип содержимого "урл",
указвыаю значение "\\server\share\file1".

Не могу придумать, как реализовать создание такого хотспота программно.

Есть идеи? Направьте пож. меня в нужное русло....

Спасибо!
 
O

Ogion7

Попробуй так -- Link hotspot сделай с ким нибудь условием скрытия. Сделай скрытое поле, в которое будеш записывать URL. В хотспоте в свойствах Value укажи это поле. На кнопку вешаеш перкатывание URL куда следует, и в коде той же кнопки делаеш так чтобы условие скрытие было false.
 
V

vvlad

Гм...
Можно конечно и так, но этот вариант подразумевает наличие готового хотспота, чего не хотелось бы...

В R5, при сохранении документа по форме "Memo" в почтовой базе есть такая фича:
на любой текст вида "http://xxx.xxx" после сохранения дока накладывается хотспот
с урлом "http://xxx.xxx". Не пойму как это реализовано...

Это в как раз то, что мне нужно...как бы этот код найти...
 
O

Ogion7

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

С потовой базы снял копию, открыл в дизайнере. Ниче не понял :) Может отладчик поможет...
 
G

Guest

А подскажите как запустить отладчик в лотусе, ксати :unsure:
 
V

vvlad

<!--QuoteBegin-Ogion7+21:02:2007, 17:54 -->
<span class="vbquote">(Ogion7 @ 21:02:2007, 17:54 )</span><!--QuoteEBegin-->Создать хотспотлинк в коде не выйдет...[/quote]

Вышло :)
Только немного через одно место, но зато работает!

Если кому интересно - вот код кнопки, которая создает Hotspotlink на указанный файл в текущем RT поле:
Код:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
filelink = workspace.openFileDialog(False, "Выберите файл", "", "c:\", "")
If Isempty(filelink)Then
Exit Sub
End If
fileNum% = Freefile()
fileName = Environ("Temp") & "\temp.html"
Open fileName For Output As fileNum%
Print #fileNum%, |<a href="|+filelink(0)+|">|+filelink(0)+|</a>|
Close FileNum%
Call uidoc.Import("HTML file", fileName)
End Sub
 
O

Ogion7

Но интересней было бы явно создать хотспот :ph34r:
 
Мы в соцсетях:

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