Sub LogMemory
Dim r As Reflector
Dim iFreeMemory As Int
Dim iMaxMemory As Int
Dim iTotalMemory As Int
Dim iUsedMemory As Int
Dim iTotalFreeMemory As Int
Dim strPrompt As String
r.Target = r.RunStaticMethod("java.lang.Runtime", "getRuntime", Null, Null)
iFreeMemory = r.RunMethod("freeMemory") / (1024 * 1024)
iMaxMemory = r.RunMethod("maxMemory") / (1024 * 1024)
iTotalMemory = r.RunMethod("totalMemory") / (1024 * 1024)
iUsedMemory = iTotalMemory - iFreeMemory
iTotalFreeMemory = iMaxMemory - iUsedMemory
strPrompt = "Max Memory = " & iMaxMemory & " Mb" & _
CRLF & "Total Free = " & iTotalFreeMemory & " Mb" & _
CRLF & "Total Memory = " & iTotalMemory & " Mb" & _
CRLF & "Used Memory = " & iUsedMemory & " Mb" & _
CRLF & "Free Memory = " & iFreeMemory& " Mb"
RunLog(strPrompt)
End Sub