Question about using LOOP

[driessen]

Hello,

In my application, I use OLE to work together with MS-Word.

While working in Word, my application needs to wait until a button is pushed which end Word.

For waiting, I use this code :

Code: Select all  Expand view  RUN

      DO WHILE .T.
         IF VActive
            SYSREFRESH()
            LOOP
         ENDIF
         EXIT
      ENDDO


When VActive = .F., the loop is ended and my application continues.

While my application is waiting, I often notice that the processor is used 100 %. This is eventually slowing down other running applications.

Is there a possibility to prevent that the processor is used for 100 % ?

I use Windows XP Professional and Microsoft Office 2003. My PC has 1 GB RAM.

Thanks a lot for any help.

[Enrico Maria Giordano]

Try replacing SYSREFRESH() with

Code: Select all  Expand view  RUN

HB_IDLESLEEP( 1 )

EMG

[driessen]

EnricoMaria,

Thanks for you help.

I tried it, but if I push the button after having worked in Word, my application hangs completely.

[Enrico Maria Giordano]

Then try using SLEEP() instead of HB_IDLESLEEP():

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

#include "windows.h"
#include "hbapi.h"


HB_FUNC( SLEEP )
{
    Sleep( hb_parnl( 1 ) );
}

#pragma ENDDUMP

EMG

[driessen]

EnricoMaria,

Thanks a lot. Your suggestion just works fine.

Problem solved.