FiveTech Software tech support forums

viewtopic.php?f=3&t=36667&p=218689&hilit=syswait&sid=baaa9792d603f7acacf7427eeacfd234#p218689

I tested your suggestion with syswait in a loop, and it's consuming 25% of the CPU.

Otto wrote:Hello Charles,

In the past, I had some problems with SysWait().

I think you should use a timer.

viewtopic.php?f=3&t=36667&p=218689&hilit=syswait&sid=baaa9792d603f7acacf7427eeacfd234#p218689

I tested your suggestion with syswait in a loop, and it's consuming 25% of the CPU.

I can't recall precisely, but I believe it blocks the program.

Best regards,
Otto

Code: Select all  Expand view

    ::bOldBind := ::oWeb:bOnBind
    ::oWeb:bOnBind := { | cJson, cCalls, ... | ::GetBind( cJson, cCalls, ... ) } //<-ESTOS SON LOS QUE GENERABAN EL ERROR

    cEval := STRTRAN( cEval, "$QUERY$", cQuery )
   
    ::cReturn := ""
 

leandro wrote:Listo ya logre integrar la clase a la aplicación, parece que el problema eran los puntos suspensivos que tiene código, según lo visto no son compatibles con xharbour.

Code: Select all  Expand view

    ::bOldBind := ::oWeb:bOnBind
    ::oWeb:bOnBind := { | cJson, cCalls, ... | ::GetBind( cJson, cCalls, ... ) } //<-ESTOS SON LOS QUE GENERABAN EL ERROR

    cEval := STRTRAN( cEval, "$QUERY$", cQuery )
   
    ::cReturn := ""
 

Por otro lado, Antonio, esta clase tambien va a ser incluida en el nuevo Build de FW?

leandro wrote:Listo ya logre integrar la clase a la aplicación, parece que el problema eran los puntos suspensivos que tiene código, según lo visto no son compatibles con xharbour.

Code: Select all  Expand view

    ::bOldBind := ::oWeb:bOnBind
    ::oWeb:bOnBind := { | cJson, cCalls, ... | ::GetBind( cJson, cCalls, ... ) } //<-ESTOS SON LOS QUE GENERABAN EL ERROR

    cEval := STRTRAN( cEval, "$QUERY$", cQuery )
   
    ::cReturn := ""
 

Por otro lado, Antonio, esta clase tambien va a ser incluida en el nuevo Build de FW?

Code: Select all  Expand view

FUNCTION GetOuterHtml( oDlg  )
   LOCAL cStr
   LOCAL nCounter := 0
   LOCAL lOk  := .f.

   oWebVw2 := TWebView():New( , oDlg:hWnd )
   oWebVw2:Navigate( "https://login.yahoo.com/" )

   SysWait()
   Sleep(3000)
   SysWait()
   
   WHILE .T.
     
      ++nCounter
      cStr := AWait_QuerySelector( oWebVw2, "document.readyState", 3000 )  

      IF cStr == "complete"
         lOk := .t.
         EXIT
      ENDIF      

      SysWait()

      IF nCounter == 10
         EXIT
      ENDIF  

   ENDDO

   IF !lOk
      MsgStop("Timeout! Try again")
      RETURN NIL
   ENDIF

   AWait_SetValue( oWebVw2, "#login-username", "leandro arevalo")
   AWait_Click( oWebVw2, "#login-signin" )

RETURN NIL
 

leandro wrote:Charles de momento hicimos funcionar tu ejemplo...

En el transcurso de la semana voy a empezar a usar la clase mas a fondo. Apenas tenga otra imagen con lo que hicimos tambien te la hare llegar.

Muchas gracias por el aporte

Code: Select all  Expand view

FUNCTION GetOuterHtml( oDlg  )
   LOCAL cStr
   LOCAL nCounter := 0
   LOCAL lOk  := .f.

   oWebVw2 := TWebView():New( , oDlg:hWnd )
   oWebVw2:Navigate( "https://login.yahoo.com/" )

   SysWait()
   Sleep(3000)
   SysWait()
   
   WHILE .T.
     
      ++nCounter
      cStr := AWait_QuerySelector( oWebVw2, "document.readyState", 3000 )  

      IF cStr == "complete"
         lOk := .t.
         EXIT
      ENDIF      

      SysWait()

      IF nCounter == 10
         EXIT
      ENDIF  

   ENDDO

   IF !lOk
      MsgStop("Timeout! Try again")
      RETURN NIL
   ENDIF

   AWait_SetValue( oWebVw2, "#login-username", "leandro arevalo")
   AWait_Click( oWebVw2, "#login-signin" )

RETURN NIL
 

Code: Select all  Expand view

<input id='txt_cod' data-dvr='8'>777777</input>
 

leandro wrote:Charles buenas noches como estas?

Que pena molestarte, pero nos surge la necesidad de eliminar algunos de los elementos DOM, no se si ya esta contemplado?

Al mismo tiempo tambien necesitamos recuperar algunos de los atributos de las etiquetas, no se si ya lo tengas implementado?, para el caso en cuestión, necesitamos recuperar y tambien actualizar el atributo data-dvr del input .

Code: Select all  Expand view

<input id='txt_cod' data-dvr='8'>777777</input>
 

De antemano gracias