Dear

I need to return the correct mask of chmod permission, in this case, i have copy the FPC example , but i cannot convert "info.st_mode" in human readable mask (0777, 0755...)

For example, with a file in 0755 mask the function return 16877 value in info.st_mode.

best regards

unit base_unix;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,variants, Linux,BaseUnix,IniFiles,strutils;
type
Tunix=class
private
public
  procedure Free;
  constructor Create;
  function get_file_permission(path:string):string;
END;
implementation
constructor Tunix.Create;
begin
end;
//##############################################################################
procedure Tunix.Free;
begin
end;
function Tunix.get_file_permission(path:string):string;
var
 s:string;
 info : stat;
 i:Integer;
begin
fpstat (path,info);
writeln;
writeln ('Result of fstat on file');
writeln ('Inode   : ',info.st_ino);
writeln ('Mode    : ',info.st_mode);
writeln ('nlink   : ',info.st_nlink);
writeln ('uid     : ',info.st_uid);
writeln ('gid     : ',info.st_gid);
writeln ('rdev    : ',info.st_rdev);
writeln ('Size    : ',info.st_size);
writeln ('Blksize : ',info.st_blksize);
writeln ('Blocks  : ',info.st_blocks);
writeln ('atime   : ',info.st_atime);
writeln ('mtime   : ',info.st_mtime);
writeln ('ctime   : ',info.st_ctime);
end;
//##############################################################################
end.

I need to return the correct mask of chmod permission, in this case, i have copy the FPC example , but i cannot convert "info.st_mode" in human readable mask (0777, 0755...)

http://www.freepascal.org/docs-html/rtl/system/octstr.html

Since the PDFs seem currently unsearchable, download a copy of the HTML docs for local searching.