threads timeout

[Antonio Linares]

live demo:
https://fivetechsoft.github.io/snippets?20200218110744

Code: Select all

function Main()

   local pThread
   
   pThread =  hb_threadStart( @Test() )

   if hb_threadWait( pThread, 5 ) != 1   // We wait 5 seconds
      hb_threadQuitRequest( pThread )
   endif

   hb_threadWaitForAll()

   ? "ok"

return nil

function Test()

   ErrorBlock( { | oError | AP_RPuts( "errorblock" ), Break( oError ) } )

   ? hb_Compiler()
   
   while .T.    // endless loop to block the thread
   end
   
return nil