In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Funciones asíncronas en el futuro Xailer

Foro público de Xailer en español
User avatar
ignacio
Site Admin
Posts: 8558
Joined: Mon Apr 06, 2015 8:00 pm
Location: Madrid, Spain
Contact:

Funciones asíncronas en el futuro Xailer

Postby ignacio » Sun Sep 01, 2019 12:05 pm



Ejemplos de uso:
1 ) Con comandos

Code: Select all

METHOD ASYNC Btn1Click( oSender ) CLASS TForm1
...
   AWAIT INLINE {||
         FOR nFor := 1 TO 100
            Sleep(10)
            SYNCHRO INLINE {|| ::oPb1:nValue := nFor }
         NEXT
      RETURN "Exit from first serie"
      }

   // lastAwait is a private VAR with the return value of previous Await command

   AWAIT INLINE {||
      SYNCHRO INLINE { ||  Msginfo( lastWait ) }

      RETURN NIL
      }
RETURN NIL


2) Version POO:

Code: Select all

   LOCAL oFuture AS CLASS TFuture
   LOCAL oTask AS CLASS TFutureTask
   LOCAL bWork
   LOCAL nFor

   oFuture := TFuture():New()

   bWork := { ||
      FOR nFor := 1 TO 100
         Sleep(30)
         oFuture:AddSynchroTask( {||::oPb3:nValue := nFor } )
      NEXT
      RETURN "Exit from third serie"
   }

   oFuture:OnComplete := {|| Msginfo( oTask:ReturnValue )  }
   oTask := oFuture:AddThreadTask( bWork )

 RETURN Nil
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
User avatar
Carlos Ortiz
Posts: 846
Joined: Wed Jul 01, 2009 5:44 pm
Location: Argentina - Córdoba
Contact:

Re: Funciones asíncronas en el futuro Xailer

Postby Carlos Ortiz » Mon Sep 02, 2019 4:51 am

Muchas gracias !!!
@dbfarma
www.dbfarma.com.ar
User avatar
bingen
Posts: 396
Joined: Mon Jul 07, 2014 8:17 pm
Location: Bilbao
Contact:

Re: Funciones asíncronas en el futuro Xailer

Postby bingen » Tue Sep 17, 2019 11:26 am

Esto va a dar mucho juego, ahora usamos varios Threads (unos 6) para multiples cosas y van muy bien pero son algo más liosos que lo que planteas.

Gracias.
BiSoft Desarrollo de software profesional
http://www.bisoft.es

Return to “Spanish”