Clipper On Line • Ver Tópico - Hb_IdleAdd x HwGui
Página 1 de 1

Hb_IdleAdd x HwGui

MensagemEnviado: 08 Jan 2018 21:14
por asimoes
Pessoal,

Tenho uma janela que queria usar Hb_IdleAdd() e não funciona, alguém sabe o porque ?

Att.

Hb_IdleAdd x HwGui

MensagemEnviado: 08 Jan 2018 21:27
por Claudio Soto

Hb_IdleAdd x HwGui

MensagemEnviado: 08 Jan 2018 21:33
por sygecom
Chefe,
Na Hwgui uso SET TIMER, será que não resolve ?

SET TIMER oTime OF oTelaPrincipal ID 9001 VALUE 5000 ACTION {|| SUA_ROTINA() } // roda a cada 5 segundos

FUNCTION SUA_ROTINA()

oTelaPrincipal:oTime := 0 // para o TIMER pra não acavalar uma execução em cima da outra
....
....
....
oTelaPrincipal:oTime := 5000 // recomeça o TIMER

RETURN(.T.)

Hb_IdleAdd x HwGui

MensagemEnviado: 08 Jan 2018 22:08
por Claudio Soto
La diferencia entre un Timer y un idle, es que el primero se ejecuta a un intervalo determinado siempre y cuando el SO no este ejecutando otra tarea, los timers son de baja prioridad para Windows, y el idle se ejecuta cuando el SO esta ocioso, es decir cuando el lazo de mensajes de Windows no esta recibiendo ni procesando ningún mensaje, se utilizan típicamente para hacer tareas en background para tratar de interferir lo menos posible con la ejecucion de la aplicación, esto se utiliza mucho en aplicaciones que requieren mucha velocidad como por ej el desarrollo de juegos y animaciones gráficas

Hb_IdleAdd x HwGui

MensagemEnviado: 08 Jan 2018 22:11
por JoséQuintas
Nessas horas que a multithread é interessante: executa mais de uma tarefa e pronto.

Hb_IdleAdd x HwGui

MensagemEnviado: 08 Jan 2018 22:35
por asimoes
Leonardo,

Eu poderia utilizar o SET TIMER, o que não estou entendendo é o Hb_IdleAdd não funcionar em uma janela HwGui, em uma janela GTXXX funciona.

Eu tenho um sistema que estou migrando aos poucos, a coisa se inverteu, antes era GTWVT agora é HwGui e ainda tem algumas telas GTWVT, no meu programa prinicipal (FUNCTION MAIN) legado da janela GTWVT uso Hb_IdelAdd e estava achando que tava funcionando e não está. Esse idle verifica de tempos em tempos se a conexão de rede está ativa entre outras coisas.

Hb_IdleAdd x HwGui

MensagemEnviado: 08 Jan 2018 22:58
por sygecom
Claudio Soto escreveu:La diferencia entre un Timer y un idle, es que el primero se ejecuta a un intervalo determinado siempre y cuando el SO no este ejecutando otra tarea, los timers son de baja prioridad para Windows, y el idle se ejecuta cuando el SO esta ocioso, es decir cuando el lazo de mensajes de Windows no esta recibiendo ni procesando ningún mensaje, se utilizan típicamente para hacer tareas en background para tratar de interferir lo menos posible con la ejecucion de la aplicación, esto se utiliza mucho en aplicaciones que requieren mucha velocidad como por ej el desarrollo de juegos y animaciones gráficas

Faz sentido, tem objetivos diferentes.

asimoes escreveu:Leonardo,

Eu poderia utilizar o SET TIMER, o que não estou entendendo é o Hb_IdleAdd não funcionar em uma janela HwGui, em uma janela GTXXX funciona.

Eu tenho um sistema que estou migrando aos poucos, a coisa se inverteu, antes era GTWVT agora é HwGui e ainda tem algumas telas GTWVT, no meu programa prinicipal (FUNCTION MAIN) legado da janela GTWVT uso Hb_IdelAdd e estava achando que tava funcionando e não está. Esse idle verifica de tempos em tempos se a conexão de rede está ativa entre outras coisas.


Não uso ela, mas olhando o tópico abaixo vi que tem um SET, tens ele ai ?
SET BACKGROUND TASKS ON
viewtopic.php?f=4&t=9969&p=57197&hilit=ocioso#p57197

Hb_IdleAdd x HwGui

MensagemEnviado: 08 Jan 2018 23:01
por asimoes
Estou me adaptando aos novos conceitos de Janela por evento, então para substituir o Hb_IdleAdd

METHOD Liga_Timer( oJanela, lLiga, nTime, bBlock, oTimer ) 

   IF lLiga
      SET TIMER &oTimer of oJanela VALUE nTime * 1000 ACTION bBlock
   ELSE
      oJanela:&oTimer:End()   
   ENDIF
   
RETURN Nil

Hb_IdleAdd x HwGui

MensagemEnviado: 09 Jan 2018 01:07
por Claudio Soto
asimoes escreveu:Eu poderia utilizar o SET TIMER, o que não estou entendendo é o Hb_IdleAdd não funcionar em uma janela HwGui, em uma janela GTXXX funciona.


Tal vez el problema se deba a que Hb ha implementado debido a su MV algunos conceptos convencionales (ej. Thread, Idle, etc ) de una forma un tanto particular que no sigue el estándar de los SO y es por eso que a veces no funciona de la forma que se espera cuando se trabaja con lib o funciones basadas en los SO. Hwg y las otras lib estan escritas de una forma que se ajustan a la funcionalidad del SO. Y esto se debe básicamente a dos cosas 1) que nacieron prácticamente al mismo tiempo que Hb cuando este sólo era practicamente un puñado de funciones de clipper totalmente orientado a consola y a manejar dbf (Hb nace en el 99 y las lib entre el 2001 y 2002) y 2) porque la única forma de sacarle el 100% de provecho a un SO es utilizarlo a nuestro favor y adaptarnos nosotras al SO y no a la inversa más ahun en un sistema basado en gráficos que necesita un muy buen rendimiento porque de por si los gráficos son lentos y si nos situamos a inicios del 2000 eran una carreta.

Si me preguntan porque creo que Hb ha implementado y sigue implementando cosas a su manera, desde mi humilde punto de vista es porque Hb se empecina a seguir implantando cosas al estilo DOS donde todo hera secuencial y lineal, esta es una solución muy sencilla para mantener en hb a los viejos Clipperos pero a su vez es una forma muy eficiente de no atraer a gente nueva, porque hay que desaprender un monton de cosas para poder adaptarse a Hb. Por ej como se le hace entender a alguien que conosca algo de Windows o Linux que en Hb los thread en realidad son thread pero que se comportan como si fuesen instancias diferentes del mismo programa, por qué un idle de Hb se refiere a la MV y no al idle del SO, como es que una clase no es una class y si una emulación visible (aunque muy ingeniosa) mediante funciones y por lo tanto no siempre se comporta como se espera en la teoría de clases, etc, etc

Hb_IdleAdd x HwGui

MensagemEnviado: 09 Jan 2018 07:07
por asimoes
Completando o que eu fiz:

Hb_ThreadStart() funciona neste caso.

::nTmpSistema := 300 // Verifica a cada 5 minutos

::Liga_Timer( oWin, .T., ::nTmpSistema, { || ::CheckLiveNet( oWin ) }, "oTimer" ) // USA O OBJETO SET TIMER

METHOD CheckLiveNet( oWin )
LOCAL hEstacaoCobranca, cEstacaoCobranca

   ::Liga_Timer( oWin, .F.,,,"oTimer" )
   
   IF nTempoUltimaVerificacaoSistema = Nil
      nTempoUltimaVerificacaoSistema := Seconds()
   ENDIF
   
   IF Seconds() - nTempoUltimaVerificacaoSistema >= ::nTmpSistema
      nThread :=  Hb_ThreadStart( Hb_BITOR( HB_THREAD_INHERIT_PUBLIC, HB_THREAD_INHERIT_PRIVATE, HB_THREAD_INHERIT_MEMVARS ), {|| ::NetWork() } )
      ::WaitThread( nThread )     
nTempoUltimaVerificacaoSistema := Seconds()
   ENDIF
   
   hwg_WriteStatus( ThisFormMain, 1, Time() )
   
   hwg_ProcessMessage()
   
   ::Liga_Timer( oWin, .T., ::nTmpSistema, { || ::CheckLiveNet( oWin ) }, "oTimer" )
   
RETURN Nil

METHOD WaitThread( nThread )

   DO WHILE .T.
      IF hb_ThreadWait( nThread, 0.1, .T. ) == 1
         EXIT
      ENDIF
      hwg_ProcessMessage()
   ENDDO
   
RETURN Nil 

Hb_IdleAdd x HwGui

MensagemEnviado: 09 Jan 2018 08:58
por sygecom
Lembrei que uma vez o Rossine postou algo parecido, e Você deu uma melhorada, também pode ajudar:
viewtopic.php?f=45&t=15002&p=88212&hilit=teclado#p88212

Hb_IdleAdd x HwGui

MensagemEnviado: 09 Jan 2018 09:17
por Claudio Soto
En mi humilde opinión creo que si lo que quieres hacer es chequear algo a un intervalo de tiempo determinado un simple SET Timer como propuso Sigecom es suficiente, porque cada thread en Windows tiene su propio lazo de mensajes y por lo tanto el Timer es independiente sin ninguna ventaja sobre un thread único, en este caso la unica ventaja de multithread es que la tarea de chequeo demore mucho procesando e interfiera con el funcionamiento del programa principal.

Hb_IdleAdd x HwGui

MensagemEnviado: 09 Jan 2018 09:34
por JoséQuintas
Também não sei se um formulário "não modal" resolveria o problema.
Se é pra rotina ficar rodando, que rode em sua própria janela, visível ou não.

Hb_IdleAdd x HwGui

MensagemEnviado: 09 Jan 2018 10:46
por asimoes
Quintas,

A janela que inicia o sistema é do tipo MAIN e as rotinas são do tipo dialog (modal)