FiveTech Software tech support forums

... RoActivateInstance( pHString, @pInstance )
IF nResult != 0
WindowsDeleteString( pHString )
RoUninitialize()
RETURN nResult
ENDIF

// Liberar HSTRING
WindowsDeleteString( pHString )

// Desinicializar Windows Runtime
// RoUninitialize()

// Retornar la instancia obtenida
RETURN ...

... RoActivateInstance( pHString, @pInstance )
IF nResult != 0
WindowsDeleteString( pHString )
RoUninitialize()
RETURN nResult
ENDIF

// Liberar HSTRING
WindowsDeleteString( pHString )

// Desinicializar Windows Runtime
// RoUninitialize()

// Retornar la instancia obtenida
RETURN ...

... i < rows1; i++ )
{
PHB_ITEM pRowResult = hb_itemArrayNew( cols2 );
hb_arraySet( pResult, i + 1, pRowResult );
hb_itemRelease( pRowResult ); // Liberar referencia local
}

// Realizar la multiplicación de matrices
for( i = 0; i < rows1; i++ )
{
PHB_ITEM pRowA = hb_arrayGetItemPtr( pMatrix1, i ...

... i < rows1; i++ )
{
PHB_ITEM pRowResult = hb_itemArrayNew( cols2 );
hb_arraySet( pResult, i + 1, pRowResult );
hb_itemRelease( pRowResult ); // Liberar referencia local
}

// Realizar la multiplicación de matrices
for( i = 0; i < rows1; i++ )
{
PHB_ITEM pRowA = hb_arrayGetItemPtr( pMatrix1, i ...

... i < rows1; i++ )
{
PHB_ITEM pRowResult = hb_itemArrayNew( cols2 );
hb_arraySet( pResult, i + 1, pRowResult );
hb_itemRelease( pRowResult ); // Liberar referencia local
}

// Realizar la multiplicación de matrices
for( i = 0; i < rows1; i++ )
{
PHB_ITEM pRowA = hb_arrayGetItemPtr( pMatrix1, i ...

METHOD End() INLINE ::oWnd:End(), ::oFont:End(), ::oFontB:End(), DeleteObject( ::hBitmap )

Tienes que llamar a oMetro:End() antes de terminar

11/14/2024 11:45:36: e:\ZERUS\zeruswin.exe -- FONT,1594496986,TMETROPANEL:NEW(121)->MAKEMETROPANEL(9510)->VALIDAUSER_X(9448)->VALIDAUSER(9388)->ZERUSMAIN(1223)->MAIN(17)

11/14/2024 11:45:36: e:\ZERUS\zeruswin.exe -- FONT,-1375068917,TMETROPANEL:NEW(123)->MAKEMETROPANEL(9510)->VALIDAUSER_X(9448 ...

FUNCTION PRINCIPAL_METRO()

LOCAL oBrush, hborland, oCursor, oCursorPen, oFont, oFon
LOCAL cDirAct := DiskName() + ":" + XDIRNAME() + "\" + cCodCia
LOCAL oTimer, oSprite, oIco, oPopup3, oPopup2
LOCAL cTipCon := "", cImaFon, SW := 0, oMetPri
LOCAL nDurTim := 3000, oErr // cada dos minutos ...

function ValidaUSer_X(xWnd,vVecDat,vVecCom,cCodEqu,cEmpAct,cNomAct)

LOCAL oBar, oMetro, oBrush

PUBLIC lIngZer := .F. , oWndMet

IF FILE(".\imagenes\windows10.bmp")

DEFINE BRUSH oBrush FILE ".\imagenes\windows10.bmp" RESIZE

ELSE

DEFINE BRUSH oBrush FILE ".\imagenes\windows11.bmp" RESIZE ...

Buen día...

Estoy buscando la causa de esta situación:

En el equipo de desarrollo, después de varias ejecuciones por compilaciones seguidas ... el sistema se hace un tanto lento para dibujar las pantallas fivewin, se nota un parpadeo---
antes esto verifique el checkres.. a ver si ayuda... pero al ...

Son dos fonts los que tienes que liberar, pero si eso es todo lo que te aparece, la aplicación los liberará al terminar su ejecución

No es preocupante

Buena noche..

Tengo este reporte de checkRes.. y no he podido liberarlos

Jonsson Russi



11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- FONT,-1945497203,TMETROPANEL:NEW(121)->MAKEMETROPANEL(9525)->VALIDAUSER_X(9450)->VALIDAUSER(9429)->ZERUSMAIN(1219)->MAIN(17)
11/13/2024 21:02:19: e:\ZERUS\zeruswin ...

Marcos, you need to turn off the machine to free up the memory at least once a day for at least 10 minutes.

Marcos, necesitas apagar la máquina para liberar memoria al menos una vez al día durante al menos 10 minutos.

Regards, saludos.

... y el resultado es exactamente el mismo.

Gracias y salud!

Estimado Victor,

Obvié este mensaje y gracias al mensaje de Richard acabo de verlo, a los dos años!

Hemos hecho una modificación en la Clase TActiveX a bajo nivel que debería liberar esa memoria que comentas que se queda sin liberar

... una cadena vacía (hb_szAscii[0]). Si nLen es 1, se asigna la cadena que contiene solo el carácter szText[0].
Se llama a hb_xfree(szText) para liberar la memoria asignada para szText.
Si la longitud de la cadena es mayor que 1 (nLen > 1), se hace lo siguiente:
Se agrega un carácter nulo ('\0') al ...