FiveTech Software tech support forums

Dear Detlef,

you could save on a log file several calls to GetTickCount() to see what part consumes more time

My guess is that Harbour does more things than xHarbour, but due to its more robust and safe design

But I may be wrong. Lets wait for your results...

... Set lKinetic := .F. // .F. only. No second thoughts on this. XBrowse can check the touch behavier. I review in xbrowse.prg. Can xBrowse check :GetTickCount() (:nStartTime and :nEllapsed), if more than xxxx mili-second, it is touch. Is it possible? Please do not overthink. FWH Library uses Windows ...

... Set lKinetic := .F. // .F. only. No second thoughts on this. XBrowse can check the touch behavier. I review in xbrowse.prg. Can xBrowse check :GetTickCount() (:nStartTime and :nEllapsed), if more than xxxx mili-second, it is touch. Is it possible? Please do not overthink. FWH Library uses Windows ...

... is still action while I scroll the xbrowse to next page. XBrowse can check the touch behavier. I review in xbrowse.prg. Can xBrowse check :GetTickCount() (:nStartTime and :nEllapsed), if more than xxxx mili-second, it is touch. Is it possible? Thank you in advance, Set oBrw:lKinetic to ...

... 3600 ) local nMins := Int( nTimeInSecs % 3600 / 60 ) local nSecs := Int( nTimeInSecs - ( nHours * 3600 ) - ( nMins * 60 ) ) local nMillisec := Int(GETTICKCOUNT()) return StrZero( nHours, 2 ) + ":" + StrZero( nMins, 2 ) + ":" + ; StrZero( nSecs, 2 ) + ":" + Right(str(nMillisec),3)

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... ) END oHttp:Open( "GET", MyURL, 1) oHttp:setRequestHeader( 'Content-type', 'text/xml') oHttp:Send(NIL) fl:=int(gettickcount()/1000) do while .T. if oHttp:readyState=4.and.oHttp:Status=200 cTxt:=oHttp:responseText oDc:=oHttp:responseXML exit endif millisec(50) ...

Gustavo,

La función ElapTime() es de Harbour:

http://www.fivetechsoft.com/harbour-docs/harbour-reference-guide.htm#ElapTime

y este es su código fuente:
https://github.com/harbour/core/blob/master/src/rtl/samples.c

Yo suelo usar GetTickCount()

Podrias usar GetTickCount() en vez de Seconds()

Es muy dificil (casi imposible) que coincidan en GetTickCount()

Antonio,

Thanks, I will use GetTickCount().

Pieter

Pieter,

Use GetTickCount() instead of Seconds()

La función de Windows GetTickCount() devuelve las milésimas.

No se si te pueda servir

... { | oDlgSef | UpdCaption( oDlgSef) } ) ... Static function UpdCaption( oDlg ) local nFor, nStart for nFor := 4 to 0 step -1 nStart = GetTickCount() while ( GetTickCount() - nStart ) < 1000 end oDlg:cMsg := " wait for "+; LTrim( Str( nFor ) ) + " second" + ; ...

Antonio,

Antonio Linares wrote:Enrico,

My idea was to perform an action from the called function, every x seconds

thats why I thought about using GetTickCount(), to wait x seconds to do whatever

Understood! Many thanks, Master! I will try it. I start to experiment with threads using xHarbour, at the moment.

EMG

Enrico,

My idea was to perform an action from the called function, every x seconds

thats why I thought about using GetTickCount(), to wait x seconds to do whatever