General information
Category:
ActiveX controls in VFP
Title:
Internet explorer application x webbroser
I can open aula01.htm in internetexplorer.application
*********************************************************************************************
lnLoadTimeout = 60 && seconds
loIE = Createobject("internetexplorer.application")
loIE.Visible = .T.
loIE.Navigate(SYS(5)+ CURDIR()+"aulas\"+ "aula01.htm")
* Wait for load to complete
lnSeconds = SECONDS()
DO WHILE (loIE.Busy OR loIE.ReadyState <> 4) ;
AND (SECONDS() - lnSeconds) < lnLoadTimeout
DOEVENTS
ENDDO
*************************************
But the same file in webbrowser does not open
"member document does not evaluate to an object"
*******************************************************
&& Load HTML into Web Browser Control
Thisform.olecontrol1.object.Document.Open()
Thisform.olecontrol1.object.Document.Write(loIE.Navigate(SYS(5)+ CURDIR()+"aulas\"+ "aula01.htm"))
Thisform.olecontrol1.object.Document.Close()
&& Wait for load completion
lnStartSeconds = SECONDS()
DO WHILE Thisform.olecontrol1.object.ReadyState <> 4 ;
AND (SECONDS()-lnStartSeconds <= lnLoadTimeout )
DOEVENTS
ENDDO
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only