Error al cargar página TDockPnel
Posted: Wed Aug 24, 2022 1:51 am
Hola buenas noches para todos, estoy cargando una pagina al inicio de la aplicación, la cual muestra cierta información de interés para nuestros usuarios, apoyándonos en la clase TDockPnel de nuestro querido amigo Cristobal, en algunas ocasiones el internet tarda un poco en descargar la información, cuando el usuario completa los datos de inicio de sesión y hace clic en aceptar para validar el ingreso, y no se ha completado la descarga de la página, se muestra el siguiente error:
Como puedo hacer para controlar el ingreso de datos hasta después que se descargue totalmente la página. o como controlar el error con un TRY CATCH.
De antemano gracias
Como puedo hacer para controlar el ingreso de datos hasta después que se descargue totalmente la página. o como controlar el error con un TRY CATCH.
De antemano gracias
Code: Select all | Expand
********************************************
*Mostramos la información interes pagina web
********************************************
Function MuetraInfoWeb(oP, nT, nL, nH, nW, hInfoCnta)
Local cUrl := "https://hymplus.com/publi/"
Local oActiveX, oHttp, oActiveXdo
DeleteUrlCacheEntry( cUrl )
oActiveX := TActiveX():New( oP, "Shell.Explorer.2", nT, nL, nW, nH )
oActivex:Silent := .T.
oActiveX:lVisible := .T.
//oActiveX:Do( "Navigate", cUrl )
oActiveX:Navigate2( cUrl )
oActivex:SetFocus()
WHILE oActivex:Busy //ESTA ES LA LINEA DEL ERROR
SysWait(.2)
ENDDO
oActiveXdo := oActiveX:Document()
oHttp := oActiveX:GetProp( "Document" )
IF Empty( oHttp )
MsgInfo( "Problemas al cargar la info", ;
"Problemas al cargar la info" )
RETURN( .F. )
ENDIF
Return oActiveX
