FiveTech Software tech support forums

What is the best way to make an application "Sleep" for a specified time interval?

In xbase there was a Sleep() function.

I'm aware of "inkey()"

Is there a "best" way to make the process inactive for a time period.

Thanks.

317K available
Compiling TESTXBRW.PRG
InKey.ch(200) Fatal C3048 Preprocessor table overflow

... to programers to extend and modify Harbour as needed. In example: Clipper language uses opcodes for: Row(), Col(), Upper(), Space(), Replicate(), InKey(), Year(), Month(), etc... where we may just call a standard C function, that uses the standard extend system and that may be easily modified. ...

Antonio Linares wrote:You should not use Inkey() on a FW application.

Ok, thanks.
What should I use to wait a key in FiveWin ?

You should not use Inkey() on a FW application.

I am getting an error "Error BASE/1009 : <" and can´t find what is it.
This error is not in Clipper docs.
The prg line is "RETURN Inkey()"...
It s an FiveWin + Clipper program.
Does anyone know what is it ?

... page? * this system display a page but not the tab oFld:aDialogs[ncount]:show() *oFld:aDialogs[ncount]:setfocus() oFld:aDialogs[ncount]:refresh() inkey(2) next return

Luis: El codigo de la tecla DEL es 7, fijate en fwxx\include\inkey.ch: #define K_DEL 7 // Del, Ctrl-G Esto es para wbrowse, pero podrias adaptarlo al equivalente para la tsbrowse: oBrw:bkeydown:={|nk| Teclas(nk,oBrw3,oBrw,walias) } STATIC FUNCTION Teclas(nk,oBrw3,oBrw,walias) ...

... CASE UPPER(cDb)=="PSDET" SET INDEX TO &cDir.psx02&Pext CASE UPPER(cDb)=="EVENT" SET INDEX TO &cDir.evntx01&Pext ENDCASE INKEY(.1) EXIT ENDDO RETURN (.T.) ****************************************************************************** * FUNC: _dbclose - Database Open Close ...

Leonor, No puedes usar Inkey(). Si nos explicas lo que quieres hacer podemos darte una idea de cómo hacerlo. Hasta ahora se esta utilizando cuando hay un proceso largo como listar una cuenta corriente y se quiere cancelar la operacion ...

Leonor,

No puedes usar Inkey(). Si nos explicas lo que quieres hacer podemos darte una idea de cómo hacerlo.

Hola Amigos: Tengo en muchos procesos usando las funciones Inkey() de clipper y __Keyboard(CHR(5)+CHR(13)), con que fueron reemplazadas esas funciones en fivewin porque me tiran error interno 5333.

From your sample

*************
FUNCTION TEST()
**********
LOCAL cName := SPACE(10)
SET EXACT ON
IF cName = ""
? "OK : This work like Clipper"
ELSE
? "STOP : This work bad"
ENDIF
INKEY(0)
RETURN NIL

I get

"OK : This work like Clipper"

using the latest xHarbour from CVS.

EMG

This works fine for me:

*************
FUNCTION TEST()
**********
LOCAL cName := SPACE(10)
SET EXACT ON
IF cName = ""
? "OK : This work like Clipper"
ELSE
? "STOP : This work bad"
ENDIF
INKEY(0)
RETURN NIL

EMG