PC Toledo

Ahora , también a la hora de crear un thread , podemos definir la visibilidad de las variables
dentro del hilo.  Fichero hbthread.ch

#define HB_THREAD_INHERIT_PUBLIC    1
Indica que las variables  públicas son compartidas por todos los hilos

#define HB_THREAD_INHERIT_PRIVATE   2
Indica que las variables  privadas son compartidas por todos los hilos

#define HB_THREAD_INHERIT_MEMVARS   3
Indica que las variables privadas y públicas son compartidas por todos los hilos

#define HB_THREAD_MEMVARS_COPY      4
Indica que lo que se envía es una copia , no la variable en sí.

hb_threadStart( HB_THREAD_INHERIT_PUBLIC, @Process(), Self ) )
otro ejemplo ;
hb_threadStart( HB_BITOR( HB_THREAD_INHERIT_MEMVARS + ;
                         HB_THREAD_MEMVARS_COPY ), ;
                         @thFunc() )

De todas maneras, no sé exactamente cuál es el propósito del detach en Harbour si llamando  a hb_threadStart() realiza la misma función, sin usar Join, al menos, en las pruebas
que he realizado no logro ver diferencias entre crear un hilo, y crear un hilo y dejarlo morir  y llamar a detach. ( Si alguien lo sabe, bienvenida explicación )

JoséQuintas escreveu:Achei curiosa esta parte
Explica como faz, só não sabe pra que serve... rs

http://xthefull.blogspot.com.br/2016/07 ... etach.html

De todas maneras, no sé exactamente cuál es el propósito del detach en Harbour si llamando a hb_threadStart() realiza la misma función, sin usar Join, al menos, en las pruebas
que he realizado no logro ver diferencias entre crear un hilo, y crear un hilo y dejarlo morir y llamar a detach. ( Si alguien lo sabe, bienvenida explicación )

Se for o que estou pensando, pode ser interessante.
Precisa teste, mas só imagino que seja deixar a thread separada de Main(), como se fosse uma Main2()..
Se for isso, elimina o uso de hb_ThreadWaitForAll().

JoséQuintas escreveu:Eu usava assim antes, inclusive um array pra controlar várias threads.
hb_ThreadWaitForAll() já aguarda tudo de uma vez.

imagine sua rotina nesta situação:

Código: Selecionar todos

PROCEDURE Main
   hb_ThreadStart( { || teste() } )
   hb_ThreadStart( { || teste() } )
   hb_ThreadStart( { || teste() } )
   hb_ThreadWaitForAll()

A informacão do Dr Claudio Soto me deixou na dúvida sobre SEMPRE usar hb_ThreadDetach()
Não sei se afetaria o teste de hb_ThreadWaitForAll()
Também não sei que tipo de recurso é armazenado, se isso é muito ou pouco no contexto geral.

asimoes escreveu:

Código: Selecionar todos

   nThread := hb_ThreadStart( HB_BITOR( HB_THREAD_INHERIT_PUBLIC, ;
                                        HB_THREAD_INHERIT_PRIVATE, ;
                                        HB_THREAD_INHERIT_MEMVARS ), ;
                                        { || ::Download( "DROPBOX" + hb_PS() ) } )

#define HB_THREAD_INHERIT_PUBLIC         1 Binario   0001
#define HB_THREAD_INHERIT_PRIVATE       2                 0010
#define HB_THREAD_INHERIT_MEMVARS   3                 0011
#define HB_THREAD_MEMVARS_COPY       4                  0100

HB_BITOR( HB_THREAD_INHERIT_PUBLIC,  HB_THREAD_INHERIT_PRIVATE,  HB_THREAD_INHERIT_MEMVARS )

HB_THREAD_INHERIT_PUBLIC +  HB_THREAD_INHERIT_PRIVATE + HB_THREAD_INHERIT_MEMVARS 

HB_THREAD_INHERIT_PRIVATE + HB_THREAD_INHERIT_MEMVARS

asimoes escreveu:Olá pessoal,

Usando hb_ThreadWaitForAll() e/ou WaitThread( nThread ) *

* função WaitThread listada abaixo

Vejam a mensagem no título da janela principal Teste Diversos (Não está respondendo)
Usando somente hb_ThreadWaitForAll()

Screen Shot 03-29-17 at 05.17 AM.PNG

Usando a função WaitThread() -> hb_ThreadWait()
A função Evento() pode usar hwg_DoEvents() ou DoEvents() do Dr. Claudio (HMG) https://pctoledo.org/forum/viewto ... 6&start=15

Screen Shot 03-29-17 at 05.27 AM.PNG

Código: Selecionar todos

FUNCTION MAIN()

     nThread := hb_ThreadStart( HB_BITOR( HB_THREAD_INHERIT_PUBLIC, ;
                                        HB_THREAD_INHERIT_PRIVATE, ;
                                        HB_THREAD_INHERIT_MEMVARS ), ;
                                        { || Teste() } )
                                        
     //hb_ThreadWaitForAll()
     
     WaitThread( nThread )
     
RETURN Nil

FUNCTION Teste()
LOCAL oCrt
  
   oCrt := WvgCrt():New()
   oCrt:lModal  := .T.
   oCrt:visible := .T.
   oCrt:create()
   oCrt:resizable := .F.
   
   Hb_GTInfo( HB_GTI_WINTITLE, "Teste com Thread" )
    
   FOR I:=1 TO 3000000
      @ 0,0 SAY StrZero( I, 7 ) 
   NEXT
   
   oCrt:destroy()
   
RETURN Nil

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

FUNCTION Evento()
   hwg_DoEvents() /ou DoEvents() 
RETURN .T.