DISKUSE
Tělo zprávy, jako MIME, se nezobrazí v RTX poli Bo... 
01.11.2019 12:14

Sametime (4)
25.10.2019 10:14

Zprávy v LotusScriptu 
11.09.2019 20:33

export vložených příloh z dokumentové knihovny 
05.08.2019 12:50

Kalkulačka  (1)
30.07.2019 13:19

Problém s polem From v mailech posílaných přes SMT... 
01.07.2019 16:30

ECL 
03.04.2019 16:10

Agent přestal fungovat (1)
18.03.2019 08:28


ŠKOLENÍ


REKLAMA


KOMENTÁŘE

Jak na generování HTML kódu ve WebQueryOpen eventu ?

Vytisknout článek

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.


Ne, nebylo to tím, že se vyhledávalo - prostě se jen spočetly údaje a vygeneroval se výsledek o délce nějakých 30 kB.

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í!