Information générale
Catégorie:
Contrôles ActiveX en VFP
Titre:
Internet explorer application x webbroser
Versions des environnements
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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement