Forum > Linux

FPC commandline read CPU utilization


Does anybody have a component name or example code to monitor the CPU utilization of my Raspberry for FPC in the command line?

Maybe i can strip a component ?

NumCPULib4Pascal only reads the processor count, and RPI_HAL does not have utilization percentages in it.

This URL is only for temperature.

Does anybody have alternatives?

Greets, Wouter van Wegen

Maybe you can make use:

Linux say: everything is file, so can open /proc/stat like file, read text, convert like number, make math as link write and print answer.

May be for you translate difficult ?

This literal translate:

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---program linux_cpu; //{$MODE OBJFPC}{$H+}uses sysutils; function givehead:string;var  head: string absolute givehead;  procstatfile:Text;  oldfilemode:longint;begin  head:='';  oldfilemode:=FileMode;  Filemode:=fmOpenread;  Assign(procstatfile,'/proc/stat');  Reset(procstatfile);  ReadLn(procstatfile,head);  Close(procstatfile);  FileMode:=oldfilemodeend; procedure cpu_utilization(times:integer=100);type  tcpu_values=array[1..9]of longint;var  i,n:integer;  timesleft:boolean;  head:string;   cpu_now,  cpu_last:tcpu_values;  cpu_sum,  cpu_last_sum,  cpu_delta,  cpu_idle,  cpu_used:longint;  cpu_usage:single;begin  n:=0;  timesleft:=n<times;  cpu_last:=default(tcpu_values);  cpu_last_sum:=0;   while timesleft do  begin    // loop timesleft    inc(n);    timesleft:=n<times;     // Get the first line with aggregate of all CPUs    head:=givehead;     // Get all columns but skip first (which is the "cpu" string)    head:=stringreplace(head,'cpu','',[]);    readstr(head,cpu_now[1],cpu_now[2],cpu_now[3],cpu_now[4],cpu_now[5],cpu_now[6],cpu_now[7],cpu_now[8],cpu_now[9]);     // Sum cpu_sum    cpu_sum:=0;    for i:=low(cpu_now)to high(cpu_now)do      cpu_sum:=cpu_sum+cpu_now[i];     // Get the delta between two reads    cpu_delta:=cpu_sum-cpu_last_sum;     // Get the idle time Delta    cpu_idle:=cpu_now[4]-cpu_last[4];     // Calc time spent working    cpu_used:=cpu_delta-cpu_idle;     // Calc percentage    cpu_usage:=100*cpu_used/cpu_delta;     // Keep this as last for our next read    cpu_last:=cpu_now;    cpu_last_sum:=cpu_sum;     writeln('CPU usage at ',cpu_usage:3:2,'%');     // wait a second before the next read    sleep(1*1000)  endend; begin  cpu_utilization(10)end. 


[0] Message Index

Go to full version