FiveTech Support Forums

Hi,

I looked for the source code of the SysWait function in the Fwh source codes directory, but I could not find it. I guess it could be in the harbour. I found a source code shared by Enrico in an old topic on this forum. Is this code the code we use in our applications?
If yes, I think there is a problem here. When the time changes from 23.59 to the next day, the function enters an infinite loop and crashes the application. Has anyone had this problem? How can we solve it?

Dear Hakan,

This updated version should solve it:

Antonio Linares wrote: Dear Hakan,

This updated version should solve it:

Code: Select all Collapse

function SysWait( nLong )
   local nStart

   DEFAULT nLong := .1
   nStart := HB_MilliSeconds()  // Milliseconds since app start or system epoch

   while (HB_MilliSeconds() - nStart) < (nLong * 1000)  // Convert seconds to milliseconds
      SysRefresh()
   end

return .T.

Thank you Antonio,

I will try it and write the result.

Thank you Antonio,

It works just fine.