04.04.2024 13:55
HCL Domino na NAS QNAP (1)
20.02.2024 10:34
Vložení přílohy do dokumentu MS Word (3)
14.02.2024 20:54
Problěmy s diakritikou. (4)
06.02.2024 17:34
AI pomocnici
15.01.2024 10:16
Export do pdf souboru (1)
12.01.2024 23:11
Agent přestává fungovat (1)
18.11.2023 06:42
RTF - Computed (2)
19.10.2023 13:00
Trápila mě pomalost, s jakou se zobrazovaly webovské stránky, jejichž větší část byla generovaná LotusScriptem ve WebQueryOpen eventu a výsledek generace ukládán do Computed for display pole typu Text.
Vylučovací metodou padlo podezření postupně až na vlastní přiřazení:
HTMLKod$ = "tohle se vygenerovalo"
Set doc=session.DocumentContext
doc.kod = HTMLKod$
A v posledním řádku byl právě ten problém - jeho vykonání probíhá PŘÍŠERNĚ pomalu. Nevím čím je to způsobeno (server Domino 5.0.6a na Linuxu RedHat 6.1), ale stejný výsledek jsem dostal i na jiných serverech.
Řešení bylo jednoduché: typ pole se změnil na RichText a kód pak vypadal následovně:
Dim richStyle As NotesRichTextStyle
HTMLKod$ = "tohle se vygenerovalo"
Set doc=session.DocumentContext
Set richStyle = session.CreateRichTextStyle
Dim richText As New NotesRichTextItem(doc, "kod")
richStyle.PassThruHTML = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText(HTMLKod$)
richStyle.PassThruHTML = False
Call richText.AppendStyle(richStyle)
Poslední dva řádky vám možná přijdou zbytečné, ale bez nich se občas obsah pole "kod" zobrazí ne jako PassThruHTML, ale "normálně" - netuším proč tomu tak je, ale ty dva řádky jsou prostě jistotou.
A výsledek ? U cca 30kB kódu zhruba třetinová až pětinová doba přiřazení.
Autor: Zdeněk Michálek
Datum: 28.03.2001
Sdílet článek Seznam komentářů
Zatím nebyl přidán žádný komentář. Buďte první!