Consumo de processamento
Enviado: 16 Ago 2012 17:01
Olá, estava fazendo alguns testes, envolvendo INKEY, e pude notar, q quando eu utilizo o HB_BackGround e o Inkey, ele da um consumo absurdo de memoria... para simular o erro, foi feito o seguinte código:
Estou utilizando o xHarbour.com, nao consigo encontrar o pq deste consumo, caso alguem tenha alguma forma p/ solucionar este problema, ou, puder me ajudar com este problema, eu agradeço, e muito.
Foto:
Código: Selecionar todos
function main
Private nCount := 0
Private nConta := 0
Private Tempo := Seconds()
setmode(25,80)
Cls
hb_idleSleepMsec( 100 )
nId := HB_IdleAdd( {|| MyTask() } )
nIdle := HB_IdleAdd( {|| HB_BackGroundRun() } )
nId := HB_BackgroundAdd( {||MyTask() }, 1 )
SET BACKGROUND TASKS ON
SET BACKGROUNDTICK 100 // Default is 1000
Do While .T.
? "oi: ", ++nConta
INKEY(0)
* For i = 1 to 2
* HB_IdleState()
* next i
EndDo
Return
Function MyTask()
? "MyTask: ", ++nCount, Seconds() - Tempo
Tempo := Seconds()
INKEY(0)
Return
Foto: