Как узнать расход памяти процессом? |
Previous Top Next |
Расход памяти можно прочитать из виртуального файла
/proc/Pid/status
где Pid - номер процесса
Code: |
Function ReadProcData(Pid:string; var VmSize, VmLck, VmRSS, VmData, VmStk, VmExe, VmLib, ProcName:string):boolean; var f:TextFile; s, stat:string; i:integer;
function getbefore(substr, str:string):string; begin if pos(substr,str)>0 then result:=copy(str,1,pos(substr,str)-1) else result:=''; end;
function getafter(substr, str:string):string; begin if pos(substr,str)>0 then result:=copy(str,pos(substr,str)+length(substr),length(str)) else result:=''; end;
begin Result:=False; FileMode:=0; VmSize:='-1'; VmLck:='-1'; VmRSS:='-1'; VmData:='-1'; VmStk:='-1'; VmExe:='-1'; VmLib:='-1'; ProcName:=''; try try try assignFile(f,'/proc/'+Pid+'/status'); reset(f); while not eof(f) do begin readln(f, s); if pos('VmSize', s)>0 then VmSize:=GetBefore(' ',trim(GetAfter(':',s))); if pos('VmLck', s)>0 then VmLck:=GetBefore(' ',trim(GetAfter(':',s))); if pos('VmRSS', s)>0 then VmRSS:=GetBefore(' ',trim(GetAfter(':',s))); if pos('VmData', s)>0 then VmData:=GetBefore(' ',trim(GetAfter(':',s))); if pos('VmStk', s)>0 then VmStk:=GetBefore(' ',trim(GetAfter(':',s))); if pos('VmExe', s)>0 then VmExe:=GetBefore(' ',trim(GetAfter(':',s))); if pos('VmLib', s)>0 then VmLib:=GetBefore(' ',trim(GetAfter(':',s))); if pos('Name', s)>0 then ProcName:=trim(GetAfter(':',s)); end; finally closefile(f); end; finally FileMode:=2; end; Result:=True; except end; end; |
Примечание - функция может и не сработать, какие-то мгновения файл недоступен по чтению, выход - повторить процедуру.
Более подробную информацию можно получить запустив в консоле:
man proc
©Drkb::04627
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)