FWH - Depois de um tempo perde recursos?

[MGA]

Sr. Antonio, tenho varios BTNBMP que chamam um PRG para venda:

local MoBtc

define window oWndb title "teste" MDICHILD OF oWnd vscroll icon oico

MoBtc := array(600)
for i := 1 to len(MoBtc)
for j := 1 to nucol
nTEST:=((j * 76) - 56)
IF ntest+76 > oWndb:nWIDTH
exit
endif
ncontacart++
if ncontacart<=len(MoBtc)
@ ((((nColic+i)+.01) * 70) - 62), nTEST BTNBMP MoBtc[ncontacart] PROMPT "" resource "CARTAO" TOP SIZE 60, 64 OF oWndb action(nposobj:=retornaobjcart(MoBtc),fwnMesa:=ajuntamesas[nposobj],chamamesa(cMod,fwnMesa))
MoBtc[ncontacart]:bRClicked := GENBLOCK3(MoBtc,cMod,ncontacart)
else
exit
endif
next
next

ACTIVATE WINDOW oWndb valid( finaliza(MoBtc),hb_gcAll(),.t.)

*************************
static function finaliza(MoBtc)
*************************
for x:=1 to len(MoBtc)
MoBtc[x]:end()
next
return(.t.)

ex:

Ao executar o sistema pela primeira vez no GERENCIADOR DE RECURSOS esta: 9.024 DE USO DE MEMORIA.

Ao entrar na tela que monta os botões sobe para: 13.076 DE USO DE MEMORIA.

Se sair e entrar de nova nesta tela sobe para: 16.396 DE USO DE MEMORIA.

E assim por diante... Até gerar o erro abaixo:


....

O que está acontecendo que ao trabalhar algum tempo ele acaba me gerando o erro abaxo, mais veja Sr. Antonio que se passaram + de 4 horas para acontecer o erro. Sera que é perca de recursos?

Lembrando que este recurso TOUCHTELA1, foi utilizado durante 4 horas, depois acusou o erro.

Application
===========
Path and name: G:\dire\rest.exe (32 bits)
Size: 13,081,600 bytes
Time from start: 4 hours 1 mins 47 secs
Error occurred at: 02/07/08, 17:48:26
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: TOUCHTELA1

Stack Calls
===========
Called from: DIALOG.PRG => CREATEDLGERROR(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: touch.prg => TOUCHSCREEN(343)
Called from: cep802r.prg => CEP802R(1104)
Called from: mesas.prg => CHAMAMESA(515)
Called from: cartao.prg => (b)SELECIONACARTAO(35)
Called from: TGET.PRG => VOTGET:LVALID(0)
Called from: control.prg => VOTGET:FWLOSTFOCUS(912)
Called from: control.prg => TCONTROL:HANDLEEVENT(1404)
Called from: TGET.PRG => VOTGET:HANDLEEVENT(0)
Called from: window.prg => _FWH(3252)
Called from: => SYSREFRESH(0)
Called from: control.prg => TCONTROL:KEYCHAR(719)
Called from: TGET.PRG => VOTGET:KEYCHAR(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: control.prg => TCONTROL:HANDLEEVENT(1414)
Called from: TGET.PRG => VOTGET:HANDLEEVENT(0)
Called from: window.prg => _FWH(3252)
Called from: => WINRUN(0)
Called from: window.prg => TMDIFRAME:ACTIVATE(926)
Called from: rest.prg => MAIN(293)

[Antonio Linares]

Si solo usas ventanas MDICHILD, llama a hb_gcAll() despues de cerrar cada ventana child, para que Harbour haga una recogida de basura (memoria usada y ya no necesitada más).

[MGA]

Já faço isso, veja:

ACTIVATE WINDOW oWndb valid( finaliza(MoBtc),hb_gcAll(),.t.)

Sr. Antonio é necessário finalizar os objetos Mobtc ao final, ou será feito automaticamente?

Obrigado

[MGA]

Já faço isso, veja:

ACTIVATE WINDOW oWndb valid( finaliza(MoBtc),hb_gcAll(),.t.)

Sr. Antonio é necessário finalizar os objetos Mobtc ao final, ou será feito automaticamente?

Obrigado

[Antonio Linares]

> é necessário finalizar os objetos Mobtc ao final, ou será feito automaticamente?

No es necesario. FiveWin lo hace automaticamente.

[MGA]

Obrigado