Retrieve file information about a file descriptor.
Source position: bunxh.inc line 85
function FpFStat( |
fd: cint; |
var sb: Stat |
):cint; |
var F: Text; |
var Info: Stat |
):Boolean; |
var F: file; |
var Info: Stat |
):Boolean; |
FpFStat gets information about the file specified in one of the following:
and stores it in Info, which is of type stat. The function returns zero if the call was successful, a nonzero return value indicates failure.
Extended error information can be retrieved using fpGetErrno.
|
Retrieve file information about a file descriptor. |
|
|
Return information about symbolic link. Do not follow the link. |
program example28; { Program to demonstrate the FStat function. } uses BaseUnix; var f : text; i : byte; info : stat; begin { Make a file } assign (f,'test.fil'); rewrite (f); or:=1 to 10 do writeln (f,'Testline # ',i); close (f); { Do the call on made file. } if fpstat ('test.fil',info)<>0 then begin writeln('Fstat failed. Errno : ',fpgeterrno); halt (1); end; writeln; writeln ('Result of fstat on file ''test.fil''.'); 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); { Remove file } erase (f); end.