Multihilo y captura de valor de función

Board index FiveWin para Harbour/xHarbour Multihilo y captura de valor de función

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Multihilo y captura de valor de función
Posted: Fri Dec 30, 2011 06:53 PM

Hola a todos,

¿Cómo se haría para que en el hilo principal de la aplicacción se pudiera usar el valor devuelto por una función lanzada desde un nuevo hilo?
¿Me he explicado?

Esto es posible?

---------------------------
FUNCTION loshilitos( parametro1, otroparametro )
*hilo principal
Local celretorno := ""

creo nuevo hilo
celretorno : mifuncion( parametro1 )
cierro nuevo hilo

If celretorno = "lerele"
miotrafuncion( otroparametro )
EndIf

...mas código ...

Return Nil
--------------------------*-

Si no es posible, como debería hacerlo?

Gracias.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Multihilo y captura de valor de función
Posted: Fri Dec 30, 2011 08:39 PM

Carlos,

Creo que este ejemplo te puede servir:

Está en Harbour/tests/mt/mttest01.prg

Code (fw): Select all Collapse

#ifdef __XHARBOUR__
   #xtranslate hb_threadStart( <x,...> ) => StartThread( <x> )
   #xtranslate hb_threadJoin( <x,...> ) => JoinThread( <x> )
#endif

static s_var
proc main()
   local xResult
   ? Version()
   ? "join:", hb_threadJoin( hb_threadStart( @thFunc() ), @xResult )
   ? "result:", xResult
   ? "static var type:", valtype( s_var )
   ? eval( s_var )
   ? eval( s_var )
return

func thFunc()
   local i := 12345.678
   s_var := { || i++ }
return repl( "Hello World!!! ", 3 )

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveWiDi

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: Multihilo y captura de valor de función
Posted: Fri Dec 30, 2011 10:29 PM

Antonio Linares wrote:Carlos,

Creo que este ejemplo te puede servir:

Está en Harbour/tests/mt/mttest01.prg

Code (fw): Select all Collapse

#ifdef __XHARBOUR__
   #xtranslate hb_threadStart( <x,...> ) => StartThread( <x> )
   #xtranslate hb_threadJoin( <x,...> ) => JoinThread( <x> )
#endif

static s_var
proc main()
   local xResult
   ? Version()
   ? "join:", hb_threadJoin( hb_threadStart( @thFunc() ), @xResult )
   ? "result:", xResult
   ? "static var type:", valtype( s_var )
   ? eval( s_var )
   ? eval( s_var )
return

func thFunc()
   local i := 12345.678
   s_var := { || i++ }
return repl( "Hello World!!! ", 3 )

Gracias Antonio,

Es un punto de partida, voy a buscar informacion sobre las funciones del multihilo y empezaré a jugar.

Feliz 2012.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion