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
********************************************
*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 oActiveXSaludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
