1. Forum
  2. Usenet
  3. COMP.LANG.XHARBOUR

  • Memory Leak - xharbour

    From Eduardo Motta@21:1/5 to All on Thu Oct 14 10:35:37 2021
    Running the example below the application accumulates memory indefinitely.


    Function TestMemoryLeak()
    While LastKey() # 27
    ? InExecution("teste.exe")
    HB_GCALL(.t.)
    inkey(.01)
    EndDo

    Return


    Static FUNCTION WMIService()
    static oWMI

    local oLocator

    if oWMI == nil
    oLocator := CREATEOBJECT( "wbemScripting.SwbemLocator" )
    oWMI := oLocator:ConnectServer()
    endif

    return oWMI

    Static Function InExecution(cNameApl)
    Local oWmi, oList, oProc
    Local cExecName := cNameApl
    Local nCont := 0

    oWmi := WmiService()

    oList := oWmi:ExecQuery( "select * from Win32_Process" )

    For each oProc in oList
    Try
    if cExecName in lower(oProc:ExecutablePath)
    nCont++
    endif
    catch
    End
    Next

    Return nCont

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)