1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33



lcXml = mytable.mymemo
lnLoadTimeout = 10       && seconds
WITH Thisform.oWeb.OBJECT
	.Navigate("about:blank")
	* Wait for load completion
	lnStartSeconds = SECONDS()
	DO WHILE .ReadyState <> 4 ;
			AND (SECONDS()-lnStartSeconds <= lnLoadTimeout )
		DOEVENTS
	ENDDO
	* Load IE default XML style sheet
	loXSL = CREATEOBJECT( "MSXML2.DOMDocument.3.0" )
	loXSL.async = .T.      &&required
	loXSL.load("res://msxml3.dll/DEFAULTSS.XSL")
	* Load XML
	loXML = CREATEOBJECT( "MSXML2.DOMDocument.3.0" )
	loXML.loadXML( lcXml )
	* Transform XML to HTML
	lcHtml = loXML.transformNode(loXSL)
	* Load HTML into Web Browser Control
	.Document.Open()
	.Document.Write(lcHtml)
	.Document.Close()
	* Wait for load completion
	lnStartSeconds = SECONDS()
	DO WHILE .ReadyState <> 4 ;
			AND (SECONDS()-lnStartSeconds <= lnLoadTimeout )
		DOEVENTS
	ENDDO
ENDWITH