Error al cargar página TDockPnel

[leandro]

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

Code: Select all  Expand view

********************************************
*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
 

[Antonio Linares]

Estimado Leandro,

En vez de usar SysWait( .2 ) prueba con Sleep( 30 )

[leandro]

Antonio gracias por responder, al colocar la opción como lo sugieres, la aplicación se bloquea.

[Antonio Linares]

Pues entonces prueba a aumentar el valor usado en SysWait()

gracias