Hola amigos, como ando peleado con los recursos, liberaci贸n de memoria, etc, etc,etc ... me vendr铆a genial saber cu谩nto memoria est谩 utilizando mi aplicaci贸n (desde la misma aplicaci贸n, claro).
驴Alguna funci贸n que me informe de esto?
Gracias!
Board index FiveWin para Harbour/xHarbour 驴C贸mo saber cuanta memoria ocupa mi aplicaci贸n?
FUNCTION Main()
? WorkingSetPrivate()
RETURN NIL
//-----------------------------------------------------------------------------
FUNCTION WorkingSetPrivate(cName)
/*Biel Maimo 2016*/
LOCAL oLocator,oWmi,oList, oProc
LOCAL aList:={}
IF cName==NIL
cName := SubStr(hb_ProgName(),Len( cFilePath( HB_ProgName() ))+1)
cName := Left(cName,Len(cName)-4)
ENDIF
//--
oLocator := CreateObject( "wbemScripting.SwbemLocator" )
oWMI := oLocator:ConnectServer()
oList := oWmi:ExecQuery( "select * from Win32_PerfRawData_PerfProc_Process WHERE name='"+cName+"'")
FOR EACH oProc IN oList
AAdd( aList, { oProc:Name,oProc:WorkingSetPrivate} )
NEXT
RETURN Val(aList[1,2]) / 1024Magn铆fico Biel, justo lo que necesitaba.
Biel, cual 茅s el comando equivalente en xHarbour de hb_ProgName()? Gracias, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
karinha wrote:Biel, cual 茅s el comando equivalente en xHarbour de hb_ProgName()? Gracias, saludos.
Puedes probar hb_ArgV() que creo que existe en xHarbour, o ExeName().
En cualquier caso puedes llamar la funci贸n pasandole como parametro el nombre de tu programa.
Gracias Biel, perfecto.
#include "FiveWin.ch"
FUNCTION Main()
? WorkingSetPrivate()
RETURN NIL
//-----------------------------------------------------------------------------
FUNCTION WorkingSetPrivate(cName)
/*Biel Maimo 2016*/
LOCAL oLocator,oWmi,oList, oProc
LOCAL aList:={}
IF cName==NIL
#IFDEF __XHARBOUR__ // Qual e o equivalente em xHarbour?
cName := SubStr(HB_ARGV( 0 ),Len( cFilePath( HB_ARGV( 0 ) ))+1)
cName := Left(cName,Len(cName)-4)
#ELSE
cName := SubStr(hb_ProgName(),Len( cFilePath( HB_ProgName() ))+1)
cName := Left(cName,Len(cName)-4)
#ENDIF
ENDIF
//--
oLocator := CreateObject( "wbemScripting.SwbemLocator" )
oWMI := oLocator:ConnectServer()
oList := oWmi:ExecQuery( "select * from Win32_PerfRawData_PerfProc_Process WHERE name='"+cName+"'")
FOR EACH oProc IN oList
AAdd( aList, { oProc:Name,oProc:WorkingSetPrivate} )
NEXT
RETURN Val(aList[1,2]) / 1024Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Biel, una duda: el resultado 茅s en: Bytes, Mega Bytes? 脫 Giga Bytes? gracias, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
karinha wrote:Biel, una duda: el resultado 茅s en: Bytes, Mega Bytes? 脫 Giga Bytes? gracias, saludos.
El resultado se expresa en KB, pero puedes ajustar el retorno a la unidad que desees, simplemente cambiando divisior.
...
Val(aList[1,2]) / 1024 //
oList := oWmi:ExecQuery( "select * from Win32_PerfRawData_PerfProc_Process WHERE name='"+cName+"'")Por favor
Como puedo utilizar este codigo si uso dbf's ?
Muchas gracias
Eso no tiene nada que ver con el RDD que utilices
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Muchas gracias Cristobal
Funciona perfecto
Saludos