Example for SysInfo is from old version
Original Reporter info from Mantis: emssik
-
Reporter name: Daniel Roziecki
Original Reporter info from Mantis: emssik
- Reporter name: Daniel Roziecki
Description:
http://www.freepascal.org/docs-html/rtl/linux/sysinfo.html
&LtPos;code pascal>
program Example64;
{ Example to demonstrate the SysInfo function.
Sysinfo is Linux-only. }
{$ifdef Linux}
Uses Linux;
Function Mb(L : Longint) : longint;
begin
Mb:=L div (1024*1024);
end;
Var Info : TSysInfo;
D,M,Secs,H : longint;
{$endif}
begin
{$ifdef Linux}
If Not SysInfo(Info) then
Halt(1);
With Info do
begin
D:=Uptime div (3600*24);
UpTime:=UpTime mod (3600*24);
h:=uptime div 3600;
uptime:=uptime mod 3600;
m:=uptime div 60;
secs:=uptime mod 60;
Writeln('Uptime : ',d,'days, ',h,' hours, ',m,' min, ',secs,' s.');
Writeln('Loads : ',Loads[1],'/',Loads[2],'/',Loads[3]);
Writeln('Total Ram : ',Mb(totalram),'Mb.');
Writeln('Free Ram : ',Mb(freeram),'Mb.');
Writeln('Shared Ram : ',Mb(sharedram),'Mb.');
Writeln('Buffer Ram : ',Mb(bufferram),'Mb.');
Writeln('Total Swap : ',Mb(totalswap),'Mb.');
Writeln('Free Swap : ',Mb(freeswap),'Mb.');
end;
{$endif}
end.
</code>
SysInfo doesn't return boolean now, and using PSysInfo, no TSysInfo. And donesn't work at all, but this will be next issue.
Mantis conversion info:
- Mantis ID: 31453
- Version: 3.0.1
- Fixed in version: 3.1.1
- Fixed in revision: 1400 (#54121efa)
- Target version: 3.2.0