https://fivetechsoft.github.io/snippets?20200218110744
- Code: Select all Expand view
- 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
